Dialog und Button werden unterschiedlich plaziert !

[horsthorn]

Wenn ich diesen Code starte...

PROC DIALOG
PARAMETERS X%,Y%,breit%,hoch%
        VAR win&=CREATE("DIALOG",%hwnd,"Dialog",x%,y%,breit%,hoch%)
ENDPROC

PROC BUTTON
PARAMETERS X%,Y%,breit%,hoch%
        VAR but&=CREATE("BUTTON",%hwnd,"Button",x%,y%,breit%,hoch%)
ENDPROC
'--------------------------------------
WINDOW (%MaxX/2-250),(%MaxY/2-150)-500,300
        DIALOG 10,10,100,100
        BUTTON 200,150,100,35
WAITINPUT
end

...wird das Dialogfenster links oben auf meinem 21-Zoll-Monitor gezeigt !
Der Button wird auf dem Profan-Fenster da gezeigt, wo er auch hin soll.
Was ist da falsch ?
Normal müsste auch das Dialogfenster auf dem Hauptfenster gezeigt werden oder ???

[Volkmar]

Dialoge und Buttons sind zwei unterschiedliche Dinge. Einen Dialog kannst Du jederzeit über das ganze Fenster bewegen. Und das vollkommen unabhängig vom Elternfenster. Umgekehrt kannst Du das Elternfenster bewegen und der Dialog folgt dieser Bewegung nicht. Die Angabe des Elternfensters dient im Wesentlichen nur dazu, den Dialog automatisch zu zerstören, wenn das Elternfenster schließt.
Ein Button (oder jedes andere Control) hingegen ist im Elternfenster "gefangen". Ein dementsprechendes Fenster könntest Du mit Create("ChildWindow"...) erzeugen. Aber Vorsicht, das verträgt sich nicht so richtig mit anderen Controls im Elternfenster. Beim Überlappen sind böse Nebeneffekte zu erwarten.

Gruß Volkmar

[Andreas Miethe]

Zitat von Volkmar

Einen Dialog kannst Du jederzeit über das ganze Fenster bewegen. Und das vollkommen unabhängig vom Elternfenster. Umgekehrt kannst Du das Elternfenster bewegen und der Dialog folgt dieser Bewegung nicht.

Nicht unbedingt

Man kann das schon beeinflussen

$H Windows.ph
PROC DIALOG
  PARAMETERS X%,Y%,breit%,hoch%
  ~LockWindowUpdate(%Desktop)
  VAR win&=CREATE("DIALOG",%hwnd,"Dialog",x%,y%,breit%,hoch%)
  ~SetParent(Win&,%hwnd)
  ~LockWindowUpdate(0)
ENDPROC

PROC BUTTON
  PARAMETERS X%,Y%,breit%,hoch%
  VAR but&=CREATE("BUTTON",%hwnd,"Button",x%,y%,breit%,hoch%)
ENDPROC
'--------------------------------------
WINDOW (%MaxX/2-250),(%MaxY/2-150)-500,300
DIALOG(10,10,100,100)
BUTTON(200,150,100,35)
SetFocus(%hwnd)
WAITINPUT
end

[Volkmar]

Stimmt auch wieder. Man muß nur die passenden APIs kennen. Aber der Effekt ist dann der Gleiche wie bei "ChildWindow", es gibt Probleme, wenn sich der Dialog und der Button überlappen. Dialog mal überlappend schieben, mit der Maus über den "Restbutton" fahren und dann den Dialog weiter verschieben . Das Ganze braucht also noch ein bißchen mehr, um praktisch genutzt zu werden.

Gruß Volkmar

[horsthorn]

Hat alles seine Vor- und Nachteile. Schön wäre es, wenn eventuell bei

VAR win&=(CREATE("DIALOG"......)

ein zusätzlicher Parameter die Sache steuen würde.
Meinethalben bei '0' wird am Desktop ausgerichtet und bei '1' am Hauptfenster.
Wäre doch vielleicht ein Punkt auf der Todo-Liste für die nächste XProfan-Version oder... Roland ?

[Frabbing]

Roland verschollen?