[erledigt] TFileNameEdit: merkwürdiges Verhalten

[RudiRatlos]

Hallo in die Runde,

wieder einmal mache ich meinem Name alle Ehre.

Das Problem ist eigentlich einfach, aber für mich rätselhaft: Ein einfaches Programm besteht nur aus einem Objekt TFileNameEdit, das ich aufrufe.

- Ein Klick auf den rechten Button des Objekts ergibt ein Bild wie in Schreenshot (101). Das Feld "Datei" zeigt den Namen links abgeschnitten, also 'sRg\PraxisRg.ini.'
- Klicke ich auf das Feld "Datei" springt die Ansicht um zu Schreenshot (102) und der Name erscheint vollständig, also 'D:\0_Common\pascal\Praxis\PraxisRg\PraxisRg.ini'

Ist das bei Euch auch so? Oder habt Ihr einen anderen Tipp als Brille putzen?

Viele Grüße und schon mal vielen Dank im Voraus

RudiRatlos

Windows 10, Lazarus 3.0

[wp_xyz]

Liegt nicht an dir, sondern das ist eine Eigenheit von Windows, um die sich anscheinend niemand kümmert (Delphi hat's auch, aber auch Notepad++ und viele andere). Die einzige Möglichkeit, es zu verhindern, wäre die Option ofOldStyleDialog zu aktivieren (aber das willst du wahrscheinlich nicht - probier's aus...)

[RudiRatlos]

vielen Dank für den Hinweis.

Ich habe zwar etwas gegrübelt, wie man das macht, habe aber dann gefunden, dass man ganz einfach

Code: Alles auswählen

FileNameEdit1.DialogOptions:=FileNameEdit1.DialogOptions + [ofOldStyleDialog];

setzen kann.

Das Ergebnis findet Ihr weiter unten und erinnert sehr an uralte Delphi-Zeiten, damit alle was davon haben folgt ein Screenshot!

Vielen Dank,
ich finde es wirklich toll, mit welchem Wissen und welcher Hilfsbereitschaft viele hier aktiv sind !!!

Viele Grüße RudiRatlos

[RudiRatlos]

Hallo allerseits,

zur Demonstration habe ich für Windows 10 ein kleines einfaches Programm FileDialog geschrieben, das die Dialogmöglichkeiten mit

• TFileNameEdit (fehlerhaft)

• TDirectoryEdit

• TSaveDialog (kann TFileNameEdit ersetzen)

• TOpenDialog (kann TFileNameEdit ersetzen)

enthält.

Vielleicht hilft es dem einen oder anderen ....

Viele Grüße
RudiRatlos

[Soner]

Das hat mit TFileNameEdit nichts zu tun. TFileNameEdit verwendet verschiedene Dialoge die von TFileDialog abstammen, ähnliches verhalten gibt es auch dort, siehe TFileNameEdit.DialogKind oder irgendein FileDialog aus Dialogs-Unit. Ich habe auf die schnelle nach Fehlern gesucht, aber ich konnte nichts finden.
Ich denke bevor Windows-Dateidialog geöffnet wird muss Pfadangabe etwa so "WindowsDateiDialog.FileName:=:=ExtractFilePath(Filename);" entfernt werden.

[Soner]

Ich habe in lcl\include\FileDialog.inc folgende Änderung gemacht:

Code: Alles auswählen

procedure TFileDialog.SetFileName(const value : string);
begin
  //original: if FFilename=Value then exit;
  //original: FFileName := Value;  // make sure this is defined first before the CNSendMessage
  FInitialDir:=ExtractFilePath(value);
  FFileName := ExtractFileName(value);
end; 

Jetzt wird Dateiname richtig angezeigt, aber Initialdir ist falsch, weil vor dem Ausführen des Dialogs InitialDir nochmal neu gesetzt wird mit "InitialDir:=ExtractFilePath(FileName);", wozu?
Ich denke InitialDir sollte nur bei SetFileName und SetInitialDir gesetzt werden.
Man muss die Unit mal komplett durchschauen und korrigieren.

[RudiRatlos]

Vielen Dank Soner, das ist richtig ...

Aber so wie jetzt SetFilename in lcl\include\FileDialog.inc definiert ist, stellt man fest, dass InitialDir leer ist, deshalb habe ich es gesetzt. Ich habe keine Ahnung, wie man erreicht, dass FileDialog.inc geändert wird. An wen muss man sich wenden?

Bevor das nicht geändert wird, muss ich das in meinem Programm setzen.

Viele Grüße und nochmal vielen Dank für den Hinweis

RR

[af0815]

Aber so wie jetzt SetFilename in lcl\include\FileDialog.inc definiert ist, stellt man fest, dass InitialDir leer ist, deshalb habe ich es gesetzt

DIe Frage ist hier, ob das leere InitialDir absicht ist. Damit kann der Dialog das letzte dem System bekannte Verzeichnis verwenden. Setzt du es explizit dann überschreibst du ein eventuell gewolltes Verhalten.

[RudiRatlos]

unter
https://gitlab.com/freepascal.org/lazar ... sues/40845

hat jemand gestern einen Call dazu aufgemacht, ob das Zufall ist, oder auf diesen thread zurückgeht, weiß ich nicht