[SOLVED] DBGrid icon

[Pe3s]

Hello, how can I put an icon in the DBGrid component in any column?

[dsiders]

Hello, how can I put an icon in the DBGrid component in any column?

You can use the OnDrawColumnCell event handler (TDrawColumnCellEvent) if it's not a fixed cell.

[Pe3s]

Thank you

[Pe3s]

Hello, how can I improve the code so that it does not draw bold text in columns?

Code: Pascal  [Select][+][-]

1. procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
2.   DataCol: Integer; Column: TColumn; State: TGridDrawState);
3. begin
4.    if Column.FieldName = 'Category' then begin
5.       ImageList1.Draw(DBGrid1.Canvas, Rect.Left, Rect.Top, 0)
6.   end;
7.     DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
8. end;
9.  

[wp]

Hello, how can I improve the code so that it does not draw bold text in columns?

Code: Pascal  [Select][+][-]

1. procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
2.   DataCol: Integer; Column: TColumn; State: TGridDrawState);
3. begin
4.    if Column.FieldName = 'Category' then begin
5.       ImageList1.Draw(DBGrid1.Canvas, Rect.Left, Rect.Top, 0)
6.   end;
7.     DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
8. end;
9.  

"does not draw bold text in columns" - if this means: the text in the columns should not be bold, the answer is: Don't add the fsBold style to the DBGrid1.Canvas.Font.Style or DBGrid1.Font.Style - you must be doing this somewhere because this is not default behaviour, but, of course, I don't know where you do this since you do not show this code.

If it means: there should not be ANY text in the columns, the answer is: Remove the call to DBGrid1.DefaultDrawColumnCell from above code.

[Pe3s]

@wp, I never use bold text.
After writing the procedure that draws the icon, it looks like it's superimposing text on top of the text, so it appears thicker

[paweld]

Two options: don't add a text drawing call or clear the cell at the beginning of OnDrawCell: https://lazarus-ccr.sourceforge.io/docs/lcl/graphics/tcanvas.fillrect.html

[Pe3s]

Thank you

[Pe3s]

My solution:
DBgrid -> DefaultDraw: False;

Code: Pascal  [Select][+][-]

1. procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
2.   DataCol: Integer; Column: TColumn; State: TGridDrawState);
3. var
4.   LRating: Extended;
5. begin
6.    if Column.FieldName.Equals('Rating') then
7.    begin
8.      LRating := Column.Field.AsInteger;
9.      ImageList1.Draw(DBGrid1.Canvas, Rect.CenterPoint.X - (ImageList1.Width div 2), Rect.CenterPoint.Y - (ImageList1.Height div 2), Trunc(LRating));
10.   end else
11.     DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
12. end;
13.