Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Virtual stringtree Delphi 10.3 (https://www.delphipraxis.net/204371-virtual-stringtree-delphi-10-3-a.html)

js747a 24. Mai 2020 13:51

Virtual stringtree Delphi 10.3
 
Liste der Anhänge anzeigen (Anzahl: 1)
Ich arbeite seit langen an einem Programm zur steuerung von Modelleisenbahnen.
Da verwende ich Virtual Stringtree in Delphi 7.

Jetzt habe ich zu Delphi 10.3 gewechselt.
Als erstes war das Problem mit dem Daten Laden. Delphi 10.3 konnte die Daten nicht volständig laden.
Das Problem war String als Datentyp in dem Datenrecord.

pVTNodeData = ^rVTNodeData; // Zeiger auf die Daten-Struktur
rVTNodeData = record // Daten-Struktur
Text : String; // Text-Inhalt

geändert in

Text : AnsiString; // Text-Inhalt

Danach würden schon mal die Daten richtig angezeigt.


Seit ich nach Delphi 10.3 gewechselt habe zeigt die Stringtree alle Images im Baum doppelt an.
Habe es mal einer kleinem Projekt versucht und es werden immer 2 x die images angezeigt. Siehe Bild.

Habe ich eine Einstellung im Stringtree vergessen ?

Aviator 24. Mai 2020 14:30

AW: Virtual stringtree Delphi 10.3
 
Schau dir mal im
Delphi-Quellcode:
OnGetImageIndex
Event den Parameter Kind an. Dort solltest du ggf. noch auf
Delphi-Quellcode:
ikOverlay
und
Delphi-Quellcode:
ikState
(hoffe ich habe die Namen richtig im Kopf) prüfen. Du solltest nur in
Delphi-Quellcode:
ikNormal
und
Delphi-Quellcode:
ikSelected
den entsprechenden ImageIndex zurückgeben. Das könnte in dem Fall helfen. Für State und Overlay braucht man eine zusätzliche ImageList bzw. muss eine existierende ImageList an die entsprechenden Properties im Tree binden.

js747a 24. Mai 2020 17:24

AW: Virtual stringtree Delphi 10.3
 
Danke. Das war sehr hilfreich.

Hat sich Einiges verändert von Delphi 7 nach Delphi 10.3.
Mal sehen was als Nächstes kommt.


http://www.johnny-modellbau.de/


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:42 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz