| |
| |
|
Julian
Schmidt | ¡Hola,
En SetWindowPos oder Movewindow stört mich jedesmal el uno como Parámetro auch una neue Position angeben muss. Se puede zwar por GetWindowRect el Größe ermitteln y angeben aber dies erscheint me como a umständlich.
Gibt lo ya irgendeinen otro Befehl con el dies einfacher va?
Wenn no wünsche Yo solch una Función (SetWindowSize o.ä.) para una künftiges XProfan.
Ein extra Befehl para el 'Fensterposition en el Hierarchie' sería mich auch freuen!
LG
Julian57 |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...]  | 06.08.2011 ▲ |
|
| |
|
|
Jörg
Sellmeyer | Na - dafür braucht uno pero no neuen Befehle. Es bastante locker con zwei Prozeduren:
|
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 06.08.2011 ▲ |
|
| |
|
|
 | |
| |
| |
| |
|
|
Julian
Schmidt | Jörg Sellmeyer (06.08.11)
Na - dafür braucht uno pero no neuen Befehle. Es bastante locker con zwei Prozeduren:
Hab auch geschrieben
Jörg Sellmeyer (06.08.11)
Gibt lo ya irgendeinen otro Befehl con el dies einfacher va?
Wenn no wünsche Yo solch una Función (SetWindowSize o.ä.) para una künftiges XProfan.
Apéndice:
@Jörg Su Prozeduren beschränken se desafortunadamente el Ventana principal! Gibt lo solch una Procedimiento auch para otro Handles? %WinLeft, %WinBottom,... es doch en hwnd beschränkt, oder? |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 06.08.2011 ▲ |
|
| |
|
|
Dieter
Zornow | | Ab X2 reichen en Setwindowpos auch sólo 2 Parámetro, Luego se el Ventana sólo movido, aber el Größe restos. Usted hast doch X2 oder ? |
|
| |
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 07.08.2011 ▲ |
|
| |
|
|
Julian
Schmidt | Dieter Zornow (07.08.11)
Ab X2 reichen en Setwindowpos auch sólo 2 Parámetro, Luego se el Ventana sólo movido, aber el Größe restos. Usted hast doch X2 oder ?
Das funktioniert auch bereit en früheren XProfan Versionen! Yo quería aber eig. el Ventanagröße verändern. Und sí Yo tener X2! |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 07.08.2011 ▲ |
|
| |
|
|
Jörg
Sellmeyer | ¿Puede Usted como qué con anfangen?
$H Structs.ph
$H Windows.ph
Struct Rect = ~RECT
Declarar Ventana#
Dim Ventana#,Rect
Declarar Werte$
Cls
VAR Edit& = Crear("Edit",%hwnd,"",10,40,200,24)
Mientras que 1
WaitInput
~GetWindowRect(Edit&,Ventana#)
~MapWindowPoints(%desktop,%hwnd,Ventana#,2)
With Ventana#
.Right& = .Right& - .Left&
.Bottom& = .Bottom& - .Top&
Werte$ = .Left&,.Top&,.Right&,.Bottom&
SetText Edit&,Werte$
EndWith
Wend
[OFFTOPIC]@IF: Usted könntest el Formatierer todavía beibringen, daß uno auch With y EndWith einrücken kann[/OFFTOPIC] |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 07.08.2011 ▲ |
|
| |
|
|
Julian
Schmidt | GetWindowRect me está ya una Begriff, todavía bekomme Yo no en un Procedimiento. :p
$H Structs.ph
$H Windows.ph
Struct Rect = ~RECT
Declarar Ventana#
Dim Ventana#,Rect
Cls
waitinput
WindowSize(%hwnd,400,150)
waitinput
WindowZ(%hwnd,-1)
waitinput
Proc WindowSize
Parámetros hdl&,b%,h%
~GetWindowRect(hdl&,Ventana#)
~MapWindowPoints(%desktop,%hwnd,Ventana#,2)
SetWindowPos hdl& = Ventana#.Left&,Ventana#.Top& - b%,h%
ENDPROC
Proc WindowZ
Parámetros hdl&, modus%
~GetWindowRect(hdl&,Ventana#)
~MapWindowPoints(%desktop,%hwnd,Ventana#,2)
With Ventana#
SetWindowPos hdl& = .Left&,.Top& - (.Right& - .Left&),(.Bottom& - .Top&); modus%
EndWith
ENDPROC
|
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 07.08.2011 ▲ |
|
| |
|
|
Jörg
Sellmeyer | | WindowZ es doch una Procedimiento, el sólo para la ventana principal Sinn ergibt. ¿Por qué nimmst Usted como no el Procedimiento, el Yo oben Nuevo habe? |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 07.08.2011 ▲ |
|
| |
|
|
| [OFFTOPIC] Jörg Sellmeyer (07.08.11)@IF: Usted könntest el Formatierer todavía beibringen, daß uno auch With y EndWith einrücken kann? Dis machsch! Apéndice: Erledscht!  [/OFFTOPIC] |
|
| |
| |
| |
|
|
Julian
Schmidt | Jörg Sellmeyer (07.08.11)
WindowZ es doch una Procedimiento, el sólo para la ventana principal Sinn ergibt. ¿Por qué nimmst Usted como no el Procedimiento, el Yo oben Nuevo habe?
Auf Dialogfensters ergibt esta Función ebenfalls Sinn. Su Procedimiento oben ^ ^ es aber por %winleft, %wintop, ... a la ventana principal gebunden.
Ventana 0,0-%MaxX,%MaxY
var dg&=Crear("Dialog",%hwnd,"Beispiel",0,0,0,0)
Setwindowpos dg&=200,100 - 500,300; -1
mientras que 1
Endwhile
|
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 07.08.2011 ▲ |
|
| |
|
|
Julian
Schmidt |
Def @GetWindowRect(2) !"USER32", "GetWindowRect"
Título de la ventana "Koordinaten"
Windowstyle 24
Ventana 0,0-640,440
waitinput
WindowSize(%hwnd,800,500)
WindowZ(%hwnd, -1)
waitinput
Mientras que 1
cls
locate 1,1
imprimir "Eckpunkte bezogen en Bildschirm:",WindowRect(%hwnd,"X-Pos"),", ",WindowRect(%hwnd,"Y-Pos")," - ",WindowRect(%hwnd,"Eckpunkt_X2"),", ",WindowRect(%hwnd,"Eckpunkt_Y2")
imprimir "Breite: ",WindowRect(%hwnd,"Breite")," Höhe: ",WindowRect(%hwnd,"Höhe")
waitinput
Endwhile
Proc WindowRect
Parámetros hdl&,Modus$
declarar x%, b#
Dim b#,16
@GetWindowRect(hdl&,b#)
caso Modus$="Breite" : x%=Largo(b#,8)-Largo(b#,0)
caso Modus$="Höhe" : x%=Largo(b#,12)-Largo(b#,4)
caso Modus$="Eckpunkt_X1" : x%=Largo(b#,0)
caso Modus$="Eckpunkt_Y1" : x%=Largo(b#,4)
caso Modus$="X-Pos" : x%=Largo(b#,0)
caso Modus$="Y-Pos" : x%=Largo(b#,4)
caso Modus$="Eckpunkt_X2" : x%=Largo(b#,8)
caso Modus$="Eckpunkt_Y2" : x%=Largo(b#,12)
Disponer b#
Volver x%
ENDPROC
Proc WindowSize
Parámetros hdl&,b%,h%
SetWindowPos hdl& = WindowRect(hdl&,"X-Pos"),WindowRect(hdl&,"Y-Pos") - b%,h%
ENDPROC
Proc WindowZ
Parámetros hdl&, modus%
SetWindowPos hdl& = WindowRect(hdl&,"X-Pos"),WindowRect(hdl&,"Y-Pos") - WindowRect(hdl&,"Breite"),WindowRect(hdl&,"Höhe"); modus%
ENDPROC
|
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 09.08.2011 ▲ |
|
| |
|
(1.109)
Deutsch
English
Français
Español
Italia