[*]Profan

Abhilfe mit
Kompilieren Markieren Separieren

userMessages wm_eraseBkGnd

Bin der Sache mit Frank auch mal auf den Grund gegangen, ich glaube ein (von Roland) zu viel gesetzter Brush verursacht das.

08.09.2008 ▲

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

Wend

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

Stimmt, es ist immer noch "da".

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

Hier, das läuft 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

Wend

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.