StandartDialoge - AnzeigePosition

[JörgG]

Hallo zusammen, ich verbau grad ein Load- und Save-Dialog & 'ein Inputdialog.
1. kann ich bei diesen Biestern vorher die Position Definieren?
2. Beim SaveDialog kommt bei bereits vorhandener Datei ein Nachfrage wg. Überschreiben. Wie kann ich diese unterdrücken?
Gruß Jörg

[Frabbing]

Zu 1: Glaub ich nicht. Die Position bestimmt Windows.
Zu 2: Dazu mußt du - wenn - den Save-Dialog per API erstellen. Es gibt da ein Flag um bestimmte Meldungen zu unterdrücken. Ob diese auch dazu gehört, da bin ich grad überfragt

[JörgG]

Ok Danke Frank, ich schau mal, ob ich da durchsteige. Hab in der Hilfe ein Beispiel für SaveDialog per API gefunden...
Aber jetzt mal ganz dumm gefragt, könnte Roland (falls er möchte) bei diesen Dialogen nicht einen weiteren Parameter für das Zielfenster einbauen? Dann könnt ich ja vorher ein kleines winziges Fenster an der gewünschten Position erstellen & dann den StandardDialog darin erstellen.
Gruß Jörg

Guten Tag.
Wenn ich mir die Featureliste für XProfan 12 auf XProfan - eine einfache Programmiersprache so anschaue dann kann XProfan ab Version 12 die Load- und Savefile Dialoge an, mittels Handle übergebenen, Fenstern ausrichten.

Gruß

[Frabbing]

Hab ich bislang gar nicht ausprobiert. Kann man jeden beliebigen Controlhandle angeben? Dann wäre eine Positionierung ja vielleicht möglich. Müßte man mal testen.

[JörgG]

...kann XProfan ab Version 12 die Load- und Savefile Dialoge an, mittels Handle übergebenen, Fenstern ausrichten.

aaah-ja, alo muß ich mich noch ein Weilchen gedulden Oder gibt es vllt. eine Dll, mit der man solche Dialoge händeln kann? Hab zwar reichlich gestöbert, aber wer weiss...
Gruß Jörg

[Frabbing]

Hier ist ein älterer Code, der auf API basiert, ich glaub, in der XProfan-Hilfe ist auch einer:

Declare sname#,sopensave#,sfilter#,svorgabe#,charformat#,nurso#,nurso2#,xx&,yy&,karl1&,karl2&,syntax#,bereich3#,docinfo#
Declare world$,conti&,text$
Dim sfilter#,1024
Dim svorgabe#,1024
Dim sname#,1024
Dim sopensave#,80

Def APIGetOpenFileName(1) ! "COMDLG32.DLL","GetOpenFileNameA"

Proc Loadfile
Parameters dlg_name$

Clear sfilter#
Clear svorgabe#
Clear sname#
Clear sopensave#

Long sopensave#,0 =  76        'Größe der Struktur
Long sopensave#,4 =  %hwnd     'Aufrufendes Fenster
Long sopensave#,12 = sfilter#  'Vorgabefilter
Long sopensave#,28 = svorgabe# 'Vorgabestring -> entweder Dateiname oder *.*
Long sopensave#,32 = 256       'MaxFile
Long sopensave#,48 = sName#    'Dialogbox-Überschrift
Long sopensave#,52 = $81002    'Flags ' subrahiere hier mal $80000 !!!

string sfilter#,0  ="Textdateien"+chr$(0)+"*.TXT;*.BAT;*.PRF;*.P32;*.DEF;*.INC;*.PH;*.ASM;*.BAS;*.CPP;*.PAS;*.DFM"+chr$(0)+"Alle"+chr$(0)+"*.*"+chr$(0)+Chr$(0)
string svorgabe#,0 =""
String sname#,0    =dlg_name$


ApiGetOpenFileName(sopensave#)

dlg_name$=String$(svorgabe#,0)

Return dlg_name$
EndProc

Cls
LoadFile "Textdatei laden..."
text$=@$(0)
If text$<>""
  Print text$
  WaitInput
EndIf

End

Probier mal in der Zeile Long sopensave#,4 = %hwnd 'Aufrufendes Fenster, ob du auch Parentcontrols angeben kannst. Evt. könntest du dann ein unsichtbares Mini-Staticcontrol dort verwenden, um so eine bestimmte Position zu erzwingen.
Ich hab's nicht getestet.