Na das hab ich getan, alles auf englisch. Und keine Beispiele.
ich stell mal ein Codeschnippzel ein
[
Delphi-Quellcode:
procedure TfrmMain.drgAlleFilmeGetDrawInfo(Sender: TObject; DataCol: Integer;
DataRow: Variant; var DrawInfo: TtsDrawInfo);
begin
if (drgAlleFilme.CurrentDataRow = DataRow) then begin
DrawInfo.Color := clInactiveCaption;
DrawInfo.Font.Color := clBlue;
drgAlleFilme.FocusColor := clInactiveCaption;
drgAlleFilme.FocusFontColor := clBlue;
end else begin
intLastZeile := DM.qryAlleFilmeintReihenFolge.Value;
if (drgAlleFilme.GridStatus = grNormal) then begin
if intLastZeile <> intNextZeile then blnFarbeWechseln := not blnFarbeWechseln;
if blnFarbeWechseln = false then begin
DrawInfo.Color := clAqua;
drgAlleFilme.FocusColor := clAqua;
end else begin
DrawInfo.Color := clInfoBK;
drgAlleFilme.FocusColor := clInfoBK;
end; // if
end; // if
intNextZeile := DM.qryAlleFilmeintReihenFolge.Value;
end; // if]
end; // TfrmMain.drgAlleFilmeGetDrawInfo
procedure TfrmMain.drgAlleFilmeRowChanged(Sender: TObject; OldRow, NewRow: Variant);
var
iRow,
iCol :integer;
begin
iRow := drgAlleFilme.DisplayRownr[OldRow];
for iCol := 1 to drgAlleFilme.Cols do drgAlleFilme.CellInvalidate(iCol, iRow);
iRow := drgAlleFilme.DisplayRownr[NewRow];
for iCol := 1 to drgAlleFilme.Cols do drgAlleFilme.CellInvalidate(iCol, iRow);
end; // TfrmMain.drgAlleFilmeRowChanged]
]
Das ganze funktioniert auch, aber nur solange ich nicht auf das Grid klicke, dann kommt alles durcheinander.
Kann mir jemand sagen, was ich ändern muß?
Gruß haalmu