Hint in DBGrid anzeigen

[etom291272]

Also mit folgendem Eventhandler wird statt des Datenbankfeldes ein entsprechendes Icon angezeigt

Delphi-Quellcode:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; 
  DataCol: Integer; Column: TColumn; State: TGridDrawState); 
var Icon: TBitmap; 
begin 
Icon:=TBitmap.Create; 
if  (Column.FieldName='SHARES' ) then begin   
with  DBGrid1.Canvas do begin 
Brush.Color:=clWhite; 
FillRect(Rect); 
if (Table1.FieldByName('SHARES').Value>4500)   
then 
ImageList1.GetBitmap(1,Icon) 
else 
ImageList1.GetBitmap(0,Icon); 
Draw(round((Rect.Left+Rect.Right-Icon.Width)/2),Rect.Top,Icon); 
end; 
end;

p.s mich würde auch interessieren wie das bei einem normalen DbGrid Feld funktioniert und ich möchte nicht auf 3.Komponenten von anderen Herstellern ausweichen. Habe das TMS Components Pro mit deren ADVDBStringGrid liese sich das leicht realisieren. Ich kann auch über kein Stringgrid gehen da das Dataset über 200.000 Records fassen kann und das laden des StringGrid warscheinlich viel länger dauert als mit einem DbGrid (die Sätze sind notwendig - sind alle Belege einen grossen Firma der letzten 10 Jahre)

für jeden lösungsansatz bin ich dankbar