Get de Combobox

[cnavarro]

Buenas tardes
Cómo se puede modificar la altura del Get del combobox?

Sin modificar el Font no soy capaz

No me funciona tampoco :nHeight que fue lo primero que probé

La linea del nBottom me dice que no existe esa propiedad

"Error BASE/1005 Message not found NIL:_NBOTTOM"

Code: Select all  Expand view

   @ 100, 2 COMBOBOX oCbx VAR cVar ITEMS { "Opcion -1 ", "Opcion - 2",;
                           "Opcion - 3", "Opcion - 4", "Opcion - 5" } ;
                           OF oDlg SIZE 275, 200 FONT oFont1 ;
                           PIXEL COLOR nClr1, CLR_WHITE

   oCbx:oGet:nBottom    := 30
                 //:nHeight
 

Aprovecho para preguntar por qué no crea el Error.log la aplicacion, da el mensaje de error pero no sale el cuadro de diálogo con las lineas y el QUIT, etc
Es la primera vez que me ocurre y no encuentro el motivo
Gracias

[Carlos Mora]

Hola Cristobal,

pudiste ver algo de este tema?
Tengo que corregir la altura del get del combo y no veo por donde entrarle.

He visto que como sugerencia se cambia la altura si se le cambia la fuente, pero es un apaño y no la solución, ya que seguiríamos sin poder darle la altura, solo aproximarla cambiando la fuente

[cnavarro]

Carlos, hice un monton de pruebas modificando la clase ( cambié el GET:Redefine por un GET;New, etc.) pero no consegui ni que se moviera.
Cuando tenga un ratillo me pondre de nuevo.
Asi que usé el COMBOM para lo que necesitaba

[cnavarro]

No entiendo por qué no consigo ni el hwnd del get definido en el combo, siempre obtengo 0 o nil

Esta linea en el New y en el Initiate no hace nada

Code: Select all  Expand view

         ::oGet:hWnd := GetWindow( ::hWnd, GW_CHILD )
 

[Antonio Linares]

Cristobal,

Puedes poner aqui un ejemplo de como lo estás probando ? gracias

[cnavarro]

Antonio
He preparado un ejemplo basado en ..\samples\testcomb.prg

Code: Select all  Expand view

// This sample shows how to create a Combo Test.

#include "FiveWin.ch"

//----------------------------------------------------------------------------//

function Main()

   local oDlg, oCbx, oSayItem, oSayAt
   local cItem := ""

   SET _3DLOOK ON

   DEFINE DIALOg oDlg RESOURCE "TestCombo"

   REDEFINE COMBOBOX oCbx VAR cItem ITEMS { "Testing", "this", "ComboBox" } ;
      ID 110 OF oDlg ;
      ON CHANGE ( MsgInfo( oCbx:oGet:hWnd), oSayItem:cTitle := cItem,;   // We should use also :SetText()
                  oSayAt:cTitle   := ":nAt = " + Str( oCbx:nAt, 2 ) ) ;
      VALID ( MsgBeep(), .t. )

   REDEFINE SAY oSayItem ID 120 OF oDlg

   REDEFINE BUTTON ID 130 OF oDlg ACTION oCbx:Reset()

   REDEFINE BUTTON ID 140 OF oDlg ;
      ACTION oCbx:SetItems( { "Let's", "Set", "a new", "List" } )

   REDEFINE BUTTON ID 220 OF oDlg ACTION MsgInfo( Str( oCbx:nAt ) )

   REDEFINE SAY oSayAt ID 150 OF oDlg

   ACTIVATE DIALOG oDlg CENTERED

return nil