CxGrid: Problem in OnCustomDrawCell mit Bild UND TextFormatierung

[Memnarch]

Ich habe ein Problem mit dem OnCustomDrawCell:

Anhand dieses Beispiels habe ich das Zeichnen von Icons neben text in einzelnen Zellen implementiert. Funktioniert auch super. Allerdings ändert sich ein entscheidendes Verhaltensmuster.

Wenn man ein leeres OnCustomDrawCell nimmt und dort z.B. eigenschaften des Canvas verändert und ADone = False setzt, wird diese Änderung beim normalen Zeichnen berücksichtigt:

Delphi-Quellcode:

procedure TForm1.cxGrid1DBTableView1CustomDrawCell(
 Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
 AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
 ACanvas.Font.Color := clRed;
 ACanvas.Font.Style = [fsBold];
 ADone := False;
end;

Der Text in den Zellen wird nun Rot und Fett gezeichnet. Schreibe ich diese beiden Zeilen an den ANfang des im Beispiel gezeigten OnCustomDrawCell, funktioniert dass nicht mehr.
Selbst wenn alles wieder rausgenommen wird, und nur über den Painter normal gezeichnet wird:

Delphi-Quellcode:

procedure TForm1.cxGrid1DBTableView1CustomDrawCell(
 Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
 AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
 APainter: TcxPainterAccess;
begin
 ACanvas.Font.Color := clRed;
 ACanvas.Font.Style = [fsBold];
 APainter := TcxPainterAccess(TcxViewInfoAcess(AViewInfo).GetPainterClass.Create(ACanvas, AViewInfo));
 with APainter do
 begin
   try
     DrawContent;
     DrawBorders;
   finally
     Free;
   end;
 end;
 ADone := True;
end;

Funktioniert nicht. Die Zelle wird normal gezeichnet, die Formatierungsänderungen sind aber nicht dabei. Habe schon jede Menge rumprobiert, rätselgeraten und durch den SOurce gestöbert. Aber konnte den Grund bisher nicht finden. Sofern ich das im DevExpress-Source sehen konnte, wird falls OnCustomDrawCell ADone = False zurückliefert, ebenfalls nur DrawContent und DrawBorder aufgerufen.

Jemand ne Idee?

MFG
Memnarch

[Dejan Vu]

Hat der Painter keinen Canvas?

PS: der lokale Painter sollte kein 'A' als Prefix im Namen haben, denn er ist kein Argument.

[Memnarch]

Zitat:

Zitat von Dejan Vu (Beitrag 1279695)

Hat der Painter keinen Canvas?

Der bekommt den Canvas im Constructor übergeben und stellt diesen wieder lediglich zur Verfügung. Ist also die Selbe instanz, wie die die ich als Parameter bekommen hab.

Zitat:

Zitat von Dejan Vu (Beitrag 1279695)

PS: der lokale Painter sollte kein 'A' als Prefix im Namen haben, denn er ist kein Argument.

Das ist der (reduzierte) Beispielcode.

[Dejan Vu]

Zitat:

Zitat von Memnarch (Beitrag 1279717)

Zitat:

Zitat von Dejan Vu (Beitrag 1279695)

Hat der Painter keinen Canvas?

Der bekommt den Canvas im Constructor übergeben und stellt diesen wieder lediglich zur Verfügung. Ist also die Selbe instanz, wie die die ich als Parameter bekommen hab.

Und wenn keine Eigenschaft des Canvas verändert wird, wieso funktioniert das dann nicht? Setze doch einfach mal die Fonteigenschaften über die Canvas-Property des Painters.
..

Zitat:

Das ist der (reduzierte) Beispielcode.

Ach, von DevExpress? Schande über die ;-)

[Memnarch]

Ich kann es Montag nochmal versuchen, aber ich war mir sicher, dass das auch nicht geklappt hat. Ich bin für den lokalen painter das ganze rauf und runter und habe irgendwo tief unten gesehen, dass das hier zu zeichnende edit zuvor (direkt vorm zeichnen) seine einstellungen drüber pinselt.

[Dejan Vu]

Ich glaub jetzt auch nicht, das das die Lösung ist. Aber einen versuch ist es wert, und wenn dieser Painter Änderungen am eigenen Canvas ignoriert, dann gehört er ordentlich geschimpft (= DevExpress-Support). Dann ist das in 24-48h gegessen.

[EarlyBird]

setze die Style Eigenschaften im OnGetContentStyle Event

Delphi-Quellcode:

procedure TForm1.cxGrid1DBTableView1StylesGetContentStyle(
  Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
  AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
var
  myStyle : TcxStyle;
begin
   myStyle := TcxStyle.Create(self);
   myStyle.Font.Style := [fsBold] ;
   myStyle.TextColor := clRed;
   AStyle := myStyle;
end;