XProfan

Español

E.T.

Folgendes (Ein- / Ausblenden) se ejecuta en el Interpreter völlig sauber, en el Exe "ruckelt" el Ausblenden (CProfan 11.2 & 12ß):
"Minimalbeispiel":

Kompilieren Marca Separación

Declare Static&, A_Button&, E_Button&, Ende_Button&, Schluss%

Proc Einblenden

    Parameters WAS&,Anfang&,Ende&

    WhileLoop Anfang&,Ende&,-1

        SetWindowPos Was& =  0,&loop - %MaxX,100
        sleep 1

    EndWhile

    EnableWindow A_Button&,1
    EnableWindow E_Button&,0

EndProc

Proc Ausblenden

    Parameters WAS&,Anfang&,Ende&

    WhileLoop Anfang&,Ende&

        SetWindowPos Was& =  0,&loop - %MaxX,100
        sleep 1

    EndWhile

    EnableWindow A_Button&,0
    EnableWindow E_Button&,1

EndProc

WindowStyle 64
Window 0,0 - 1,1
CLS @RGB(0,0,0)
SetWindowPos %HWnd = 0,0 - %MaxX,%MaxY
@SetActiveWindow(%HWnd)
Static& = @Control("Dialog","",$54000000,0,Height(%HWnd)-100,@Width(%HWnd), 100,%HWnd,1000,%HInstance,$10000)
A_Button& = @Create("Button",%HWnd,"AUS-blenden",10,10,100,25)
E_Button& = @Create("Button",%HWnd,"EIN-blenden",100,50,100,25)
EnableWindow E_Button&,0
Ende_Button& = @Create("Button",%HWnd,"ENDE",200,100,100,25)
Clear Schluss%

WhileNot Schluss%

    waitinput

    If @Clicked(A_Button&)

        Ausblenden Static&,Height(%HWnd)-100,Height(%HWnd)

    ElseIf @Clicked(E_Button&)

        Einblenden Static&,Height(%HWnd),Height(%HWnd)-100

    ElseIf @Clicked(Ende_Button&)

        Schluss% =1

    EndIf

EndWhile

<

s=s4 href='./../../funktionsreferenzen/XProfan/end/'>end

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

19.09.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Liegt al Sleep, en dieser Verwendung sería vlt. una WaitInput 1 una "gleicheren" Ablauf liefern.

19.09.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

E.T.

Jo, hilft. Bleibt sólo el Cuestión: ¿Por qué kanns el Interpreter "sauber" y el Runtime no.

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

19.09.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Beide machens ya correcto, en Exe ha Windows sólo seltener el Chance anzuzeigen. ^ ^

19.09.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Dazu Yo auch todavía una.
Yo habe Su Ejemplo algo abgewandelt.
Usted puede hier Richtung y Tiempo auch todavía angeben, y el beste daran Windows regelt el para Usted.
Kompilieren Marca Separación

 $H windows.ph
Declare Static&, A_Button&, E_Button&, Ende_Button&, Schluss%

Proc Hide

    Parameters wnd&,Time&,Richtung&
    ~AnimateWindow(wnd&,Time&,~AW_SLIDE | ~AW_HIDE | Richtung&)
    EnableWindow A_Button&,0
    EnableWindow E_Button&,1

EndProc

Proc Show

    Parameters wnd&,Time&,Richtung&
    ~AnimateWindow(wnd&,Time&,~AW_SLIDE | Richtung&)
    EnableWindow A_Button&,1
    EnableWindow E_Button&,0

EndProc

Proc Kill

    ~AnimateWindow(%hwnd,500,~AW_HIDE | ~AW_BLEND)

EndProc

WindowStyle 64
Window 0,0 - 1,1
CLS @RGB(0,0,0)
SetWindowPos %HWnd = 0,0 - %MaxX,%MaxY
@SetActiveWindow(%HWnd)
Static& = @Control("Dialog","",$54000000,0,Height(%HWnd)-100,@Width(%HWnd), 100,%HWnd,1000,%HInstance,$10000)
A_Button& = @Create("Button",%HWnd,"AUS-blenden",10,10,100,25)
E_Button& = @Create("Button",%HWnd,"EIN-blenden",100,50,100,25)
EnableWindow E_Button&,0
Ende_Button& = @Create("Button",%HWnd,"ENDE",200,100,100,25)
Clear Schluss%

WhileNot Schluss%

    waitinput

    If @Clicked(A_Button&)

        Hide(Static&,250,~AW_CENTER)'zur Mitte ausblenden
        '        Hide(Static&,250,~AW_HOR_POSITIVE)'nach rechts ausblenden
        '        Hide(Static&,250,~AW_HOR_NEGATIVE)'nach links ausblenden
        '        Hide(Static&,250,~AW_VER_POSITIVE)'nach unten ausblenden
        '        Hide(Static&,250,~AW_VER_NEGATIVE)'nach oben ausblenden

    ElseIf @Clicked(E_Button&)

        Show(Static&,250,~AW_CENTER)'von der Mitte einblenden
        '        Show(Static&,250,~AW_HOR_NEGATIVE)'von rechts einblenden
        '        Show(Static&,250,~AW_HOR_POSITIVE)'von links einblenden
        '        Show(Static&,250,~AW_VER_NEGATIVE)'von unten einblenden
        '        Show(Static&,250,~AW_VER_POSITIVE)'von oben einblenden

    ElseIf @Clicked(Ende_Button&)

        Kill()
        Schluss% =1

    EndIf

EndWhile

ass=s4 href='./../../funktionsreferenzen/XProfan/end/'>end

Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage : [...]