XProfan

Français

Walter

Habe ausgehend von [...]

versucht, animierte Gifs ablaufen trop laisser.
Pour einigen Anpassungen ici eh bien une gif.inc, qui sur qui original pic.inc de Martin Pohl basé.
avec cela ist es eh bien possible, qui Gif einmal ou bien plusieurs fois ou bien aussi durable ablaufen trop laisser.
V1.1: Zusätzlich ist eh bien qui Taille qui représentation wählbar
Weitere Verbesserungen sommes volontiers willkommen!

gif.inc	8 kB

Version:	1.1

Hochgeladen:	02.12.2018

Downloadcounter:
		Download

02.12.2018 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Walter

So, ici encore un Beispiel pour V1.1 - ergänzt um den Modus, qui qui Taille qui Bilddarstellung steuert (plus une kl. GIF-Dossier zum Ausprobieren):

' Beispiel pour gif.inc V1.1
' Walter Kowarik
» 6.1.2019
»
declare pfad$,Bild$,WieOft%,Modus%

pfad$=GetDir$(»)

$I gif.inc

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

cls
imprimer "Modus: cela Bild wird\n0=in Rahmengröße (ev. verzerrt) dargestellt,\
\n1=unverzerrt dans den cadre eingepasst,\n2=in qui ursprünglicher Bildgröße angezeigt,\
\n3=ein kleines Bild wird dans Bildgröße angezeigt, \n un großes unverzerrt dans den cadre 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)
' ou bien MCISend$("CLOSE ALL")

schaukeln-girl_268.gif	29 kB

Version:	1.1

Hochgeladen:	08.12.2018

Downloadcounter:
		Download

08.12.2018 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Walter

Hab une V1.1 erstellt et y encore den Modus ergänzt (aussi bereits im Télécharger et im Beispiel) wodurch bestimmt wird, comment cela Gif-Bild angezeigt wird:

# Ist cette paramètre 0, so wird cela Bild dans qui de dem cadre-Rechteck angegeben Taille gezeigt (et dabei ggf. verzerrt)
# Ist il 1, wird cela ursprüngliche Seitenverhältnis beibehalten et cela Bild dans qui Taille so angepasst, dass es sous Beibehaltung des Seitenverhältnisses dans cela angegebene Rechteck passt
# Ist il 2, wird cela Bild unverzerrt dans seiner eigenen Taille dargestellt (et somit ggf abgeschnitten)
# Ist il 3, so wird cela Bild - sofern es kleiner comme qui cadre ist (zB un Smiley) - dans seiner eigenen Taille dargestellt; ist es größer comme qui cadre, wird es unverzerrt so large verkleinert, dass es dans den cadre passt (cette Modus verwende je selbst la plus part du temps, là je Smileys anzeige, mais aussi autre Bilder, qui ensuite dans den cadre eingepasst volonté).

XProfan X4

07.01.2019 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Manfred
Barei

allô Walter,

beim prochain la fois s'il te plaît so chez Code insérer.
à droite près de Smilies est un pour unten gerichteter flèche voilà draufklicken et sur Voir le texte source aller.

Kompilieren Marque Séparation

' Beispiel pour gif.inc V1.1
' Walter Kowarik
' 6.1.2019
'
declare pfad$,Bild$,WieOft%,Modus%
pfad$=GETDIR $(»)
 $I gif.inc
' Bild magasin
Bild$=loadfile$("GIF auswählen",pfad$+"\*.gif")
WieOft%=val(input$("einmal=1, dauernd=0","Wie souvent?","0"))
cls
imprimer "Modus: cela Bild wird\n0=in Rahmengröße (ev. verzerrt) dargestellt,\
\n1=unverzerrt dans den cadre eingepasst,\n2=dans qui ursprünglicher Bildgröße angezeigt,\
\n3=un kleines Bild wird dans Bildgröße angezeigt, \n un großes unverzerrt dans den cadre 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)
' ou bien MCISend$("CLOSE ALL")

Salut

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 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Walter

okay, wusste je pas...

XProfan X4

11.01.2019 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

p.specht

comme Retro-Rip qui GIF.INC pour XProfan11.2a-Free comme GIF11.INC-Snippet:
Problem: qui Bildlauft stockt dans XProfan 11 régulier pour 1/2 seconde. Hat quelqu'un une concept, comment on cela liquide faire peux?

Kompilieren Marque Séparation

' ---- GIF11.INC snippet ---------
' based on GIF.INC by Walter Kowarik (c) 2019

Proc LoadAnim

    Paramètres MP_Pfad$,MP_X%,MP_Y%,MP_B%,MP_H%,MP_Win%,\
    MP_Num%,MP_Rep%,Modus%
    Déclarer MP_MCI$, i%,Pic&,Fak!

    si Modus%=0' verzerrt einipassen

    elseif Modus%=1' proportional einpassen

        Pic&=Créer("hSizedPic", -1,MP_Pfad$, MP_B%, MP_H%, 1)
        ' skalieren
        Fak!=MP_H%/%bmpy
        MP_H%=MP_H%/Fak!
        DeleteObject Pic&

    elseif Modus%=2' Originalgröße, ev. clipping ou bien überdecken

        Pic&=Créer(«PCSI», -1,MP_Pfad$)
        MP_B%=%bmpx
        MP_H%=%bmpy
        DeleteObject Pic&

    elseif Modus%=3' si <= cadre orig. Taille, sonst prop. einpassen

        Pic&=Créer(«PCSI», -1,MP_Pfad$)

        si (MP_H%>=%bmpy) and (MP_B%>=%bmpx)

            MP_B%=%bmpx
            MP_H%=%bmpy

        d'autre

            Fak!=MP_H%/%bmpy
            MP_H%=MP_H%*Fak!
            DeleteObject Pic&

        endif

        DeleteObject Pic&

    endif

    MP_MCI$="OPEN",@Chr$(34);MP_Pfad$;@Chr$(34),"TYPE MPEGVIDEO ALIAS MP_PIC";@Str$(MP_Num%)
    @MCISend$(MP_MCI$)
    MP_MCI$="WINDOW MP_PIC";@Str$(MP_Num%);" HANDLE",@Str$(MP_Win%)
    @MCISend$(MP_MCI$)
    MP_MCI$="WINDOW MP_PIC";@Str$(MP_Num%);" STRETCH"
    @MCISend$(MP_MCI$)
    MP_MCI$="PUT MP_PIC";@Str$(MP_Num%);" DESTINATION AT",@Str$(MP_X%),@Str$(MP_Y%),@Str$(MP_B%),@Str$(MP_H%)
    @MCISend$(MP_MCI$)

    si MP_Rep%=0' durable wiederholen

        MP_MCI$="PLAY MP_PIC";@Str$(MP_Num%);" REPEAT"
        @MCISend$(MP_MCI$)

    d'autre

        MP_MCI$="PLAY MP_PIC";@Str$(MP_Num%); " FROM 0:0:0"

        Whileloop MP_Rep%:i%=&Boucle'  Durchlauf sooft ici gewünscht

            @MCISend$(MP_MCI$)
            sleep 2000

        endWhile

    endif

ENDPROC

Proc ClosePic :parameters MP_Num%

    Déclarer MP_MCI$
    MP_MCI$="CLOSE MP_PIC";@Str$(MP_Num%)
    @MCISend$(MP_MCI$)

ENDPROC

' --------------- Fin of gif11.inc
MAIN:
''''''''  $I gif11.inc  ' si gif11.inc comme INCLUDE, s'il te plaît uncommenten
declare pfad$,Bild$,WieOft%,Modus%
pfad$=GETDIR $("@")
Bild$=loadfile$("GIF auswählen",pfad$+"\*.gif")
WieOft%=val(input$("einmal=1, dauernd=0","Wie souvent?","0"))
cls
imprimer "Modus: cela Bild wird\n0=in Rahmengröße (ev. verzerrt) dargestellt,"
imprimer "\n 1 = unverzerrt dans den cadre eingepasst,"
imprimer "\n 2 = dans qui original Bildgröße angezeigt,"
imprimer "\n 3 = un kleines Bild wird dans Bildgröße angezeigt, ein"
imprimer   "       großes unverzerrt dans den cadre eingepasst"
Modus%=val(input$(»,"Modus","3"))
Cls
ClosePic(1)' angewählte Bildnummer vorsichtshalber schließen
LoadAnim(Bild$,10,10,300,270,%Hwnd,1,WieOft%,Modus%)
waitinput
ClosePic(1)
' ou bien MCISend$("CLOSE ALL")