| |
| |
|
| - Page 1 - |
|
Julian
Schmidt | Hi,
with SetWindowPos or Movewindow disturbing me jedesmal the one as Parameter too a new position indicate must. one can of course by GetWindowRect The Size detect and indicate but this appear me as To umständlich.
gives it already irgendeinen others commands with the this plainer goes?
unless wish I me such a function (SetWindowSize o.ä.) for a künftiges XProfan.
One extra commands for 'Fensterposition in the Hierarchie' would me too forward!
LG
Julian57 |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...]  | 08/06/11 ▲ |
|
| |
|
|
| |
| |
| - Page 1 - |
|
 | |
| |
| |
| |
|
|
Julian
Schmidt | Jörg Sellmeyer (06.08.11)
well - for need one but no new command. the goes integrally loosly with two Procedures:
Have too written
Jörg Sellmeyer (06.08.11)
gives it already irgendeinen others commands with the this plainer goes?
unless wish I me such a function (SetWindowSize o.ä.) for a künftiges XProfan.
Nachtrag:
@Jörg your Procedures limit Unfortunately on the Mainwindow! gives it such a procedure too for others Handles? %WinLeft, %WinBottom,... is still on hwnd dull, or? |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 08/06/11 ▲ |
|
| |
|
|
Dieter
Zornow | | ex X2 wealthy with Setwindowpos too only 2 Parameter, then becomes the window only moved, but the Size remaining. you have still X2 or ? |
|
| |
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 08/07/11 ▲ |
|
| |
|
|
Julian
Schmidt | Dieter Zornow (07.08.11)
ex X2 wealthy with Setwindowpos too only 2 Parameter, then becomes the window only moved, but the Size remaining. you have still X2 or ?
the functions too ready with previous XProfan versions! I wanted to but eig. The Windowsize change. and Yes I Have X2! |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 08/07/11 ▲ |
|
| |
|
|
Jörg
Sellmeyer | can You there what with begin?
$H Structs.ph
$H windows.ph
Struct Rect = ~RECT
Declare Window#
Dim Window#,Rect
Declare values$
Cls
VAR Edit& = Create("Edit",%hwnd,"",10,40,200,24)
While 1
WaitInput
~GetWindowRect(Edit&,Window#)
~MapWindowPoints(%desktop,%hwnd,Window#,2)
With Window#
.Right& = .Right& - .Left&
.Bottom& = .Bottom& - .Top&
values$ = .Left&,.Top&,.Right&,.Bottom&
SetText Edit&,values$
EndWith
Wend
[OFFTOPIC]@iF: You could the Formatierer yet procure, that one too With and EndWith einrücken can[/OFFTOPIC] |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 08/07/11 ▲ |
|
| |
|
|
Julian
Schmidt | GetWindowRect is me already one concept, nevertheless I get not in a procedure. :p
$H Structs.ph
$H windows.ph
Struct Rect = ~RECT
Declare Window#
Dim Window#,Rect
Cls
waitinput
WindowSize(%hwnd,400,150)
waitinput
WindowZ(%hwnd,-1)
waitinput
Proc WindowSize
Parameters hdl&,b%,h%
~GetWindowRect(hdl&,Window#)
~MapWindowPoints(%desktop,%hwnd,Window#,2)
SetWindowPos hdl& = Window#.Left&,Window#.Top& - b%,h%
ENDPROC
Proc WindowZ
Parameters hdl&, mode%
~GetWindowRect(hdl&,Window#)
~MapWindowPoints(%desktop,%hwnd,Window#,2)
With Window#
SetWindowPos hdl& = .Left&,.Top& - (.Right& - .Left&),(.Bottom& - .Top&); mode%
EndWith
ENDPROC
|
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 08/07/11 ▲ |
|
| |
|
|
Jörg
Sellmeyer | | WindowZ is still a procedure, The only for the Mainwindow sense yields. Why take You there not The procedure, The I supra posted have? |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 08/07/11 ▲ |
|
| |
|
|
| [OFFTOPIC] Jörg Sellmeyer (07.08.11)@iF: You could the Formatierer yet procure, that one too With and EndWith einrücken can? Dis machsch! Nachtrag: Erledscht!  [/OFFTOPIC] |
|
| |
| |
| |
|
|
Julian
Schmidt | Jörg Sellmeyer (07.08.11)
WindowZ is still a procedure, The only for the Mainwindow sense yields. Why take You there not The procedure, The I supra posted have?
On Dialogfensters yields these function ditto sense. your procedure supra ^^ is through %winleft, %wintop, ... on the Mainwindow tied.
Window 0,0-%MaxX,%MaxY
var dg&=Create("Dialog",%hwnd,"Beispiel",0,0,0,0)
Setwindowpos dg&=200,100 - 500,300; -1
while 1
Endwhile
|
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 08/07/11 ▲ |
|
| |
|
|
Julian
Schmidt |
Def @GetWindowRect(2) !"USER32", "GetWindowRect"
Window Title "Koordinaten"
Windowstyle 24
Window 0,0-640,440
waitinput
WindowSize(%hwnd,800,500)
WindowZ(%hwnd, -1)
waitinput
While 1
cls
locate 1,1
print "Eckpunkte related on screen:",WindowRect(%hwnd,"X-Pos"),", ",WindowRect(%hwnd,"Y-Pos")," - ",WindowRect(%hwnd,"Eckpunkt_X2"),", ",WindowRect(%hwnd,"Eckpunkt_Y2")
print "Breite: ",WindowRect(%hwnd,"Breite")," Höhe: ",WindowRect(%hwnd,"Höhe")
waitinput
Endwhile
Proc WindowRect
Parameters hdl&,mode$
declare x%, b#
Dim b#,16
@GetWindowRect(hdl&,b#)
case mode$="Breite" : x%=Long(b #,8)-Long(b #,0)
case mode$="Höhe" : x%=Long(b #,12)-Long(b #,4)
case mode$="Eckpunkt_X1" : x%=Long(b #,0)
case mode$="Eckpunkt_Y1" : x%=Long(b #,4)
case mode$="X-Pos" : x%=Long(b #,0)
case mode$="Y-Pos" : x%=Long(b #,4)
case mode$="Eckpunkt_X2" : x%=Long(b #,8)
case mode$="Eckpunkt_Y2" : x%=Long(b #,12)
Dispose b#
Return x%
ENDPROC
Proc WindowSize
Parameters hdl&,b%,h%
SetWindowPos hdl& = WindowRect(hdl&,"X-Pos"),WindowRect(hdl&,"Y-Pos") - b%,h%
ENDPROC
Proc WindowZ
Parameters hdl&, mode%
SetWindowPos hdl& = WindowRect(hdl&,"X-Pos"),WindowRect(hdl&,"Y-Pos") - WindowRect(hdl&,"Breite"),WindowRect(hdl&,"Höhe"); mode%
ENDPROC
|
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 08/09/11 ▲ |
|
| |
|
| |
| |
| - Page 2 - |
|
|
|  ^^ |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | see You: goes still...
Very beautiful. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 08/09/11 ▲ |
|
| |
|
(1.118)
Deutsch
English
Français
Español
Italia