Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by OLLI_T,
4. Dez 2003
HY Micha!
Sorry wegen meines Fehlers gestern! Ansonsten viel Spass hiermit ... :
if Pos(LowerCase(edt_suchen.text),LowerCase(node.text))>0 then
treeview1.canvas.font.Color :=clred;
Gruss
OLLI
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by OLLI_T,
3. Dez 2003
HY!
Bernd hat völlig recht. Du musst gar nicht suchen, wenn Du das Ergebnis nur Visualisieren willst. Es reicht aus, z.B. die Variablen FSuchText_1,FSuchText_2:String entsprechend der Suchanfrage(n) zu setzen und dann mit Treeview.Invalidate ein Neuzeichnen der Baumansicht zu erzwingen.
@Bernd: Ich klau mal gerade Deinen Code: :zwinker:
Procedure TForm1.TreeView1CustomDrawItem(Sender:...