Page 1 of 1

Combobox

Posted: Fri Jan 08, 2010 11:02 am
by lsmarco
Porque este exemplo abajo as opçoes do combobox não aparecem, não consigo usar combobox no fivepocket.



#include "fwce.ch"
#include "dll.ch"
#define MB_ICONINFORMATION 0x40

static aBTypes:= {'Repce','Akác','Hárs','Gesztenye','Napraforgó','Selyemkóró','Facélia','Vegyes virág','Mézharmat','Egyéb'}

function Main()
// Main Window

LOCAL oBmp
Local oHONEYTYPES, cHONEYTYPES
Local oHONEYTYPES_DD, cHONEYTYPES_DD
Local oBEEKEEPER , cBEEKEEPER
cBeeKeeper:="Click to me after set second combo"

public oWnd
DEFINE WINDOW oWnd TITLE "RFID_OMME"
ACTIVATE WINDOW oWnd ON INIT TESTE()
return nil

static function teste()
Local oHONEYTYPES, cHONEYTYPES
Local oHONEYTYPES_DD, cHONEYTYPES_DD
Local oBEEKEEPER , cBEEKEEPER
Local oDlg

DEFINE DIALOG oDlg RESOURCE "COMBOS"
REDEFINE COMBOBOX OHONEYTYPES VAR CHONEYTYPES ITEMS aBTypes ID 4001 OF ODLG

ACTIVATE DIALOG oDlg CENTERED
return nil

Re: Combobox

Posted: Fri Jan 08, 2010 6:45 pm
by Antonio Linares
Marco,

Try to increase the height of the combobox control in your RC file.

Please post your RC here if posible. The section where you declare the combobox, thanks

Re: Combobox

Posted: Sat Jan 09, 2010 11:08 pm
by lsmarco
Antonio,

O problema náo é altura, já testei isso, nenhum exemplo de combobox que eu testo inclusive do SAMPLES náo aparece as opções.
Já testei vários exemplos e nenhum funciona no fivepocket.

Re: Combobox

Posted: Sun Jan 10, 2010 11:21 pm
by Antonio Linares
Marco,

Please try FWPPC\samples\combos.prg.

It should work fine, thanks :-)

Re: Combobox

Posted: Mon Jan 11, 2010 11:18 pm
by lsmarco
Também já testei Antônio, e mesma coisa, mas tudo bem. Gostaria de ver outra coisa agora, você teria algum exemplo de listbox com checkbox?

Re: Combobox

Posted: Wed Jan 13, 2010 11:09 pm
by Antonio Linares
Marco,

La forma de hacerlo es usar un browse que muestre un bitmap de dos, uno para marcado y otro para no marcado.

En el ejemplo FWPPC\samples\Tutor10.prg se muestra un bitmap en una columna del browse. Lo que has de hacer es tener dos bitmaps y mostrar el que corresponda:

Code: Select all

   @ 1, 1 LISTBOX oBrw ;
      FIELDS If( Customer->Married, hBmp1, hBmp2 ), Customer->Last, Customer->First ;
      ...