XProfan

Français

Beim unten stehenden Code haut cela Bild sur qui surface des Dialogfensters ab, si je sur den Bild-sélection-Button klicke !

- qui effet tritt mais seulement beim ersten la fois sur.

wohin liegt mon faute ???
Kompilieren Marque Séparation

DECLARE EE%,win&,bild&,bild%,ende%,bild$,neu_bild$
EE%=0
bild$=mini_karte.jpg Bitte anpassen

PROC BILD_LADEN

    PARAMETERS bild$
    STARTPAINT win&

    IF FILEEXISTS(bild$)

        bild&=Create(hSizedPic,-1,bild$,200,250,-1)
        DrawPic bild&,250,50;0

    ENDIF

    ENDPAINT

ENDPROC

window 0,0-0,0
SET(AUTOPAINT,1)
win&=CREATE(DIALOG,%hwnd,Dialogfenster,(%MaxX-640),(%MaxY-480),640,480)
ende%=CREATE(BUTTON,win&,Programmende,10,50,150,25)
bild%=CREATE(BUTTON,win&,Bild-Auswahl,10,100,150,25)
BILD_LADEN bild$

WHILENOT EE%

    WAITINPUT
    CASE %wmpaint:BILD_LADEN bild$

    IF CLICKED(ende%) | Iskey(27)

        SET(AUTOPAINT,2)
        EE%=1

    ENDIF

    IF CLICKED(bild%)

        neu_bild$=LOADFILE$(Bild wählen:,*.bmp;*.jpg;*.gif)

        IF %Button = 2

            BILD_LADEN bild$

        ELSEIF %Button = 1

            bild$=neu_bild$
            BILD_LADEN bild$

        ENDIF

    ENDIF

ENDWHILE

f='./../../funktionsreferenzen/XProfan/end/'>end

merci pour Aider

22.04.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

Viel interessanter finde je hierbei qui Frage, pourquoi cela Bild wieder auftaucht, si on seulement den démolir-Button im Ladedialog gedrückt hat. Es scheint so, comme si beim ersten la fois qui automatische Bildverwaltung/-neuzeichnung par Profan pas funktioniert, au cours de qui Dialog angezeigt wird.

mais pourquoi benutzt Du pas simple un Bitmap-Static?
Kompilieren Marque Séparation

DECLARE EE%,win&,bild&,bild%,ende%,bild$,neu_bild$,bmpStatic&
EE%=0
bild$=bild.jpgBitte anpassen

PROC BILD_LADEN

    PARAMETERS bild$
    STARTPAINT win&

    IF FILEEXISTS(bild$)

        bild&=Create(hSizedPic,-1,bild$,200,250,-1)
        DrawPic bild&,250,50;0
        Case bmpStatic&:DestroyWindow(bmpStatic&)
        bmpStatic& = Create(Bitmap,win&,bild&,200,150)

    ENDIF

    ENDPAINT
    EndPaint

ENDPROC

window 0,0-0,0
SET(AUTOPAINT,1)
win&=CREATE(DIALOG,%hwnd,Dialogfenster,(%MaxX-640),(%MaxY-480),640,480)
ende%=CREATE(BUTTON,win&,Programmende,10,50,150,25)
bild%=CREATE(BUTTON,win&,Bild-Auswahl,10,100,150,25)
BILD_LADEN bild$

WHILENOT EE%

    WAITINPUT
    CASE %wmpaint:BILD_LADEN bild$

    IF CLICKED(ende%) | Iskey(27)

        SET(AUTOPAINT,2)
        EE%=1

    ENDIF

    IF CLICKED(bild%)

        neu_bild$=LOADFILE$(Bild wählen:,*.bmp;*.jpg;*.gif)

        IF %Button = 2

            BILD_LADEN bild$

        ELSEIF %Button = 1

            bild$=neu_bild$
            BILD_LADEN bild$

        ENDIF

    ENDIF

ENDWHILE

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