Delphi-Quellcode:
DrawCell(CurCol, CurRow, AWhere, DrawState);// --->
if DefaultDrawing and (gdFixed in DrawState) and Ctl3D and
((FrameFlags1 or FrameFlags2) <> 0) and
(FInternalDrawingStyle = gdsClassic) and not (gdPressed in DrawState) then
hier landet der Editor, wenn ich auf Anhalten (ERangeError) klicke Gris.pas CustomGid.Paint
Ich habe die Komponente an zwei Stellen verbaut und nachdem ich im Quelltext der Units {$R-} eingetragen habe,
läuft es. Wie gesagt, der Fehler ist mir
nie aufgefallen. Ich habe auch ein Testprogramm für mein
Package geschrieben und da kam der Fehler nicht vor. Ich habe im Projekt aber viele Felder programmgesteuert eingefärbt. >100 mal.
Willie.