XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Bitmaps: GIFs anzeigen
Lauffähig ab Profan-Version 5.0
Sollte bei eine animierte GIF-Datei nicht angezeigt werden, wenn sie geladen wurde einfach
mal kurz das Fenster verschieben und schon ist sie da.
Das Problem hatte ich mit der test.gif unter WindowsXP
 $P+
SetTrueColor 1
Def @GSC(1) !USER32,GetSysColor
 $I pic.inc
 $I Caption.inc
WindowStyle 31
WindowTitle PIC.inc
Window @CenterX(640),@CenterY(500)-@CaptionX(640),@CaptionY(500)
CLS @GSC(15)
PopUp Datei
AppendMenu 100,Bild laden
AppendMenu 101,Bild gestreckt laden
Separator
AppendMenu 102,Animation laden
AppendMenu 103,Animation gestreckt laden
Separator
AppendMenu 104,Ende

While 1

    WaitInput

    If @Equ(%Key,2)

        ClosePic 1
        End

    ElseIf @MenuItem(100)

        ClosePic 1
        LoadPic @LoadFile$(Bild laden,Unterstützte Dateien (*.gif; *.jpg; *.jpeg)|*.gif; *.jpg; *.jpeg|Alle Dateien (*.*)|*.*),0,0,0,0,%HWnd,1

    ElseIf @MenuItem(101)

        ClosePic 1
        LoadPic @LoadFile$(Bild laden,Unterstützte Dateien (*.gif; *.jpg; *.jpeg)|*.gif; *.jpg; *.jpeg|Alle Dateien (*.*)|*.*),0,0,@Width(%HWnd),@Height(%HWnd),%HWnd,1

    ElseIf @MenuItem(102)

        ClosePic 1
        LoadAnim @LoadFile$(Animation laden,Unterstützte Dateitypen (*.gif)|*.gif),0,0,0,0,%HWnd,1

    ElseIf @MenuItem(103)

        ClosePic 1
        LoadAnim @LoadFile$(Animation laden,Unterstützte Dateitypen (*.gif)|*.gif),0,0,@Width(%HWnd),@Height(%HWnd),%HWnd,1

    ElseIf @MenuItem(104)

        ClosePic 1
        End

    EndIf

EndWhile