[*]Profan

- Seite 1 -

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.

Frank
Abbing

So gehts:
Kompilieren Markieren Separieren

 {$iq}
Cls
SetClassLong(%hwnd, GCL_STYLE, (GetClassLong(%hwnd, GCL_STYLE)- CS_HREDRAW - CS_VREDRAW))
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

- Seite 2 -

RGH

Und das Ganze in reinem XProfan (ohne XPSE):
Kompilieren Markieren Separieren

 $H windows.ph
Cls
~SetClassLong(%hwnd, ~GCL_STYLE, (~GetClassLong(%hwnd, ~GCL_STYLE)- ~CS_HREDRAW - ~CS_VREDRAW))
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

Gruß
Roland
(überprüft, ob man generell beim Hauptfenster auf die Styles HREDRAW und VREDRAW verzichten könnte)

Nachtrag: Derzeit hat das Hauptfenster im Normalfall die Stile ws_OverlappedWindow | cs_VRedraw | cs_HRedraw | cs_OwnDC | cs_ByteAlignWindow

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

set("doNotUnUnFlickerTheHwndWindowPlease",1)