[nonvcl] Open-, Save- und Schrift-Dialoge?

[delphi_freak]

hi gleich noch ne nonvcl Frage,
wie kann ich die Schriftasuwahl, Saveas- und Opendialoge mit nonvcl erstellen?
PS: Ich habe mir die Tuts von Luckie durchgekcukt. Doch leider habe ich es nicht verstanden....

[Christian Seehase]

Moin Delphi_Freak,

ich kenn' jetzt zwar die Tut's von Luckie nicht, aber zumindest die APIs die hinter dem Open- bzw. Savedialog stehen.
Sollten die Funktionen bei Luckie drin stehen (wovon ich mal ausgehe):
Kannst Du genauer erklären, an welcher Stelle es hakt?

[delphi_freak]

also soweit bin ich gekommen:

Delphi-Quellcode:

 
  ofn : TOpenFileName;
[...]          
 ofn.lStructSize := SizeOf(TOpenFileName);
           ofn.lpstrFilter := Filter;
           ofn.Flags       := OFN_FILEMUSTEXIST or OFN_PATHMUSTEXIST or OFN_LONGNAMES;

das mache ich im WM_CREATE-Event.
dann rufe ich wenn auf ein Item im MainMenü geklickt wird, meine Open-Prozedur auf, die bisher das hier enthält:

Delphi-Quellcode:

if GetOpenFileName(ofn) then
  MessageBox(0,buffer,'gewählte Datei',MB_OK or MB_ICONINFORMATION);

Da muss ich doch bestimmt irgendwas noch zu schreiben, sowas wie ofn.execute...
Denn so wird der Dialog nicht aufgerufen. Weißt du was ?

[OregonGhost]

TOpenFileName.lpstrFile muss auf einen PChar zeigen, der initialisiert ist. Idealerweise ist die Länge wenigstens MAX_PATH. TOpenFileName.nMaxFile muss auf diese Länge gesetzt werden.
Wichtig ist, dass das erste Zeichen im PChar-Puffer ein Nullbyte sein muss.

Ich empfehle dir, die komplette OPENFILENAME-Struktur im PSDK durchzusehen, und alle Elemente zu setzen, die dir von Nutzen sein könnten.

Da du die Variable buffer im nächsten Codestück verwendest, scheinst du nicht den vollständigen Code gepostet zu haben. Wenn es mit dem, was ich oben schrieb, nicht funktioniert, solltest du das vielleicht mal tun.

[Christian Seehase]

Moin Delphi_Freak,

also der Aufruf von GetOpenFileName ist korrekt, wenn Du dazu die Unit commdlg eingebunden hast, und ofn, z.B. als OPENFILENAME deklariert hast.
Wichtig ist nur, dass die erforderlichen Felder in der Struktur auch gefüllt werden.

Am Besten erst einmal alle auf 0 intialisieren (z.B. mit FillChar), und dann die erforderlichen Felder Füllen (vor allem auch immer die Grösse der Struktur)

Um sicher zu gehen, dass dann auch alle Felder korrekt initialisiert sind, empfiehlt es sich dies direkt vor dem Aufruf der Funktion zu machen.

[Luckie]

Jupp, Christian hat recht. Bei mir steht da tatsächlich was. Du mußt nur mal lesen:
http://www.luckie-online.de/delphi/t...opensave.shtml
Praktisch angewand findest du das auch in dem Editor auf meiner Seite und da findest du auch einen Schriftauswahl-Dialog.

Kleiner Tipp: Lad sie dir runter und installier sie (vollständig und auch die Demos werden mit installiert).