im Teltreestringgrid die Textfarbe einer Spalte ändern

[Natcree]

Habe ein Treestringgrid und kein ondrawcell ereignis zur verfügung wie bekommen ich den Text einer Spalte in clred.

Ich Füge mal einen Ausschnitt der Events mit ein.

Ich hoffe Ihr könnt mir weiter Helfen...

[Sir Rufo]

Schau dir doch einfach mal alle Events an wo Draw vorkommt :roll:

[Aviator]

Mir fallen da spontan die Ereignisse "OnItemDraw", "OnItemPostDraw" und "OnItemPreDraw" ins Auge wobei letzteres wohl am ungeeignetsten sein wird.

[Natcree]

Onitemdraw und postdraw habe ich shon versucht aber irgendwie ändert es nicht an der Text farbe

[Natcree]

Das ist mein Code

Delphi-Quellcode:

procedure TForm1.ElTreeStringGrid1ItemDraw(Sender: TObject;
  Item: TElTreeItem; Surface: TCanvas; R: TRect; SectionIndex: Integer);
var
i:integer;
begin
for i:= 1 to eltreestringgrid1.RowCount do
if eltreestringgrid1.Cells[3,i]='' then else
eltreestringgrid1.Font.Color:= clred;
end;

[Natcree]

Die Itemdraw Events beziehen sich alle auf die Tree und nich auf die Cells keine shance kannmann so etwas mit ner funktion schreiben?

[Sir Rufo]

Schau dir doch mal an, was der Event dir alles liefert.

Ausserdem ist das ein Event der für jedes Item einzeln (beim Zeichnen dieses) aufgerufen wird.
Daraus folgt, dass du dich hier nur um dieses eine Item kümmern musst (und wichtiger auch nur sollst).

Das Row-fache Setzen der Font-Farbe bewirkt Schlimmstenfalls sogar ein ständiges Neuzeichnen des gesamten Controls, was wiederum das Zeichen der Items auslöst, was wieder die Font-Farbe setzt, was wieder das Neuzeichenen ... usw. usw. usw.

Diese Komponente ist mir nicht bekannt (vom Namen ja, sonst nicht), aber ich würde in dem Event mal vorsichtig damit anfangen:

Delphi-Quellcode:

procedure TForm1.ElTreeStringGrid1ItemDraw(Sender: TObject;
  Item: TElTreeItem; Surface: TCanvas; R: TRect; SectionIndex: Integer);
begin
  Surface.Font.Color:= clred;
end;

Wird jetzt alles rot, dann kannst du dich daran machen über das Argument

Delphi-Quellcode:

Item

herauszufinden, zu welcher Spalte das gehört.

Möglicherweise sollte das aber auch in den OnItemPreDraw Event (setzen der Canvas-Font-Farbe)

[Natcree]

mit textcolor färbt er alles rot aber nicht unter itemdraw itemdraw ist wohl für den treeview gedacht

[Sir Rufo]

Erstell mal nur das OnItemPreDraw Event und setze dort

Delphi-Quellcode:

Surface.Font.Color := clRed

und schau, ob jetzt alles in rot gezeichnet wird.

[Natcree]

Dieses Event bezieht sich auf tree souface kommt nicht vor