XProfan

- Página 1 -

Solch Kram sólo: [...]

06.08.2011 ▲

Jörg Sellmeyer (06.08.11)

Julian
Schmidt

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

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

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

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

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

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

Jörg Sellmeyer (07.08.11)

Julian
Schmidt

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

Julian
Schmidt