Autor | Thema: Position ändern | | Datum:26.09.02 22:05 
(MG@web.de) | |
habe das prob. mein programm hat im WindowStyle keine titelzeile
und ist auch nur auf das System-Menü beschränkt (was so auch richtig ist) aber wie kann ich jetzt dieses tool in eine andere position bringen?? (verschieben) welche möglichkeiten gibt es da??
MG
|
| | Datum:26.09.02 22:37 
| |
Hallo Mario,
es reicht, einmal zu posten.
Ich bin nicht ganz sicher, aber ich glaube nicht, das das von Windows aus möglich ist.
Da wirst du selbst was entwickeln müssen.
Bei Mausklick in dein Fenster die Fensterposition der Position des Mauszeigers anpassen, bis Mausklick beendet ist.
Gruß, Frank
|
| | Datum:27.09.02 00:54 
(joerse@gmx.de) | |
Hallo,
So geht's:
WindowStyle 80
window 30,30-700,500-4
Cls 13,26,2
declare Dialog&,Static&
Def &WM_SYSCOMMAND $112
Dialog&=control("Dialog","X",$54040000,100,100,50,50,%hwnd,1,%hinstance)
Static&=control("static","",$5040000e,100,100,50,50,%hwnd,1,%Hinstance)
while 1
waitinput
if equ(&wparam,1)'----Positionieren; frei nach Thomas Hölzer
usecursor 5
SendMessage(%mwnd,&WM_SYSCOMMAND,$F012,0)
usecursor 0
ElseIf %mousepressed = 2
break
endif
setwindowpos Static&=0,0-0,0'--Neuzeichnen erzwingen
endwhile
Gruß
Jörg
|
| | Datum:27.09.02 03:07 
(MG@web.de) | |
ja die geht, gibt es auch eine oder könnte man diese so ab ändern das sie auch mit Profan 5.0 geht??
|
| | Datum:27.09.02 11:57 
(joerse@gmx.de) | |
Hallo Mario,
Für das Hauptfenster geht es einfach. Da Profandialogfenster allerdings keine
Mausklicks an das HWND weitermelden, kann ich Dir damit nicht helfen.
WindowStyle 80
window 30,30-700,500-4
Cls 13,26,2
Declare Ende%
WhileNot Ende%
waitinput
if equ(&wparam,1)'----Positionieren; frei nach Thomas Hölzer
usecursor 5
SendMessage(%mwnd,$112,$F012,0)
usecursor 0
ElseIf Equ(%mousepressed,2)
Let Ende%=1
endif
endwhile
Gruß
Jörg
|
| | Datum:27.09.02 13:11 
(MG@web.de) | |
if equ(&wparam,1) << das bekomme ich als fehler unter Profan 5.0
abgesehen von den fehlern : window 30,30-700,500"-4"
Cls "13,26,2"
mach ich was falsch ???
|
| | Datum:27.09.02 13:42 
(joerse@gmx.de) | |
Hallo Mario,
Entschudige, ich hab' die 5.0 Sachen nicht mehr so parat.
Es muß natürlich "window 30,30-700,500" heißen.
Anstatt &wparam (gab's wohl noch nicht) versuch mal Equ(%mousepressed,1) oder Equ(%message,$201).
Ich hoffe eine von den beiden Systemvariablen gibt es.
Gruß
Jörg
|
| | Datum:27.09.02 18:32 
(MG@web.de) | |
SendMessage(%mwnd,$112,$F012,0) << jetzt erkennt er hier einen fehler "%mwnd"
die anderen beiden gehen unter Profan 5.0
mfg mario
|
| | Datum:27.09.02 20:17 
(joerse@gmx.de) | |
Nimm' %hwnd, da sowieso nur das Hauptfenster angesprochen wird.
Jörg
|
| | Datum: 27.09.02 20:24 
(MG@web.de) | |
hi Jörg erstmal danke für dein grosse hilfe !!!
haut jetzt ganz prima hin !!
|
|
|