Dein Grid hat die Eigenschaft Cells[x,y], also ein 2D Array, mit dem Du ja in jede Zelle was reinschreiben kannst.
Und zusätzlich dazu gibts noch das Array Objects[x,y]. Du kannst also jeder Zelle noch ein Objekt zuweisen. Und in dieses Objekt kannst du beliebige Informationen reinschreiben, da es jedes beliebige Objekt sein darf.
Irgendwie durchläufst Du ja deine
Query zeilenweise und weist den Inhalt der Zelle zu.. Mach zusätzlich noch eine Objektzuweisung:
Delphi-Quellcode:
type
TmyObj =
class
public
StatusID : integer ;
end ;
...
procedure TForm1.ShowInGrid;
var i,j: integer;
begin
if FMySql.Connected
then begin
if assigned(FResult)
then begin // <-- Falls eine SQL Abfrage vorliegt
Grid.RowCount := FResult.RowsCount+1;
// <-- ZeilenAnzahl
Grid.ColCount := FResult.FieldsCount;
// <-- SpaltenAnzahl
FResult.First;
for i:=0
to FResult.RowsCount-1
do begin // <-- Zeilen durchlaufen
for j:=0
to FResult.FieldsCount-1
do // <-- Spalten durchlaufen
Grid.Cells[j,i+1] := FResult.FieldValue(j);
// hier ergänzen
myObj := TmyObj.create ;
myObj.StatusID := FResult.FieldByName('
StatusID').AsInteger ;
Grid.Objects[0,i+1] := myObj ;
FResult.Next;
Statusbar1.Panels[0].Text := IntToStr(Grid.RowCount) + '
Einträge';
end;
end
else
ShowMessage('
Keine SQL-Abfrage !');
end
else
ShowMessage('
Not Connected');
end;
Im OnDrawCell Event kannst Du dann auf diese Objekte zugreifen, und entscheiden, in welcher Farbe du zeichnen möchtest.