How to resize a listbox

[Otto]

oLbx:ReSize( nSizeType, nWidth, nHeight )


Hello Antonio,

I can’t find out how to ReSize a listbox.
What do I have to pass as nSizeType?

Thanks in advance
Otto

[Antonio Linares]

Otto,

You can use:

oControl:SetSize( nWidth, nHeight [, lRepaint ] )

or

oControl:nHeight = nNewHeight
oControl:nWidth = nNewWidth

[Otto]

Hello Antonio,
thank you.
Best regards,
Otto

[Lisa Giordano]

Ciao,
come posso colorare una colonna listbox
Help

[Antonio Linares]

Lisa,

Do you mean a browse column ?

Te refieres a una columna de un browse ?

[Lisa Giordano]

In una listbox visualizzo nome,cognome,indirizzo,città
vorrei che tutta la colonna città fosse di un colore diverso
Ciao

[Enrico Maria Giordano]

Purtroppo il termine "listbox" indica almeno due controlli diversi in FWH: uno è la listbox standard di Windows, quella che va precaricata con i dati e non si aggancia quindi al database, l'altro è il TWBrowse che invece si aggancia al database (o ad altre sorgenti di dati).

Tu quale intendi? In ogni caso, il browse si può colorare ma la listbox standard no, che io sappia.

EMG

[Lisa Giordano]

Forse mi spiego meglio utilizzando un esempio di Fivewin.
Vorrei colorare di verde la colonna rappresentante il campo "User Id".
Se non è possibile usare ListBox, potrei avere un esempio di come fare altrimenti?
Grazie

DEFINE DIALOG oDlg FROM 3, 3 TO 26, 79 TITLE cTitle

@ 0, 1 SAY cListName OF oDlg

@ 1, 1 LISTBOX oLbx FIELDS USER->Name, USER->User, USER->Title ;
HEADERS "User Name", "User Id", "User Title" ;
SIZE 284, 137 OF oDlg

@ 13, 8 BUTTON btnModify PROMPT "&Modify" OF oDlg SIZE 40, 12
@ 13, 15 BUTTON btnDelete PROMPT "&Delete" OF oDlg SIZE 40, 12
@ 13, 22 BUTTON btnSearch PROMPT "&Search" OF oDlg SIZE 40, 12
@ 13, 29 BUTTON btnEnd PROMPT "&Exit" OF oDlg SIZE 40, 12

ACTIVATE DIALOG oDlg

RETURN( NIL )

[Enrico Maria Giordano]

Ok, quello è un TWBrowse. Lo riconosci dalla clausola FIELDS. Per colorare la seconda colonna puoi usare qualcosa del genere:

Code: Select all  Expand view  RUN

oLbx:nClrPane = { | nCol | If( nCol = 2, CLR_HGREEN, ) }

EMG