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:

markieren

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:

zusammenfalten · markieren

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

Hat der Painter keinen Canvas?

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

Zitat von Dejan Vu:

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 von Dejan Vu:

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

Das ist der (reduzierte) Beispielcode.

Zitat von Memnarch:

Zitat von Dejan Vu:

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

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.

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.

setze die Style Eigenschaften im OnGetContentStyle Event

zusammenfalten · markieren

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;