FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Get de Combobox
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Get de Combobox
Posted: Tue Jun 11, 2013 03:32 PM
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 (fw): Select all Collapse
聽 聽@ 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
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Carlos Mora
Posts: 989
Joined: Thu Nov 24, 2005 03:01 PM
Re: Get de Combobox
Posted: Mon Mar 30, 2015 02:20 PM

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

Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
鈥淚f you think education is expensive, try ignorance"
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Get de Combobox
Posted: Mon Mar 30, 2015 04:49 PM

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Get de Combobox
Posted: Sun Apr 12, 2015 05:26 PM
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 (fw): Select all Collapse
         ::oGet:hWnd := GetWindow( ::hWnd, GW_CHILD )
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Get de Combobox
Posted: Mon Apr 13, 2015 09:05 AM

Cristobal,

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Get de Combobox
Posted: Mon Apr 13, 2015 04:53 PM
Antonio
He preparado un ejemplo basado en ..\samples\testcomb.prg

Code (fw): Select all Collapse
// 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
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions