Deutsch
Quelltexte/ Codesnippets

Animierte Gifs

 

Walter

Habe ausgehend von [...] 
versucht, animierte Gifs ablaufen zu lassen.
Nach einigen Anpassungen hier nun eine gif.inc, die auf der ursprünglichen pic.inc von Martin Pohl basiert.
Damit ist es nun möglich, die Gif einmal oder mehrmals oder auch dauernd ablaufen zu lassen.
V1.1: Zusätzlich ist nun die Größe der Darstellung wählbar
Weitere Verbesserungen sind gerne willkommen!

8 kB
Version:1.1
Hochgeladen:02.12.2018
Ladeanzahl42
Herunterladen
 
02.12.2018  
 




Walter

So, hier noch ein Beispiel für V1.1 - ergänzt um den Modus, der die Größe der Bilddarstellung steuert (plus eine kl. GIF-Datei zum Ausprobieren):

' Beispiel für gif.inc V1.1
' Walter Kowarik
' 6.1.2019
'
declare pfad$,Bild$,WieOft%,Modus%

pfad$=GetDir$("")

$I gif.inc

' Bild laden
Bild$=loadfile$("GIF auswählen",pfad$+"\*.gif")
WieOft%=val(input$("einmal=1, dauernd=0","Wie oft?","0"))

cls
print "Modus: Das Bild wird\n0=in Rahmengröße (ev. verzerrt) dargestellt,\
\n1=unverzerrt in den Rahmen eingepasst,\n2=in der ursprünglicher Bildgröße angezeigt,\
\n3=ein kleines Bild wird in Bildgröße angezeigt, \n ein großes unverzerrt in den Rahmen eingepasst"
Modus%=val(input$("","Modus","3"))

cls
' eventuell bereits angewählte Bildnummer wird vorsichtshalber geschlossen
ClosePic(1)

' Animation wird gestartet
LoadAnim(Bild$,10,10,300,270,%Hwnd,1,WieOft%,Modus%)

waitinput

ClosePic(1)
' oder MCISend$("CLOSE ALL")

29 kB
Version:1.1
Hochgeladen:08.12.2018
Ladeanzahl43
Herunterladen
 
08.12.2018  
 




Walter
Hab eine V1.1 erstellt und darin noch den Modus ergänzt (auch bereits im Download und im Beispiel) wodurch bestimmt wird, wie das Gif-Bild angezeigt wird:

# Ist dieser Parameter 0, so wird das Bild in der von dem Rahmen-Rechteck angegeben Größe gezeigt (und dabei ggf. verzerrt)
# Ist er 1, wird das ursprüngliche Seitenverhältnis beibehalten und das Bild in der Größe so angepasst, dass es unter Beibehaltung des Seitenverhältnisses in das angegebene Rechteck passt
# Ist er 2, wird das Bild unverzerrt in seiner eigenen Größe dargestellt (und somit ggf abgeschnitten)
# Ist er 3, so wird das Bild - sofern es kleiner als der Rahmen ist (zB ein Smiley) - in seiner eigenen Größe dargestellt; ist es größer als der Rahmen, wird es unverzerrt so weit verkleinert, dass es in den Rahmen passt (diesen Modus verwende ich selbst meistens, da ich Smileys anzeige, aber auch andere Bilder, die dann in den Rahmen eingepasst werden).
 
07.01.2019  
 




Manfred
Barei
Hallo Walter,

beim nächsten mal bitte so bei Code einfügen.
Rechts neben Smilies ist ein nach unten gerichteter Pfeil da bitte draufklicken und auf Quelltext gehen.
' Beispiel für gif.inc V1.1
' Walter Kowarik
' 6.1.2019
'
declare pfad$,Bild$,WieOft%,Modus%
pfad$=GetDir$("")
 $I gif.inc
' Bild laden
Bild$=loadfile$("GIF auswählen",pfad$+"\*.gif")
WieOft%=val(input$("einmal=1, dauernd=0","Wie oft?","0"))
cls
print "Modus: Das Bild wird\n0=in Rahmengröße (ev. verzerrt) dargestellt,\
\n1=unverzerrt in den Rahmen eingepasst,\n2=in der ursprünglicher Bildgröße angezeigt,\
\n3=ein kleines Bild wird in Bildgröße angezeigt, \n ein großes unverzerrt in den Rahmen eingepasst"
Modus%=val(input$("","Modus","3"))
cls
' eventuell bereits angewählte Bildnummer wird vorsichtshalber geschlossen
ClosePic(1)
' Animation wird gestartet
LoadAnim(Bild$,10,10,300,270,%Hwnd,1,WieOft%,Modus%)
waitinput
ClosePic(1)
' oder MCISend$("CLOSE ALL")

Gruß
 
XProfan X2
Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 |
09.01.2019  
 




Walter
okay, wusste ich nicht...
 
11.01.2019  
 



Zum Quelltext


Thementitel, max. 100 Zeichen.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Beitrag  Schrift  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Themenoptionen

1.030 Betrachtungen

Unbenanntvor 0 min.
p.specht vor 5 Tagen
RICOSCH vor 16 Tagen
Georg Teles18.10.2019
Uwe Lang01.09.2019
Mehr...

Themeninformationen

Dieses Thema hat 2 Teilnehmer:

Walter (4x)
Manfred Barei (1x)


AGB  |  Chat  |  Datenschutz  |  Download  |  Eingangshalle  |  Hilfe  |  Impressum  |  Mart  |  Support  |  Suche

Ein Projekt aller XProfaner, die es gibt!


Mein XProfan
Private Nachrichten
Eigenes Ablageforum
Themen-Merkliste
Eigene Beiträge
Eigene Themen
Zwischenablage
Abmelden
 Deutsch English Français Español Italia
Übersetzungen

Datenschutz


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie