[*]Profan

Jörg
Sellmeyer

Sí, sobald aber unos pocos Controls drin son (besonders Listviews!), flackert lo como blöde.

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

08.09.2008 ▲

Must sí como dijo sólo el UserMessage definieren, ya kein Flackern mehr...

Jörg
Sellmeyer

Naja... Kompilieren Marca Separación $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 Cita Zeilenweise Cita

Stimmt, es siempre todavía "da".

Zum Glück gilt dies sólo para el %hWnd, tambor nutze Yo el De todos modos sólo para el Messages y verstecke lo meist por 1024 | 2048 .

Hier, el se ejecuta muy schön:
Kompilieren Marca Separación

 {$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 Concepto, aber z.B. Mausklicks en el Ventana voluntad no mehr weitergeleitet. Füg veces AddStrings(lv&,Str$(%mousepressed))
hinter WaitInput una.

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

UserMessage wm_lButtonDown oder subclass lv&,1

Apéndice: UserMessage wm_lButtonDown va no wirklich.

Jörg
Sellmeyer

Wobei uno ya en algunos Umwegen es. Btw.: en el lv& funktioniert el con %mousepressed incluso así.
Yo finde aber, Profano debería simplemente de se de no flackern

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

Ist garnicht schlimm:
Kompilieren Marca Separación

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

y ha auch una sauberere Struktur.