| |
|
|
- Page 1 - |
|
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? CompileMarkSeparation |
|
|
|
|
| |
|
- 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 . |
|
|
| |
|
|
|
| here, the runs very beautiful: CompileMarkSeparation {$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 ▲ | |
|
|
|
|
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 ▲ |
|
|
|
|
| UserMessage wm_lButtonDown or subclass lv&,1
Nachtrag: UserMessage wm_lButtonDown is not really. |
|
|
| |
|
|
|
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 ▲ |
|
|
|
|
| is not at all bad: CompileMarkSeparationwindowstyle 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. |
|
|
| |
|
|
|
Frank Abbing | so GEHTS: CompileMarkSeparation {$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 ▲ | |
|
|
|
| |
|
- Page 2 - |
|
|
RGH | and the Whole in reinem XProfan (without XPSE): CompileMarkSeparation $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 ▲ | |
|
|
|
|
| set("doNotUnUnFlickerTheHwndWindowPlease",1) |
|
|
| |
|
|
|
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? CompileMarkSeparation $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
|
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 09/09/08 ▲ |
|
|
|
|
| GWL isn't GCL or. SWL isn't SCL. |
|
|
| |
|
|
|
Jörg Sellmeyer | OK - means another Extrastyle. GCL means then GetClassLong-Style |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 09/09/08 ▲ |
|
|
|