[*]Profan

Jörg
Sellmeyer

Ja, sobald aber ein paar Controls drin sind (besonders Listviews!), flackert es wie blöde.

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

08.09.2008 ▲

Must ja wie gesagt nur die UserMessage definieren, schon kein Flackern mehr...

Jörg
Sellmeyer

Naja... Kompilieren Markieren Separieren $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.2008 ▲ Vollständiges Zitat Absatzweise Citazione Zeilenweise Citazione

Stimmt, es ist immer noch "da".

Zum Glück gilt dies nur per das %hWnd, drum nutze ich das auch immer nur per die Messages und verstecke es meist per 1024 | 2048 .

Hier, das corre sehr schön:
Kompilieren Markieren Separieren

 {$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

Ist zumindest ne kreative Idee, aber z.B. Mausklicks auf dem Fenster werden nicht mehr weitergeleitet. Füg mal AddString(lv&,Str$(%mousepressed))
hinter WaitInput ein.

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

UserMessage wm_lButtonDown oder subclass lv&,1

Nachtrag: UserMessage wm_lButtonDown geht nicht wirklich.

Jörg
Sellmeyer

Wobei man schon bei einigen Umwegen ist. Btw.: auf dem lv& funktioniert das mit %mousepressed sogar so.
Ich finde aber, Profan sollte einfach von sich aus nicht flackern

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

Ist garnicht schlimm:
Kompilieren Markieren Separieren

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

und hat auch eine sauberere Struktur.