Forum: Sonstige Fragen zu Delphi
Delphi
by chaosben,
28. Apr 2009
Ja, das es in der Demo klappt ist Zufall. :)
Forum: Sonstige Fragen zu Delphi
Delphi
by chaosben,
28. Apr 2009
Ja, sorry ... mein Fehler.
Natürlich muss man vor dem TextOut nicht dem Pen sondern dem Font die Farbe zuweisen.
Text := Format('%d %%', );
Font.Color := clBlue; //<----- hier
Brush.Style := bsClear;
TextOut(CellRect.Left + ((CellRect.Right - CellRect.Left) div 2) - (TextWidth(Text) div 2),
CellRect.Top + ((CellRect.Bottom - CellRect.Top) div 2) - (TextHeight(Text) div 2),
...
Forum: Sonstige Fragen zu Delphi
Delphi
by chaosben,
27. Apr 2009
Das einfachste ist eine selbstgeschriebene OnAfterCellPaint à la:
var
NData : PNodeData;
PBRect : TRect;
Text : String;
begin
if Column = 1 then
begin
if GetNodeData(Node, NData) then
begin