XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
EditStyle ändern (Edit verschieben)
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

    Elseif @And(@Getcheck(Checkbox&)=0,Change%=1)

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

    Endif

Wend