Zusätlich zum manuell auslösen gibt es noch ein Problem.
Nämlich werden alle Ereignisse blockiert. Ich habe:
Delphi-Quellcode:
procedure TForm1.TabelleDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
with TStringGrid(Sender).Canvas do begin
if (ACol=0) and (ARow=0) then begin
If Colormod='clwhite' then
Brush.Color:=clwhite
else
Brush.Color:= clRed;
end;
FillRect(Rect);
end;
end;
und
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var S1,S2:integer;
begin
Colormod:='clred';
Feldmase:=10;
SetLength(Feld,Feldmase,Feldmase);
SetLength(Feld2,Feldmase,Feldmase);
ConfigField();
for S1:=0 to (feldmase-1) do begin
Tabelle.Cells[S1,0]:='X';
Tabelle.Cells[S1,(feldmase-1)]:='X';
Tabelle.Cells[0,S1]:='X';
Tabelle.Cells[(feldmase-1),S1]:='X';
end;
[...]
Benutze ich das Ereigniss unter OnDrawCell nciht so werden die X-Zeichen eingezeichnet. So sehe ich aber nur ein rotes Feld und das wars...
Wie kann das sein?