[*]Profan

English

Jörg
Sellmeyer

already with this small code flackert the window, if one The Size changed. I find, the ought to not his. or Gibts a ploy, around the too with Hausmitteln sure and not To umständlich To unterbinden? Compile Mark Separation cls WhileLoop 10 print "test" Wend while 1 Waitinput
Windows XP SP2 XProfan X4 ... und hier mal was ganz anderes als Profan ...	09/08/08 ▲ Vollständiges Quote Absatzweise Quote Zeilenweise Quote

- Page 1 -

is correct, its still "da".

to that Happiness counts this only for the %hWnd, thatswhy use I the too always only for Messages and cache it mostly by 1024 | 2048 .

09/09/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

here, the runs very beautiful:
Compile Mark Separation

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

09/09/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

is at least ne creative idea, but z.B. Mausklicks on the Windows not any more weitergeleitet. Füg time AddStrings(lv&,Str$(%mousepressed))
behind WaitInput one.

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

09/09/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

UserMessage wm_lButtonDown or subclass lv&,1

Nachtrag: UserMessage wm_lButtonDown is not really.

09/09/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

where one already with some Umwegen is. Btw.: on the lv& functions with the %mousepressed even so.
I find but, Profan ought to simply of itself from not flackern

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

09/09/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

is not at all bad:
Compile Mark Separation

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

and has too a sauberere structure.

09/09/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank
Abbing

so GEHTS:
Compile Mark Separation

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

09/09/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

- Page 2 -

RGH

and the Whole in reinem XProfan (without XPSE):
Compile Mark Separation

 $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

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

09/09/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

set("doNotUnUnFlickerTheHwndWindowPlease",1)

09/09/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

RGH

~SetClassLong(%hwnd, ~GCL_STYLE, (~GetClassLong(%hwnd, ~GCL_STYLE)- ~CS_HREDRAW - ~CS_VREDRAW))

Genial! very something like have I erhofft!

RGH

Greeting
Roland
(screen, whether one generally at Mainwindow on The Styles HREDRAW and VREDRAW dispense could)

hm, should then not that here very the same effect?
Compile Mark Separation

 $H Windows.ph
 $H Messages.ph
userMessages ~wm_eraseBkGnd
Window 10,10,600,500
Var Style& = GetStyle(%hwnd)
print bin$(Style&)
SetStyle %hwnd,Style& | ~cs_HREDRAW | ~cs_VREDRAW
Window 10,10,601,501
print bin$(GetStyle(%hwnd))
waitinput
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