[*]Profan

Jörg
Sellmeyer

oui, sobald mais un paire Controls drin sommes (besonders Listviews!), flackert es comment blöde.

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

08.09.2008 ▲

Must oui comment dit seulement qui UserMessage définir, déjà ne...aucune Flackern plus...

Jörg
Sellmeyer

bof... Kompilieren Marque Séparation $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 citation Absatzweise Citation Zeilenweise Citation

Stimmt, c'est toujours "da".

Zum Glück gilt ca seulement pour cela %hWnd, tambour nutze je cela De toute façon seulement pour qui Messages et verstecke es meist per 1024 | 2048 .

ici, cela fonctionne très joli:
Kompilieren Marque Séparation

 {$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 concept, mais z.B. Mausklicks sur dem la fenêtre volonté pas plus weitergeleitet. Füg la fois AddStrings(lv&,Str$(%mousepressed))
derrière WaitInput un.

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

UserMessage wm_lButtonDown ou bien subclass lv&,1

Nachtrag: UserMessage wm_lButtonDown allez pas wirklich.

Jörg
Sellmeyer

Wobei on déjà chez einigen Umwegen ist. Btw.: sur dem lv& funktioniert cela avec %mousepressed sogar so.
je trouve mais, Profan sollte simple de sich aus pas flackern

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

Ist garnicht grave:
Kompilieren Marque Séparation

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

et hat aussi une sauberere Struktur.