| |
| |
|
Julian
Schmidt | Salut,
chez SetWindowPos ou bien Movewindow stört mich chaque fois cela on comme paramètre aussi une neue Position angeben muss. il peut zwar per GetWindowRect qui Taille ermitteln et angeben mais ca erscheint mir comme trop compliqué.
Gibt es bereits irgendeinen anderen Befehl avec dem ca einfacher allez?
si pas wünsche je mir solch une Funktion (SetWindowSize o.ä.) pour un künftiges XProfan.
un extra Befehl pour qui 'Fensterposition dans qui Hierarchie' serait mich aussi freuen!
LG
Julian57 |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...]  | 06.08.2011 ▲ |
|
| |
|
|
Jörg
Sellmeyer | Na - pour braucht on mais aucun neuen Befehle. cela allez entier locker avec deux 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 - pour braucht on mais aucun neuen Befehle. cela allez entier locker avec deux Prozeduren:
Hab aussi geschrieben
Jörg Sellmeyer (06.08.11)
Gibt es bereits irgendeinen anderen Befehl avec dem ca einfacher allez?
si pas wünsche je mir solch une Funktion (SetWindowSize o.ä.) pour un künftiges XProfan.
Nachtrag:
@Jörg Votre Prozeduren beschränken sich malheureusement sur cela Hauptfenster! Gibt es solch une Procédure aussi pour autre Handles? %WinLeft, %WinBottom,... mais est sur hwnd beschränkt, ou bien? |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 06.08.2011 ▲ |
|
| |
|
|
Dieter
Zornow | | Ab X2 reichen chez Setwindowpos aussi seulement 2 paramètre, ensuite wird cela la fenêtre seulement déménagé, mais qui Taille bleibt. tu as doch X2 ou bien ? |
|
| |
| 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 chez Setwindowpos aussi seulement 2 paramètre, ensuite wird cela la fenêtre seulement déménagé, mais qui Taille bleibt. tu as doch X2 ou bien ?
cela funktioniert aussi bereit chez précédent XProfan Versionen! je voulais mais eig. qui la fenêtretaille verändern. et oui je hab X2! |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 07.08.2011 ▲ |
|
| |
|
|
Jörg
Sellmeyer | peux Du là quoi avec anfangen?
$H Structs.ph
$H Windows.ph
Struct Rect = ~RECT
Déclarer Fenêtre#
Faible Fenêtre#,Rect
Déclarer Werte$
Cls
VAR Edit& = Créer("Edit",%hwnd,»,10,40,200,24)
Tandis que 1
WaitInput
~GetWindowRect(Edit&,Fenêtre#)
~MapWindowPoints(%desktop,%hwnd,Fenêtre#,2)
With Fenêtre#
.Right& = .Right& - .Left&
.Bottom& = .Bottom& - .Top&
Werte$ = .Left&,.Top&,.Right&,.Bottom&
SetText Edit&,Werte$
EndWith
Wend
[OFFTOPIC]@iF: Du könntest dem Formatierer encore beibringen, qui on aussi With et EndWith einrücken peux[/OFFTOPIC] |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 07.08.2011 ▲ |
|
| |
|
|
Julian
Schmidt | GetWindowRect c'est moi bereits un Begriff, toutefois bekomme je es pas dans un Procédure. :p
$H Structs.ph
$H Windows.ph
Struct Rect = ~RECT
Déclarer Fenêtre#
Faible Fenêtre#,Rect
Cls
waitinput
WindowSize(%hwnd,400,150)
waitinput
WindowZ(%hwnd,-1)
waitinput
Proc WindowSize
Paramètres hdl&,b%,h%
~GetWindowRect(hdl&,Fenêtre#)
~MapWindowPoints(%desktop,%hwnd,Fenêtre#,2)
SetWindowPos hdl& = Fenêtre#.Left&,Fenêtre#.Top& - b%,h%
ENDPROC
Proc WindowZ
Paramètres hdl&, modus%
~GetWindowRect(hdl&,Fenêtre#)
~MapWindowPoints(%desktop,%hwnd,Fenêtre#,2)
With Fenêtre#
SetWindowPos hdl& = .Left&,.Top& - (.Right& - .Left&),(.Bottom& - .Top&); modus%
EndWith
ENDPROC
|
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 07.08.2011 ▲ |
|
| |
|
|
Jörg
Sellmeyer | | WindowZ mais est une Procédure, qui seulement pour cela Hauptfenster Sinn ergibt. pourquoi prends Du là pas qui Procédure, qui je dessus posté 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: Du könntest dem Formatierer encore beibringen, qui on aussi With et EndWith einrücken peux? Dis machsch! Nachtrag: Erledscht!  [/OFFTOPIC] |
|
| |
| |
| |
|
|
Julian
Schmidt | Jörg Sellmeyer (07.08.11)
WindowZ mais est une Procédure, qui seulement pour cela Hauptfenster Sinn ergibt. pourquoi prends Du là pas qui Procédure, qui je dessus posté habe?
sur Dialogfensters ergibt cet Funktion également Sinn. Votre Procédure dessus ^ ^ ist mais par %winleft, %wintop, ... à cela Hauptfenster attaché.
Fenêtre 0,0-%MaxX,%MaxY
var dg&=Créer("Dialog",%hwnd,"Beispiel",0,0,0,0)
Setwindowpos dg&=200,100 - 500,300; -1
tandis que 1
Endwhile
|
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 07.08.2011 ▲ |
|
| |
|
|
Julian
Schmidt |
Def @GetWindowRect(2) !"User32", "GetWindowRect"
Titre de la fenêtre "Koordinaten"
Windowstyle 24
Fenêtre 0,0-640,440
waitinput
WindowSize(%hwnd,800,500)
WindowZ(%hwnd, -1)
waitinput
Tandis que 1
cls
locate 1,1
imprimer "Eckpunkte bezogen sur Bildschirm:",WindowRect(%hwnd,"X-Pos"),", ",WindowRect(%hwnd,"Y-Pos")," - ",WindowRect(%hwnd,"Eckpunkt_X2"),", ",WindowRect(%hwnd,"Eckpunkt_Y2")
imprimer "Breite: ",WindowRect(%hwnd,"Breite")," Hauteur: ",WindowRect(%hwnd,"Höhe")
waitinput
Endwhile
Proc WindowRect
Paramètres hdl&,Modus$
declare x%, b#
Faible b#,16
@GetWindowRect(hdl&,b#)
cas Modus$="Breite" : x%=Long(b#,8)-Long(b#,0)
cas Modus$="Höhe" : x%=Long(b#,12)-Long(b#,4)
cas Modus$="Eckpunkt_X1" : x%=Long(b#,0)
cas Modus$="Eckpunkt_Y1" : x%=Long(b#,4)
cas Modus$="X-Pos" : x%=Long(b#,0)
cas Modus$="Y-Pos" : x%=Long(b#,4)
cas Modus$="Eckpunkt_X2" : x%=Long(b#,8)
cas Modus$="Eckpunkt_Y2" : x%=Long(b#,12)
Dispose b#
Retour x%
ENDPROC
Proc WindowSize
Paramètres hdl&,b%,h%
SetWindowPos hdl& = WindowRect(hdl&,"X-Pos"),WindowRect(hdl&,"Y-Pos") - b%,h%
ENDPROC
Proc WindowZ
Paramètres 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.108)
Deutsch
English
Français
Español
Italia