XProfan

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