XProfan

Cls
Declare bild&,hdl&,Datei$
Datei$ = "hier das Bild.jpg"
Randomize
Window 100,100 - (Rnd(600) + 400),(Rnd(400) + 600)
hdl& = Create("hSizedPic",-1,Datei$,Width(%hwnd),Height(%hwnd),0)
'Die 0 am Ende sorgt dafür, daß das Bild immer an das Fenster angepaßt wird.
'Der Nachteil ist, daß das Bild dadurch verzerrt werden kann, wenn das Verhältnis Breite/Höhe anders ist.
print hdl&
bild& = Create("Bitmap",%hwnd,hdl&,0,0)
WaitInput
DeleteObject hdl&

alt:
'----- Hintergrundbild Standard -----
Declare HGB$

Proc Hintergrundbild

    HGB$ = @ReadIni$ (Prini$, "Allgemein", "Hintergrundbild")

EndProc

' Prini$ ist die ini wo der Dateiname hinterlegt ist = Baum.jpg
WindowTitle "Test"
ShowMax
CLS
DrawPic (Hintergrundbild$+HGB$), 0, 0; 0
'So hat er mir das Hintergrundbild übergroß angezeigt im Fenster, nicht angepasst.
'Hintergrundbild$=der Ordner wo das Bild liegt.
neu:
WindowTitle "Test"
ShowMax
CLS
declare hdl&, bild&
hdl& = Create("hSizedPic",-1,Hintergrundbild$+(@ReadIni$ (Prini$, "Allgemein", "Hintergrundbild")),Width(%hwnd),Height(%hwnd),0)
bild& = Create("Bitmap",%hwnd,hdl&,0,0)
'Hierbei erkennt er den HGB$ nicht mehr, musste diesen gegen das neue auslesen der ini ersetzen.

declare hdl&, bild&
declare Hintergrundbild$, HGB$
Hintergrundbild$ = "Pfad"'Pfad angeben !!!
HGB$ = Hintergrundbild$ + @ReadIni$ (Prini$, "Allgemein", "Hintergrundbild")
WindowTitle "Test"
CLS
ShowMax'erst, wenn Fenster erstellt ist, oder in einem Befehl: Window 0,0 - %MaxX,%MaxY
hdl& = Create("hSizedPic",-1,HGB$,Width(%hwnd),Height(%hwnd),0)
bild& = Create("Bitmap",%hwnd,hdl&,0,0)
end