Hi,

wenn ich für das Einfärben des DBCtrlGrids den Code nehme, den ich bei dem DBGrid nehme funktioniert das nicht richtig. Er färbt in der Box die z.B. grün sein soll nur den Hintergrund grün ein. Erst in der nächsten Box ist dann das DBLabel eingefärbt...
Wie kann ich es denn hinbekommen, dass das DBCtrlGrid richtig eingefärbt wird?

Das Ereignis OnPaintPanel wird ausgelöst, wenn das TDBCtrlGrid-Objekt eine Tafel im Gitter anzeichnen muß.

type TPaintPanelEvent = procedure(DBCtrlGrid: TDBCtrlGrid; Index: Integer) of object;
property OnPaintPanel: TPaintPanelEvent;

Beschreibung

Mit einer Ereignisbehandlungsroutine für OnPaintPanel können Sie das Zeichnen einer Tafel im TDBCtrlGrid-Objekt an die jeweiligen Anforderungen anpassen. Der Hintergrund wird in der Farbe der Eigenschaft Color oder SelectedColor gezeichnet. Falls die Eigenschaft PanelBorder entsprechend eingestellt wurde, wird auch ein Rahmen angezeigt. Anschließend wird das Ereignis OnPaintPanel ausgelöst, damit eine Ereignisbehandlungsroutine das Bild der Tafel einfügen kann.

Der Parameter DBCtrlGrid bezeichnet das Gitter, das die Tafel enthält. Der Parameter Index ist der Index der zu zeichnenden Tafel. Der Wert 0 bezieht sich auf die erste Tafel, der Wert 1 auf die zweite Tafel usw. Mit der Eigenschaft PanelIndex können Sie bestimmen, ob die gezeichnete Tafel ausgewählt ist.

Mit der Eigenschaft Canvas können Sie die Tafel zeichnen. Der Punkt (0,0) der Zeichenfläche entspricht der linken oberen Ecke der Tafel und der Punkt (PanelWidth,PanelHeight) der rechten unteren Ecke.

Die Steuerelemente werden einzeln in die Tafel eingefügt und müssen nicht mit einer Ereignisbehandlungsroutine für OnPaintPanel gezeichnet werden.