XProfan

Español

Walter

Posesiones ausgehend von [...]

intenta, animierte Gifs ablaufen que se.
Nach algunos Anpassungen hier nun una gif.inc, el en el ursprünglichen pic.inc de Martin Pohl basiert.
Damit es nun posible, el Gif una vez oder mehrmals oder auch dauernd ablaufen que se.
V1.1: Zusätzlich es nun el Größe el Darstellung wählbar
Weitere Verbesserungen son gerne willkommen!

gif.inc	8 kB

Versión:	1.1

Hochgeladen:	02.12.2018

Ladeanzahl:
		Descargar

02.12.2018 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Walter

So, hier todavía una Ejemplo para V1.1 - ergänzt en el Modus, el el Größe el Bilddarstellung steuert (plus una kl. GIF-Expediente para Ausprobieren):

' Ejemplo para gif.inc V1.1
' Walter Kowarik
' 6.1.2019
'
declarar pfad$,Bild$,WieOft%,Modus%

pfad$=GetDir$("")

$I gif.inc

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

cls
imprimir "Modus: Das Bild se\n0=in Rahmengröße (ev. verzerrt) dargestellt,\
\n1=unverzerrt en el Rahmen eingepasst,\n2=in el ursprünglicher Bildgröße adecuado,\
\n3=ein kleines Bild se en Bildgröße adecuado, \n una großes unverzerrt en el Rahmen eingepasst"
Modus%=val(input$("","Modus","3"))

cls
' eventuell ya angewählte Bildnummer se vorsichtshalber geschlossen
ClosePic(1)

' Animation se comenzó
LoadAnim(Bild$,10,10,300,270,%Hwnd,1,WieOft%,Modus%)

waitinput

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

schaukeln-girl_268.gif	29 kB

Versión:	1.1

Hochgeladen:	08.12.2018

Ladeanzahl:
		Descargar

08.12.2018 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Walter

Hab una V1.1 erstellt y en él todavía el Modus ergänzt (auch ya en el Descargar y en el Ejemplo) wodurch determinado se, como el Gif-Bild adecuado se:

# Ist dieser Parámetro 0, así el Bild en el de el Rahmen-Rechteck angegeben Größe gezeigt (y esta ggf. verzerrt)
# Ist él 1, se el ursprüngliche Seitenverhältnis beibehalten y el Bild en el Größe así adaptado, dass lo bajo Beibehaltung des Seitenverhältnisses en el angegebene Rechteck passt
# Ist él 2, se el Bild unverzerrt en su eigenen Größe dargestellt (y somit ggf abgeschnitten)
# Ist él 3, así el Bild - sofern lo kleiner como el Rahmen es (zB una Smiley) - en su eigenen Größe dargestellt; es größer como el Rahmen, se lo unverzerrt así weit verkleinert, dass lo en el Rahmen passt (esta Modus verwende Yo incluso meistens, como Yo Smileys anzeige, aber auch otro Bilder, el entonces en el Rahmen eingepasst voluntad).

XProfan X4

07.01.2019 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Manfred
Barei

¡Hola Walter,

beim nächsten veces Por favor, así en Code einfügen.
Rechts neben Smilies es una después de unten gerichteter Pfeil como Por favor, draufklicken y en Ver código fuente ir.

Kompilieren Marca Separación

' Ejemplo para gif.inc V1.1
' Walter Kowarik
' 6.1.2019
'
declarar pfad$,Bild$,WieOft%,Modus%
pfad$=GetDir$("")
 $I gif.inc
' Bild invitar
Bild$=loadfile$("GIF auswählen",pfad$+"\*.gif")
WieOft%=val(input$("einmal=1, dauernd=0","Wie oft?","0"))
cls
imprimir "Modus: Das Bild se\n0=in Rahmengröße (ev. verzerrt) dargestellt,\
\n1=unverzerrt en el Rahmen eingepasst,\n2=en el ursprünglicher Bildgröße adecuado,\
\n3=una kleines Bild se en Bildgröße adecuado, \n una großes unverzerrt en el Rahmen eingepasst"
Modus%=val(input$("","Modus","3"))
cls
' eventuell ya angewählte Bildnummer se vorsichtshalber geschlossen
ClosePic(1)
' Animation se comenzó
LoadAnim(Bild$,10,10,300,270,%Hwnd,1,WieOft%,Modus%)
waitinput
ClosePic(1)
' oder MCISend$("CLOSE ALL")

Saludo

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 Zitat

Absatzweise Cita Zeilenweise Cita

Walter

okay, wusste Yo no...

XProfan X4

11.01.2019 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

p.specht

Als Retro-Rip el GIF.INC para XProfan11.2a-Libre como GIF11.INC-Snippet:
Problema: Der Bildlauft stockt In XProfan 11 regelmäßig para 1/2 Sekunde. Sombrero alguien una Concepto, cómo hacerlo flüssiger hacer kann?

Kompilieren Marca Separación

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

Proc LoadAnim

    Parámetros MP_Pfad$,MP_X%,MP_Y%,MP_B%,MP_H%,MP_Win%,\
    MP_Num%,MP_Rep%,Modus%
    Declarar MP_MCI$, i%,Pic&,Fak!

    if Modus%=0' verzerrt einipassen

    elseif Modus%=1' proportional einpassen

        Pic&=Crear("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 oder überdecken

        Pic&=Crear("HPIC", -1,MP_Pfad$)
        MP_B%=%bmpx
        MP_H%=%bmpy
        DeleteObject Pic&

    elseif Modus%=3' si <= Rahmen orig. Größe, sonst prop. einpassen

        Pic&=Crear("HPIC", -1,MP_Pfad$)

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

            MP_B%=%bmpx
            MP_H%=%bmpy

        más

            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$)

    if MP_Rep%=0' Dauernd wiederholen

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

    más

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

        Whileloop MP_Rep%:i%=&Loop'  Durchlauf sooft hier gewünscht

            @MCISend$(MP_MCI$)
            sleep 2000

        endWhile

    endif

ENDPROC

Proc ClosePic :parámetros MP_Num%

    Declarar MP_MCI$
    MP_MCI$="CLOSE MP_PIC";@Str$(MP_Num%)
    @MCISend$(MP_MCI$)

ENDPROC

' --------------- End of gif11.inc
MAIN:
''''''''  $I gif11.inc  ' Falls gif11.inc como INCLUDE, Por favor, uncommenten
declarar pfad$,Bild$,WieOft%,Modus%
pfad$=GetDir$("@")
Bild$=loadfile$("GIF auswählen",pfad$+"\*.gif")
WieOft%=val(input$("einmal=1, dauernd=0","Wie oft?","0"))
cls
imprimir "Modus: Das Bild se\n0=in Rahmengröße (ev. verzerrt) dargestellt,"
imprimir "\n 1 = unverzerrt en el Rahmen eingepasst,"
imprimir "\n 2 = en el ursprünglichen Bildgröße adecuado,"
imprimir "\n 3 = una kleines Bild se en Bildgröße adecuado, ein"
imprimir   "       großes unverzerrt en el Rahmen 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)
' oder MCISend$("CLOSE ALL")