XProfan

Español

Beim unten stehenden Code haut el Bild en el Oberfläche des Dialogfensters de, si yo en el Bild-Auswahl-Button klicke !

- Der Effekt tritt aber sólo beim ersten Tiempo en el.

Wo liegt mein Fehler ???
Kompilieren Marca Separación

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

Gracias para Ayuda

22.04.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Viel interessanter finde Yo hierbei el Cuestión, por qué el Bild otra vez auftaucht, si uno sólo el abbrechen-Button en el Ladedialog gedrückt ha. Lo scheint así, como si beim ersten Tiempo el automatische Bildverwaltung/-neuzeichnung por Profano no funktioniert, während el Diálogo adecuado se.

Aber por qué benutzt No simplemente una Mapa de bits-Static?
Kompilieren Marca Separación

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