Combobox

[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

[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

[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.

[Antonio Linares]

Marco,

Please try FWPPC\samples\combos.prg.

It should work fine, thanks

[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?

[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  Expand view

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