UniDBGrid, image + text in one cell

[Rav]

Hello,

Demo application shows UniDBGrid with columns that contain either text or image. Is it possible to show image and text in one cell?

[Sherzod]

Hi,

 

Which edition and build are you using?!

 

Best regards,

[Rav]

The latest trial

[TobiS]

i have kind of the same question. I need text and Image in one UniDBGrid cell. As well if possible a way to custom draw the cell including cell borders. In the demo i can change background color and Font color. I am using 1.0.0.1407 right now.

 

Best Regards

[Sherzod]

Hi,

 

I am using 1.0.0.1407 right now.

 

I think it's time to upgrade to ExtJS 6...

[TobiS]

ya i install the new one and take a look. time just flies by ..

[TobiS]

i installed the newest version (1.10.0.1472) now but the question remains.

[Sherzod]

What images you will be using, or do you want to show icons + text ?

[TobiS]

i would like to show Icons + Text

[Sherzod]

Hi,

 

Also you can use FontAwesome icons + text

[Mindaugas]

Hi,

I am doing some research on different products (uniGui, IntraWeb, ...) to migrate my desktop application into a web application.

In my desktop application, I use ListViews a lot (mainly because I need to show an image + text side by side in the grid) and really missed it in uniGUI. 

So my question: how to show image (png, ico, bmp - doesn't matter) + text in one TUniDBGrid cell?

[Hayri ASLAN]

Hi,

You can use html tags inside cell.

Like <img src="smiley.gif" width="16" height="16"> Smiley

[Mindaugas]

Thanks. Finally, I solved this puzzle, here is the solution:
 

procedure TUniForm.CountryGetText(Sender: TField; var Text: string;   DisplayText: Boolean); 
begin
    Text :=  '<img height="16", width="16", src="images\'
    + DataModule.FDQuery.FieldByName('Country').AsString
    + '.png" /> '
    + DataModule.FDQuery.FieldByName('Country').AsString;
end;

procedure TUniForm.UniDBGridDrawColumnCell(Sender: TObject; ACol,   
	ARow: Integer; Column: TUniDBGridColumn; Attribs: TUniCellAttribs); 
begin   
    if Column.FieldName = 'Country' then     
        Column.Field.OnGetText := CountryGetText; 
end;

 

[Abaksoft]

1.  See also :

 

Thx to Eduardo Belo.

 

2.  And for using Fontawsome, see :