Forum: Object-Pascal / Delphi-Language
by Bjoerk,
6. Mai 2014
Gar nicht. Schreib dir eine neue Methode. So von weitem: if iDoppeltcounter>1 then scheint mir da falsch zu sein?
Forum: Object-Pascal / Delphi-Language
by Bjoerk,
5. Mai 2014
Das war nur ein ein Beispiel. Du kannst das natürlich so machen oder auch anders, so wie du das halt brauchst und am besten in den bestehenden Quellcode passt.
Forum: Object-Pascal / Delphi-Language
by Bjoerk,
5. Mai 2014
Das kann z.B. mit den Objects eures StringGrids machen, ist aber nicht optimal. Eigentlich sollten Logik und Darstellung nicht vermischt werden.
procedure TForm1.MyStringGridDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
with (Sender as TStringGrid) do
begin
if Objects <> nil then
begin
Canvas.Brush.Color := TColor(Objects);