XProfan

English

at that under stehenden code skin the image on the surface the Dialogfensters ex, if I on the Image-selection-Button click !

- The effect exit but only at first time on.

where lying my Error ???
Compile Mark Separation

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='./../../Function-References/XProfan/end/'>end

thanks for Help

04/22/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

plenty interessanter find I hierbei The question, Why the image again auftaucht, if one only whom Cancel-Button in the Ladedialog pressed has. it shining so, as though at first Time the automatic Bildverwaltung/-neuzeichnung by Profane not functions, during the dialog displayed becomes.

but Why using You do not simply one Bitmap-Static?
Compile Mark Separation

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='./../../Function-References/XProfan/end/'>end