[*]Profan

Italia

Jörg
Sellmeyer

Schon bei diesem kleinen Code flackert das Fenster, wenn man die Dimensione verändert. Ich finde, das sollte nicht sein. Oder gibts einen Trick, um das auch mit Hausmitteln sicher und nicht zu umständlich zu unterbinden? Kompilieren Markieren Separieren 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 Zitat Absatzweise Citazione Zeilenweise Citazione

- Page 1 -

Stimmt, es ist immer noch "da".

Zum Glück gilt dies nur per das %hWnd, drum nutze ich das auch immer nur per die Messages und verstecke es meist per 1024 | 2048 .

09.09.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Hier, das corre 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

09.09.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

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 ...

09.09.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

UserMessage wm_lButtonDown oder subclass lv&,1

Nachtrag: UserMessage wm_lButtonDown geht nicht wirklich.

09.09.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

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 ...

09.09.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

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.

09.09.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

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

09.09.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

- Page 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
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 Zitat Absatzweise Citazione Zeilenweise Citazione

set("doNotUnUnFlickerTheHwndWindowPlease",1)

09.09.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jörg
Sellmeyer

RGH

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

Genial! Genau sowas habe ich erhofft!

RGH

Saluto
Roland
(überprüft, ob man generell beim Hauptfenster auf die Styles HREDRAW und VREDRAW verzichten potuto)

hm, müßte dann nicht das hier genau das Gleiche bewirken?
Kompilieren Markieren Separieren

 $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