[*]Profan

Français

Jörg
Sellmeyer

déjà chez diesem kleinen Code flackert cela la fenêtre, si on qui Taille modifié. je trouve, cela sollte pas son. ou bien gibts une Trick, um cela aussi avec Hausmitteln sûrement et pas trop compliqué trop unterbinden? Kompilieren Marque Séparation cls WhileLoop 10 print "test" Wend while 1 Waitinput
Windows XP SP2 XProfan X4 ... und hier mal was ganz anderes als Profan ...	08.09.2008 ▲ Vollständiges citation Absatzweise Citation Zeilenweise Citation

- page 1 -

Stimmt, c'est toujours "da".

Zum Glück gilt ca seulement pour cela %hWnd, tambour nutze je cela De toute façon seulement pour qui Messages et verstecke es meist per 1024 | 2048 .

09.09.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

ici, cela fonctionne très joli:
Kompilieren Marque Séparation

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

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

Ist zumindest ne kreative concept, mais z.B. Mausklicks sur dem la fenêtre volonté pas plus weitergeleitet. Füg la fois AddStrings(lv&,Str$(%mousepressed))
derrière WaitInput un.

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

09.09.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

UserMessage wm_lButtonDown ou bien subclass lv&,1

Nachtrag: UserMessage wm_lButtonDown allez pas wirklich.

09.09.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

Wobei on déjà chez einigen Umwegen ist. Btw.: sur dem lv& funktioniert cela avec %mousepressed sogar so.
je trouve mais, Profan sollte simple de sich aus pas flackern

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

09.09.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Ist garnicht grave:
Kompilieren Marque Séparation

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

et hat aussi une sauberere Struktur.

09.09.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Frank
Abbing

So gehts:
Kompilieren Marque Séparation

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

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

- page 2 -

RGH

et cela Ganze dans reinem XProfan (sans XPSE): Kompilieren Marque Séparation $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 ▲ Vollständiges citation Absatzweise Citation Zeilenweise Citation

set("doNotUnUnFlickerTheHwndWindowPlease",1)

09.09.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

RGH

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

Genial! oui c'est ca quelque chose comme habe je erhofft!

RGH

Salut
Roland
(überprüft, si on generell beim Hauptfenster sur qui Styles HREDRAW et VREDRAW verzichten pourrait)

hm, devrait ensuite pas que voici oui c'est ca cela Gleiche bewirken?
Kompilieren Marque Séparation

 $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