Zitat von
DeddyH:
Ich seh da jetzt auf Anhieb nix, was zum Fehler führen könnte. Evtl. hast Du weiter oben ein end vergessen oder sowas?
[edit] Welcher Fehler wird denn eigentlich gemeldet? [/edit]
Project Project1.exe raised
exception class EAccessViolation with message '
Access violation at address 00473CF0 in module 'Project1.exe'. Read of address 0000000'. Process stopped. Use Step or Run to continue.
--> Fehlermeldung
Dann zeigt er bei der LeisteDrawCell bei case of ... ; einen Fehler. Schau mal oben in meinen Quelltext bei der Leiste (weiter oben). Ich markier es gleich
Delphi-Quellcode:
{=====================================================================}
procedure TForm1.LeisteDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if Leiste.Cells[ACol,Arow] <> '-1' [b]--> Fehler wird hier angezeigt !!!!!!!!!!!!!!!!!!!!!![/b]
then
case Leiste.Cells[ACol,ARow][1] of
'0' : Leiste.Canvas.Brush.Color := clRed;
'1' : Leiste.Canvas.Brush.Color := clBlue;
'2' : Leiste.Canvas.Brush.Color := clYellow;
'3' : Leiste.Canvas.Brush.Color := clGreen;
'4' : Leiste.Canvas.Brush.Color := clWhite;
else Leiste.Canvas.Brush.Color := clBlack; // Farbe für "gelöscht"
end; // endcase
Leiste.Canvas.Pen.Color := clBlack;
Leiste.Canvas.Rectangle(Rect);
end;
{=====================================================================}