XProfan

English

Description:

with GetWindowLong sustain one Information over the angegebene Control or Window.

Deklaration:

DEf @GetWindowLong(2) !USER32,GetWindowLongA

Parameter:

1.Parameter: the lever the Window, over the one The Information needed as LongInt.

2.Parameter: The Offset, on the Information read go should =>
--20 = Erweiterter Fensterstil
--16 = Fensterstil
--4 = The address the Fensterprozedur in the Fensterklasse, The for the process of Messages zuständig is.
--6 = the Instancehandle the application.
--8 = the lever the Elternfensters (if one present is).
--12 = The ID the Fensters.
--21 = additional, for application private, Information.

Return Value:

If the application successful was, there as feedback whom desired LongInt worth, otherwise 0.

Examples:

Compile Mark Separation

Declare Edit&,Checkbox&,Style1&,Style2&,Change%
DEF @GetSysColor(1) !"USER32","GetSysColor"
DEf @GetWindowLong(2) !"USER32","GetWindowLongA"
DEf @SetWindowLong(3) !"USER32","SetWindowLongA"
SetTrueColor 1
Windowstyle 31
WindowTitle "Editstyle ändern"
Window 0,0-640,440
CLS @GetSysColor(15)
Let Edit&=@Createedit(%HWND,"Test",20,120,250,25)
Let Style1&=@GetWindowLong(Edit&,-16)
Let Style2&=Style1& | $20000000
Let Checkbox&=CreateCheckbox(%HWND,"Editbox verschieben",20,200,250,25)

While 0=0

    Waitinput

    IF @AND(@GetCheck(Checkbox&)=1,Change%=0)

        @SetWindowLong(Edit&,-16,Style2&)
        @Showwindow(%HWND,0)
        @Showwindow(%HWND,1)
        Let Change%=1
        Beep 1

    elseif @AND(@GetCheck(Checkbox&)=0,Change%=1)

        @SetWindowLong(Edit&,-16,Style1&)
        @Showwindow(%HWND,0)
        @Showwindow(%HWND,1)
        Let Change%=0
        Beep 1

    endif

Wend