In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Pictures in Tbrowse column

Xailer professional forum in English
Responder
Gejza Horvath
Mensajes: 281
Registrado: Mar Ago 15, 2006 1:50 pm

Pictures in Tbrowse column

Mensaje por Gejza Horvath »

Hi,
I would like to show different icons in the TbrowseColumn, depending on the value in the
database, for example checked and unchecked icons. The OnDraw() event of the TbrwColumn
class seems to work only with text. Any idea how to do this trick?
Something like this pseudo code:
METHOD OnDrawBrowseColumn() CLASS TForm1
IF oDataset:ShowMe
::PaintCheckedIcon()
ELSE
::PaintUncheckedIcon()
ENDIF
RETURN Nil
Gejza Horváth
notelo
Mensajes: 54
Registrado: Sab Abr 28, 2007 2:06 pm

Pictures in Tbrowse column

Mensaje por notelo »

Gejza,
> I would like to show different icons in the TbrowseColumn, depending on the value in the
> database, for example checked and unchecked icons. The OnDraw() event of the TbrwColumn
> class seems to work only with text. Any idea how to do this trick?
Just follow these steps:
* Select the browse object and add the images to its oImageList property,
* Click on the column then double click OnGetData event and type this code:
IF WhatEver
nImage := 1
ELSE
nImage := 2
ENDIF
And you are done.
Regards,
José Lalí­n
notelo
Mensajes: 54
Registrado: Sab Abr 28, 2007 2:06 pm

Pictures in Tbrowse column

Mensaje por notelo »

Gejza,
> I would like to show different icons in the TbrowseColumn, depending on the value in the
> database, for example checked and unchecked icons. The OnDraw() event of the TbrwColumn
> class seems to work only with text. Any idea how to do this trick?
Just follow these steps:
* Select the browse object and add the images to its oImageList property,
* Click on the column then double click OnGetData event and type this code:
IF WhatEver
nImage := 1
ELSE
nImage := 2
ENDIF
And you are done.
Regards,
José Lalí­n
Gejza Horvath
Mensajes: 281
Registrado: Mar Ago 15, 2006 1:50 pm

Pictures in Tbrowse column

Mensaje por Gejza Horvath »

Thanks,
how simply ....
I like Xailer.
Gejza Horváth
"José Lalín" <notelo@digo.com> pí¹e v diskusním pøíspìvku
news:469cdabe$[email=2@ozsrv2.ozlan.local...]2@ozsrv2.ozlan.local...[/email]
>
> Gejza,
>
>> I would like to show different icons in the TbrowseColumn, depending on the value in
>> the database, for example checked and unchecked icons. The OnDraw() event of the
>> TbrwColumn class seems to work only with text. Any idea how to do this trick?
>
> Just follow these steps:
>
> * Select the browse object and add the images to its oImageList property,
> * Click on the column then double click OnGetData event and type this code:
>
> IF WhatEver
> nImage := 1
> ELSE
> nImage := 2
> ENDIF
>
> And you are done.
>
> Regards,
> José Lalín
>
Gejza Horvath
Mensajes: 281
Registrado: Mar Ago 15, 2006 1:50 pm

Pictures in Tbrowse column

Mensaje por Gejza Horvath »

Thanks,
how simply ....
I like Xailer.
Gejza Horváth
"José Lalín" <notelo@digo.com> pí¹e v diskusním pøíspìvku
news:469cdabe$[email=2@ozsrv2.ozlan.local...]2@ozsrv2.ozlan.local...[/email]
>
> Gejza,
>
>> I would like to show different icons in the TbrowseColumn, depending on the value in
>> the database, for example checked and unchecked icons. The OnDraw() event of the
>> TbrwColumn class seems to work only with text. Any idea how to do this trick?
>
> Just follow these steps:
>
> * Select the browse object and add the images to its oImageList property,
> * Click on the column then double click OnGetData event and type this code:
>
> IF WhatEver
> nImage := 1
> ELSE
> nImage := 2
> ENDIF
>
> And you are done.
>
> Regards,
> José Lalín
>
Responder