OpenDirDialog

[Garfield]

SizeGrip eingefügt. Auf ein Panel werden Linien gezeichnet und das Panel wird rechts unten festgehalten. Dazu zwei Variablen, die in der Initialisation gesetzt werden und sich die Größe "merken". Alle Dateien oben aktualisiert.

Jetzt müsste das ganze noch Unicode unterstützen.

[Garfield]

Das TSizeGripPanel wurde nach http://www.delphi3000.com/article.asp?ID=3785 durch eine TPaintBox ersetzt.

[FAlter]

Hi,

ich habe noch eine kleine Kleinigkeit entdeckt... bei mir ist die Schrift (Title) unten abgeschnitten, sodass Buchstaben wie g, j, p, q nicht richtig angezeigt werden.

Ansonsten noch ein Vorschlag: Wie wärs, wenn man die Schriftart einstellen könnte?

Mfg
FAlter

[Garfield]

Moin Felix,

vielen Dank für Deinen Hinweis und Deinen Vorschlag.

Ich hatte für die Höhe des Labels die Standardhöhe von 13 Pixel verwendet aber die Font.Size um 1 erhöht. Bei mir passte die Höhe dennoch. :? Nun wird vor der Festlegung der Labelgröße die Höhe der Schriftart ermittelt.

Das Ändern der Schriftart und -größe hatte ich im ersten Entwurf drin. Weil es mit der Mehrzeiligkeit nicht klappte, hatte ich es wieder entfernt. Nun ist die Eigenschaft Fontname dazu gekommen.

Downloads für Source und Demo aktualisiert.

[ReBoot]

Frage: kann ich als Root auch nen Pfad angeben, bzw ein Laufwerk? Um genau zu sein, wie kann ich das angeben? Grad die Demo versucht und es hat net geklappt.

[Garfield]

Dazu müsstest Du in der Klasse TOpenDirDialog unter published die Zeile

Delphi-Quellcode:

property Root       : String write SetRoot;

in

Delphi-Quellcode:

property Root       : String write FRoot;

ändern.

[Garfield]

In Build 7 gibt es ein paar kleine Änderungen:

• Die Initialvariablen für die Höhe und die Breite des Dialoges heißen nun OpenDirDlg_Height und OpenDirDlg_Width. Dürfte zur Verwendung im Hauptprogramm sinnvoller sein.
• Die Befehlsfolge bei der Erstellung des Labels für den Title wurde geändert. Dadurch funktioniert nun der Zeilenumbruch für mehrzeilige Titel.
• Das TLabel für den Title wurde gegen ein TWideLabel ausgetauscht. Das ist ein von mir modifiziertes TCustomLabel. Somit darf der Title auch Unicodezeichen enthalten. Die korrekte Darstellung ist von der verwendeten Schriftart abhängig.
  Hinweis: Das Edit in der Demo unterstützt kein Unicode.

[Jufis]

Hi,

Frage: Gibt es mit dem Dialog eine Möglichkeit, außer einem Ordner auch eine Datei zu wählen? :?:

MfG

Jufis

[BullsEye]

Nein, soweit ich das weiß, ist es nur möglich einen Ordner zu öffnen!

[Jufis]

Schade, das Tool gefällt mir eigentlich.

Ich suche allerdings eine Möglichkeit, entweder einen Ordner zu wählen (per Mausklick und zusätzlich wie hier in einem Eingabefeld) oder aber nur eine einzelne Datei zu selektieren. Könnt Ihr mir da helfen?

MfG

Jufis