XProfan

Italia

Beim unten stehenden Code haut das Bild auf der Oberfläche des Dialogfensters ab, wenn ich auf den Bild-Auswahl-Button klicke !

- Der Effekt tritt aber nur beim ersten Mal auf.

Wo liegt mein Fehler ???
Kompilieren Markieren Separieren

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

Danke per Aiuto

22.04.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jörg
Sellmeyer

Viel interessanter finde ich hierbei die Frage, warum das Bild wieder auftaucht, wenn man nur den abbrechen-Button im Ladedialog gedrückt hat. Es scheint so, als ob beim ersten Mal die automatische Bildverwaltung/-neuzeichnung durch Profan nicht funktioniert, während der Dialog angezeigt wird.

Aber warum benutzt Du nicht einfach ein Bitmap-Static?
Kompilieren Markieren Separieren

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