XProfan

Z.B. such Image(it)? [...]

[...]

with XProfan11 one htmlWin (z.B. without Border) which one .gif indicating or one SysAnimate32-Control [...]

07/27/09 ▲

Dietmar
Horn

Hello Sato,

a alternative this would too The PrfGif.dll of Andreas Miethe [...]

These DLL is Freeware, its solely a Free registration at Author necessary.

I use The DLL anyway gladly. lastly z.B. in my small SkypeIcons-Progrämmchen, in which Mainwindow with Help this DLL 84 Animationen at the same time flounder.

if You animated Gifs seek: In my XProfan-manager are in the Unterordner AnimGifs ca. 1350 animated Gifs gebunkert (too accessible over the Menu: aide -> Lister -> GIF-Lister). there might well for almost each object what Suitable thereby his.

Greeting
Dietmar

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

07/27/09 ▲

Sato
Pinto

Hello

thanks you both

have The DLL of Andreas Miethe loaded, still unfortunately appear only the vain Mainwindow, it happens nothing. whom Registrierungscode whom I get have, have in the variable code$ laid. I faith with the loaded example can really nothing wrong make, or functions not XP Home?

greeting
Sato

Sato Pinto
WIN XP Home
XPROFAN 11

Thomas
Freier

And if You this example verwendest?
Compile Mark Separation

Animation: Bildschonschoner läuft im XProfan-Fenster
PRFellow-Vorlage
Autor: Thomas Hölzer
Bildschirmschoner läuft in einem Profan-Fenster
(wie Win 9x/NT4 - Vorschau)
Funktioniert nur mit Win32-Schonern, die dieses Feature unterstützen
Bitte erst prüfen, ob bezier.scr in WindowsSystem installiert ist
und ggf. anpassen!
1. Parameter: Bildschirmschonerdatei (mit Pfad)
2. Parameter: Handle des Ausgabefensters (muß kein Hauptfenster sein!)
Die Sleep-Pause sorgt dafür, daß der "Gastschoner" vor Beenden des
Programms sicher beendet ist, weil ansonsten Probleme auftreten können
(Schutzverletzung)
Die eingestellte Zeitspanne kann versuchsweise verringert werden.
 $I Profalt.inc
Def ScrPreview(2) WinExec(Add$(Add$($(1)," /P "),Str$(%(2))),0)
Def FindWindowEx(4) !"USER32","FindWindowExA"
Def Sleep(1) !"KERNEL32","Sleep"
Beispiel
Declare t#,ende%,h&
WindowStyle $20
Window 100,100-600,400
AppendMenuBar 1,"&Beenden"
Cls 0
var static& = Control("STATIC","",$54000104,10,10,100,40,%hwnd,0,%hinstance,$0)
ScrPreview(Add$($SysPath,"sspipes.scr"),static&)

WhileNot Ende%

    Waitinput

    IF Menuitem(1)

        Dim t#,33
        String t#,0=Add$("WindowsScreenSaverClass",Chr$(0))
        Let h&=FindWindowEx(%hwnd,0,t#,0)
        SendMessage(h&,$2,0,0)  wm_destroy, wm_close($10) geht auch
        Dispose t#
        Sleep(500)  Eine halbe Sek. warten, bis der Schoner sicher weg ist
        Let ende%=1

    EndIf

Wend

Gruß Thomas
Windows XP SP2, XProfan X2

Sato
Pinto

Hello Thomas

thanks, but I Search is very The DLL of Andreas Miethe, only unfortunately functions not
by me. have it already kontaktiert, Perhaps knows it council.

greeting
Sato

Sato Pinto
WIN XP Home
XPROFAN 11

Dietmar
Horn

I program To dwell ditto XP Home. it works everything wonderful with the DLL.

in the cabinet have I with this DLL erstellte programs already Windows 95 To windows 7 successful tested.

I type hereon, You begehst there somewhere a Pfadfehler, or the animated Gif is only so and is in reality no real Gif.

Look you time in the XProfan-manager with whom 64 DLLs the (compilierte) demonstration for PrfGif.dll on. I faith, had I then yet with Profan² 6.6 prepares. SkypeIcon erstellte I with XProfan 11.2a.

if the everything with you ditto not runs, then lying it definitiv somehow on Your computer.

Greeting
Dietmar

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

Sato
Pinto

Hello Dietmar

thanks for hint
the Problemm lying in the row
Compile Mark Separation

xx& = @AMShowGif(%hwnd,Add(addr(name$),1),20,20,-1,Add(Addr(Code$),1),rgb(192,192,192)) not ok
xx& = @AMShowGif(%hwnd,Add(addr(name$)-1,1),20,20,-1,Add(Addr(Code$)-1,1),rgb(192,192,192)) oke>

greeting
Sato

Sato Pinto
WIN XP Home
XPROFAN 11

Thomas
Freier

faith, I had too once Problems with whom GIFs and I then The AVI-Variante chosen (was to that Show, such a long time The Internetverbindung bestand). The AVI I had with a BMPAVI- Hilfstool prepares. Dietmar: is the in the PROFMAN include or here yet to find?
Compile Mark Separation

Declare avi#
Dim avi#,255
Declare down&,Fen1&
String avi#,0="video.avi"
var hwin&=CreateWindow(%hwnd,"test",10,20,800,600)
var but1&=CreateButton(hwin&,"Suchen",10,20,80,26)
var but2&=CreateButton(hwin&,"Stop",10,60,80,26)

While 1

    WaitInput
    case %key=2:BREAK

    If GetFocus(but1&)

        down&=Control("SysAnimate32","",$50080004,400,20,1,1,hwin&,0,%hinstance,$100)
        sendmessage(down&,1124,0,avi#)

    ElseIf GetFocus(but2&)

        DestroyWindow(down&)
        SetFocus(%hwnd)

    EndIf

EndWhile

DestroyWindow(down&)
Dispose avi#
End

Video.avi	51 kB

Hochgeladen:	07/28/09

Downloadcounter:
		Download

Gruß Thomas
Windows XP SP2, XProfan X2

Dietmar
Horn

yet is the Tool not drin, but at next Update (expected coming friday) becomes it in the manager include his.

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

Thomas
Freier

have on of/ one middle-aged CD two versions found. slopes tappt im dunkeln time ran.
and over IrfanView The Einzelbilder of/ one GIF as BMP abzuspeichern is Yes no trouble.

avifile_859.zip

12 kB

Hochgeladen:

07/28/09

Downloadcounter:

Download

avifile.zip

7 kB

Hochgeladen:

07/28/09

Downloadcounter:

Download

Gruß Thomas
Windows XP SP2, XProfan X2

Rolf
Koch

then would I The simplest method (already of iF suggested) vorziehen:
One rahmenloses HTML Control in the suitable Size and evtl. angepasster Backgroundcolor the Gifs or even the erstellten Html. is The simplest thing and even newest XProfanmitteln To achieve.