XProfan

'PCU-Version 0.5
'Copyright by MB-Soft 2008 - 2011
'Autor: Manfred Barei
'per Aiuto bei diesem Projekt möchte ich mich bei folgender/n Person/en bedanken:
'Frank Abbing
'Die PCU ist Freeware und darf uneingeschrängt benuzt werden, jedoch liegen die Rechte bei MB-Soft.
'Bei Verwendung der PCU in eigenen Programmen sollte/n der/die Autori erwähnt werden!
 $U Picturewahl.pcu = Bild_'pcu einbinden
Declare Bildpfad$,Bild&,Pfad$,BildTyp$
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
WINDOWSTYLE 31
windowtitle "Bildauswahl-Test"
WINDOW (%maxx/2 - 640/2),(%maxy/2 - 500/2) - 640,500
CLS
Pfad$ = "C:\"
'BildTyp$ = "Alle"
' oder
BildTyp$ = "*.JPG"' hier können alle Bildendungen angegeben werden die XProfan unterstüzt.
Bildpfad$ = Bild_wahl(Pfad$,BildTyp$)' Aufruf der .pcu

If Bildpfad$ <> ""

    Bild& = @Create("hPic",-1,Bildpfad$)
    DrawPic Bild&,0,0;0
    DeleteObject Bild&

EndIf

waitinput
end