animierte Gif auf Desktop

[besenmuckel]

Hier ein kleines Beispiel das die Form nicht viereckig sein muss.
MovieBox und Menue im Code erstellt. Man kann die MovieBox aber auch auf die Form packen und das Menue mit den MenueEditor erstellen.
Linksklick verschieben, Rechtsklick beenden.

Code: Alles auswählen

' Gambas class file

Private $MX As Integer
Private $MY As Integer
Private welt As Object
' Linksklick verschieben!
' Rechtsklick  beenden!

Public Sub Form_Open()

  FMain.Center
  welt = New MovieBox(Me) As "welt"    ' Objekt erstellen.
  Me.Border = False
  Me.Mask = True
  Me.Picture = Picture["maske.png"] ' dies ist die Maske fuer Hintergrund.
  FMain.Height = 225
  FMain.Width = 225
  welt.Path = "erde.gif"   ' dies ist das gif, was auf den Bereich der Maske angezeigt wird!
  welt.Move(0, 0, Me.ClientWidth, Me.ClientHeight)
  welt.Playing = True

End

Public Sub mnuEnde_Click()

  welt.Playing = False
  Me.Close

End

Public Sub welt_MouseDown()

  $MX = Mouse.ScreenX - Me.X
  $MY = Mouse.ScreenY - Me.Y

End

Public Sub welt_MouseMove()

  Me.Move(Mouse.ScreenX - $MX, Mouse.ScreenY - $MY)

End

Public Sub Form_Menu()

  Dim menus, item As Menu

  menus = New Menu(Me)    ' Neues Menu anlegen
  item = New Menu(menus) As "Ausmacher"   ' Neuer Eintrag im Menu, "Ausmacher" ist der Funtionsname der aufgerufen werden soll
  item.Text = ("ENDE")   ' Text für Menupunkt
  menus.Popup()    ' Menu anzeigen

End

Public Sub Ausmacher_Click()

  Me.Close

End

Bei Gambas 3.17
ersetze die Zeile

Code: Alles auswählen

 welt.Path = "erde.gif"   ' dies ist das gif, was auf den Bereich der Maske angezeigt wird!

durch

Code: Alles auswählen

welt.Animation = Animation.Load("erde.gif")   ' dies ist das gif, was auf den Bereich der Maske angezeigt wird!

siehe dazu den Beitrag viewtopic.php?f=3&t=5885&p=14839#p14839

hier noch die Maske und das Gif
maske.png
erde.gif

Weltkugel-0.0.1.tar.gz

(910.74 KiB) 554-mal heruntergeladen