Hallo Community,
ich hoffe ich kann mir jemand von euch weiter helfen. Und zwar versuche ich derzeit die ungeraden Zeilen in einem DBGrid andersfarbig darzustellen, als die geraden Zeilen
Das ganze funktioniert auch schon ganz wunderbar mir
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
| procedure TForm_Haupt.DBGridDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var zeile : LongInt;
gerade : integer;
begin
if (DataCol = 0) then
begin
zeile := Form_Haupt.RxMemoryData.RecNo;
gerade := zeile mod 2;
case gerade of
1: Form_Haupt.DBGrid.Canvas.Brush.Color := clMenu;
end;
Form_Haupt.DBGrid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end; |
Nur leider färbt er mit dieser Funktion lediglich die erste Zelle in jeder Zeile. Ich möchte jedoch die gesamte Zeile andersfarbig darstellen.
Ich weiß, dass die Case-Anweisung eigentlich ziehmlich überflüssig ist, aber eventuell wird das ganze noch erweitert.
