[*]Profan

Español

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? Kompilieren Marca Separación 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 Cita Zeilenweise Cita

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

09.09.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Hier, el se ejecuta muy schön:
Kompilieren Marca Separació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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

UserMessage wm_lButtonDown oder subclass lv&,1

Apéndice: UserMessage wm_lButtonDown va no wirklich.

09.09.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Ist garnicht schlimm:
Kompilieren Marca Separación

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

y ha auch una sauberere Struktur.

09.09.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Frank
Abbing

So gehts:
Kompilieren Marca Separació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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

- Página 2 -

RGH

Und el Ganze en reinem XProfan (sin XPSE):
Kompilieren Marca Separació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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

set("doNotUnUnFlickerTheHwndWindowPlease",1)

09.09.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

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?
Kompilieren Marca Separació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