[*]Profan

Jörg
Sellmeyer

Yes, once but a couple Controls drin are (particularly Listviews!), flackert it How stupid.

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

09/08/08 ▲

Must Yes How said only The UserMessage define, already no Flackern More...

Jörg
Sellmeyer

Well... Compile Mark Separation $H Messages.ph userMessages ~wm_eraseBkGnd Cls Var cb& = Create("CheckBox",%hwnd,"Test",10,2,100,24) Var lv& = Create("GridBox",%hwnd,"Test",0,10,30,400,400) AddString(LV&,"Test") While 1 WaitInput
Windows XP SP2 XProfan X4 ... und hier mal was ganz anderes als Profan ...	09/09/08 ▲ Vollständiges Quote Absatzweise Quote Zeilenweise Quote

is correct, its still "da".

to that Happiness counts this only for the %hWnd, thatswhy use I the too always only for Messages and cache it mostly by 1024 | 2048 .

here, the runs very beautiful:
Compile Mark Separation

 {$cleq}
windowstyle 1024 | 80
window 0,0 - 0,0
windowstyle 4 | 8 | 512
var h&=createWindow(0,"test",10,10,200,300)
Var cb& = Create("CheckBox",h&,"Test",10,2,100,24)
Var lv& = Create("GridBox",h&,"Test",0,10,30,400,400)
AddString(LV&,"Test")

While 1

    WaitInput
    case %key=2 : break

Jörg
Sellmeyer

is at least ne creative idea, but z.B. Mausklicks on the Windows not any more weitergeleitet. Füg time AddStrings(lv&,Str$(%mousepressed))
behind WaitInput one.

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

UserMessage wm_lButtonDown or subclass lv&,1

Nachtrag: UserMessage wm_lButtonDown is not really.

Jörg
Sellmeyer

where one already with some Umwegen is. Btw.: on the lv& functions with the %mousepressed even so.
I find but, Profan ought to simply of itself from not flackern

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

is not at all bad:
Compile Mark Separation

windowstyle 1024 | 80
window 0,0 - 0,0
windowstyle 4 | 8 | 512
var h&=createWindow(0,"test",10,10,200,300)
Var cb& = Create("CheckBox",h&,"Test",10,2,100,24)
Var lv& = Create("GridBox",h&,"Test",0,10,30,400,400)
AddString(LV&,"Test")
subClass lv&,1

While 1

    WaitInput
    case %key=2 : break

Wend

subClassProc

    if &sWnd==lv&

        if %sMessage=wm_lButtonDown

        endif

    endif

endproc

and has too a sauberere structure.