Warum "haut" das Bild ab ???

Horst Horn, 22.04.2008 09:46: 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 ???

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
end
Danke für Hilfe

Jörg Sellmeyer, 22.04.2008 13:29: 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?

DECLARE EE%,win&,bild&,bild%,ende%,bild$,neu_bild$,bmpStatic&
EE%=0
bild$="bild.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
      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
end

Horst Horn, 22.04.2008 15:30: @Jörg
Danke
Zitat: „Es scheint so, als ob beim ersten Mal die automatische Bildverwaltung/-neuzeichnung durch Profan nicht funktioniert...
“
Das hab ich auch schon angenommen !

Dies ist die Offlinevariante vom Thread [Warum "haut" das Bild ab ???].