XProfan

- Page 1 -

Solch Kram halt: [...]

06.08.2011 ▲

Jörg Sellmeyer (06.08.11)

Julian
Schmidt

Na - dafür braucht man aber keine neuen Befehle. Das geht ganz locker mit zwei Prozeduren:

Hab auch geschrieben

Jörg Sellmeyer (06.08.11)

Gibt es bereits irgendeinen anderen Befehl mit dem dies einfacher geht?
Wenn nicht wünsche ich mir solch eine Funktion (SetWindowSize o.ä.) per ein künftiges XProfan.

Nachtrag:
@Jörg Deine Prozeduren beschränken sich leider auf das Hauptfenster! Gibt es solch eine Prozedur auch per andere Handles? %WinLeft, %WinBottom,... ist doch auf hwnd beschränkt, oder?

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

06.08.2011 ▲

Dieter
Zornow

Ab X2 reichen bei Setwindowpos auch nur 2 Parameter, dann wird das Fenster nur verschoben, aber die Dimensione bleibt. Du 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

Julian
Schmidt

Dieter Zornow (07.08.11)

Ab X2 reichen bei Setwindowpos auch nur 2 Parameter, dann wird das Fenster nur verschoben, aber die Dimensione bleibt. Du hast doch X2 oder ?

Das funktioniert auch bereit bei früheren XProfan Versionen! Ich wollte aber eig. die Fenstergröße verändern. Und ja ich hab X2!

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

Jörg
Sellmeyer

Kannst Du da was mit anfangen?

 $H Structs.ph
 $H Windows.ph
Struct Rect = ~RECT
Declare Window#
Dim Window#,Rect
Declare Werte$
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&
        Werte$ = .Left&,.Top&,.Right&,.Bottom&
        SetText Edit&,Werte$

    EndWith

Wend

[OFFTOPIC]@iF: Du könntest dem Formatierer noch beibringen, daß man auch With und EndWith einrücken kann[/OFFTOPIC]

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Julian
Schmidt

GetWindowRect ist mir bereits ein Begriff, dennoch bekomme ich es nicht in un Prozedur. :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&, modus%
    ~GetWindowRect(hdl&,Window#)
    ~MapWindowPoints(%desktop,%hwnd,Window#,2)

    With Window#

        SetWindowPos hdl& = .Left&,.Top& - (.Right& - .Left&),(.Bottom& - .Top&); modus%

    EndWith

EndProc

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

Jörg
Sellmeyer

WindowZ ist doch eine Prozedur, die nur per das Hauptfenster Sinn ergibt. Warum nimmst Du da nicht die Prozedur, die ich oben gepostet habe?

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

[OFFTOPIC]
Jörg Sellmeyer (07.08.11)

@iF: Du könntest dem Formatierer noch beibringen, daß man auch With und EndWith einrücken kann?

Dis machsch!

Nachtrag: Erledscht!

[/OFFTOPIC]

Jörg Sellmeyer (07.08.11)

Julian
Schmidt

WindowZ ist doch eine Prozedur, die nur per das Hauptfenster Sinn ergibt. Warum nimmst Du da nicht die Prozedur, die ich oben gepostet habe?

Auf Dialogfensters ergibt diese Funktion ebenfalls Sinn. Deine Prozedur oben ^^ ist aber durch %winleft, %wintop, ... an das Hauptfenster gebunden.

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 [...]

Julian
Schmidt