| |
|
|
- Página 1 - |
|
Jörg Sellmeyer | Schon en diesem pequeño Code flackert el Ventana, si uno el Größe verändert. Yo finde, el debería no ser. Oder gibts una Trick, en el auch con Hausmitteln sicher y no a umständlich a unterbinden? KompilierenMarcaSeparación |
|
|
|
|
| |
|
- Página 1 - |
|
| 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: KompilierenMarcaSeparació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
| 09.09.2008 ▲ | |
|
|
|
|
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 ... | 09.09.2008 ▲ |
|
|
|
|
| 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 ... | 09.09.2008 ▲ |
|
|
|
|
| Ist garnicht schlimm: KompilierenMarcaSeparaciónwindowstyle 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. |
|
|
| |
|
|
|
Frank Abbing | So gehts: KompilierenMarcaSeparación {$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.2008 ▲ | |
|
|
|
| |
|
- Página 2 - |
|
|
RGH | Und el Ganze en reinem XProfan (sin XPSE): KompilierenMarcaSeparación $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.2008 ▲ | |
|
|
|
|
| set("doNotUnUnFlickerTheHwndWindowPlease",1) |
|
|
| |
|
|
|
Jörg Sellmeyer | RGH
~SetClassLong(%hwnd, ~GCL_STYLE, (~GetClassLong(%hwnd, ~GCL_STYLE)- ~CS_HREDRAW - ~CS_VREDRAW))
Genial! Exactamente algo como Yo erhofft!
RGH
Saludo Roland (überprüft, si uno generell beim Ventana principal en el Styles HREDRAW y VREDRAW verzichten podría)
hm, müßte entonces no que aquí genau el Gleiche bewirken? KompilierenMarcaSeparación $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.2008 ▲ |
|
|
|
|
| GWL es no GCL o. SWL es no SCL. |
|
|
| |
|
|
|
Jörg Sellmeyer | Ok - also todavía una Extrastyle. GCL bedeutet entonces GetClassLong-Style |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 09.09.2008 ▲ |
|
|
|