Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by huberlix,
3. Dez 2003
Jetzt warst du schneller als ich :wall:
Must halt mit if/then abfragen. Siehe voriges Posting von mir
Gruß, Bernd
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by huberlix,
3. Dez 2003
Also das mit der CaseAnweisung funktioniert nicht. StringTypen sind da nicht erlaubt.
Jetzt hab ich mal ein Treeview mit den Werten A,B,C und D vorbelegt, und mit if/then nach ABCD abgefragt. Der Baum wird vierfarbig gezeichnet.
Hier die Prozedur:
procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by huberlix,
3. Dez 2003
Versteh ich jetzt nicht ganz.
Wenn mich nicht alles täuscht wird TreeView1CustomDrawItem für jeden Node durchlaufen. D.h. der Codeschnipsel von mir müsste reichen. Musst halt in der CaseAnweisung irgendwie deine DBWerte abfragen
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by huberlix,
3. Dez 2003
Procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
case node.Text of
'AAA': treeview1.canvas.font.Color:=clGreen ;
...
'BBB': treeview1.canvas.font.Color:=clred ;