| |
| |
|
 | 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 ???
KompilierenMarkierenSeparierenDECLARE 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 | 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?
KompilierenMarkierenSeparierenDECLARE 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
end
|
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 22.04.2008 ▲ |
|
| |
|
|
| @Jörg
Danke
Es scheint so, als ob beim ersten Mal die automatische Bildverwaltung/-neuzeichnung durch Profan nicht funktioniert...
Das hab ich auch schon angenommen ! |
|
| |
| |
| |
|
(507)
Deutsch
English
Français
Español
Italia