Jo, das Beispiel ist wirklich zu mager. So ungefähr muß es aber aussehen. Das ist die Stelle, die bei Dir wohl Ärger macht :
Delphi-Quellcode:
procedure Tfrm.sgDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
const IsChecked : array[Boolean] of Integer =
(DFCS_BUTTONCHECK, DFCS_BUTTONCHECK or DFCS_CHECKED);
var DrawState: Integer;
DrawRect: TRect;
begin
inherited;
Wenn das alleine nicht reicht, dann poste bitte den eigenen Quelltext. Die komplette Prozedur hat ca. 200 Zeilen und würde wohl nichts nützen, weil zu speziell. Außerdem ist es
OOP-mäßig strukturiert, d.h. einige Eigenschaften sind eventuell bereits bei einem Vorfahren deklariert.