Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sharky,
14. Mär 2005
:wall:
Ich sollte die Brille putzen. :mrgreen:
Wenn es auch schon in der ersten Spalte sein soll dann nehme die Prüfung auf diese doch raus ;-)
if (ARow > 1) then
begin
.
.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sharky,
14. Mär 2005
Setze mal .With := 10 dann sieht man den Fehler besser.
Du hast in deiner Frage ja auch gesagt das es bei jeder 2. Spalte sein soll ;-)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sharky,
14. Mär 2005
Hai Hansa,
und wieder heist es: "selber zeichnen" ;-)
hier einmal ein Ansatz:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if (ACol > 0) and (ARow > 1) then