Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Markierung bei Treeview (https://www.delphipraxis.net/97334-markierung-bei-treeview.html)

elundril 8. Aug 2007 23:52


Markierung bei Treeview
 
Hello,
ich hab da ein kleines Style-Problem mit meinem ShellTreeView, welches ich gerne mit zwei Bildern veranschaulichen möchte.

http://www.friendnet.at/photos/979d4...c096d9a80.jpeg

http://www.friendnet.at/photos/88a88...bc2198e9c.jpeg


Bild1 zeigt mein Shelltreeview, wenn das Programm gestartet wird.
Bild2 zeigt genau das selbe Shelltreeview, bloß nachdem ich auf Programme geklickt habe.
Beide Shelltreeviews haben als Path: 'C:\Programme\'

Bloß den Unterschied, den man eh sehen kann, will ich nicht haben. Ich hätte gerne von Anfang an, dass 'C:\Programme' markiert ist.

Bitte, wie geht???

bitsetter 9. Aug 2007 00:21

Re: Markierung bei Treeview
 
Hallo,

man könnte beim Start des Programms folgenden Code ausführen:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
begin
  with ShellTreeView1 do
    for i := 0 to Items.Count - 1 do
      if Folders[i].PathName= 'C:\Programme' then
      begin
        Items.Item[i].Selected:= true;
        break;
      end;
end;

marabu 9. Aug 2007 06:03

Re: Markierung bei Treeview
 
Guten Morgen,

wenn der Pfadname bereits ermittelt wurde, dann muss er eigentlich nicht mehr gesucht werden:

Delphi-Quellcode:
procedure TShellForm.FormCreate(Sender: TObject);
begin
  ShellTreeView.Path := 'C:\Programme'; // GetSpecialFolderLocation(CSIDL_PROGRAM_FILES{$26});
end;
Grüße vom marabu

SirThornberry 9. Aug 2007 07:04

Re: Markierung bei Treeview
 
Vermutlich steht "TreeView.HideSelection" noch auf True so das die Selektierung nur sichtbar ist wenn das Control das aktive Control ist.


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:51 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