Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 249231 (10667)
  Suchen
 Zurück zur Übersicht
 AutorThema: Animierte Dialoge von Windows
Lemmi Noname
Datum:20.01.02 17:07 Antwortenals Email verschicken (lemmi.noname@t-online.de) 




Hi Leute,

ich hab ein Problem : Überall in Windows treten animierte Dialoge auf (Download - Internet Explorer; Kopieren - Explorer; Winzip - Koprimieren). Ich habe vor in meinem Programm auch so einen animierten Dialog zu verwenden, habe jedoch keine Ahnung wie ??? Könnt ihr mir helfen ?

Hochachtungsvoll Lemmi Noname


Frank Abbing
Datum:20.01.02 20:14 Antwortenals Email verschicken (frankabbing@12move.de) 


Hallo,

probiers' mal mit der ProSpeed.dll auf http://www.12move.de/home/frankabbing/
Mit den Sprite-Funktionen ist es ein leichtes, sollte Animationen zu erstellen, sogar ohne Größen-Beschränkungen.

Und gewöhn' dir doch bitte an, deinen richtigen Namen zu benutzen, oder heißt du wirklich Lemmi Noname ?
Irgendwie erinnert mich das an Lemmi und die Schmöker, wenn das noch jemand kennt.....

Gruß, Frank


Sven Schmidts
Datum:21.01.02 08:48 Antwortenals Email verschicken (schmidts@flat2serv.de) 


Wenn ich es recht in Erinnerung habe, dann kann VisualWindow bzw. PRFellow diese Animations erzeugen. Irgendwo in der entsprechenden Komponentenpalette befindet sich eine Komponente "Animation", die auf die Windows-eigenen zurückgreift. Die Animationen werden von Windows selbst zur Verfügung gestellt.

Mfg.
Sven Schmidts


Lemmi Noname
Datum:21.01.02 15:09 Antwortenals Email verschicken (lemmi.noname@t-online.de) 



Danke für die schnelle Hilfe !

Leider verfüge ich nicht über PRFellow (wo bekomme ich das her ?)

MfG Lemmi Noname


Sven Schmidts
Datum:21.01.02 15:20 Antwortenals Email verschicken (schmidts@flat2serv.de) 


Hallo,

keine Ahnung, aber VisualWindows:

- Info: http://www.msgroup.de/profan/vwp2.htm#info
- Download: http://www.msgroup.de/profan/vwp2.zip

Mfg.
Sven Schmidts


Stefan Schnell
Datum:21.01.02 23:58 Antwortenals Email verschicken (mail@stschnell.de) 


Hallo Lemmi,
Dein Problem lässt sich einfach lösen, habe mal mit Frank seiner ProSpeedDLL folgende Routine entwickelt:

'*CompilerDirektiven***********************************************************

$P+

'*IncludeDateien***************************************************************

$I ProSpeed_UseDLL.Inc

$I ProSpeed_Funktionen.Inc

'*VariablenDeklarationen*******************************************************

Declare hPicture&, hBack1&, hBack2&, hFileCopy%
Declare Name$
Declare hDialog%, hDialogDC&

'*Funktionsdefinitionen********************************************************

Def GetDC(1) !"USER32", "GetDC"

'*Hauptprogramm****************************************************************

Let hDialog% = @Create("Dialog", %HWnd, "FileCopy", 10, 10, 280, 80)
Let hDialogDC& = GetDC(hDialog%)

Let Name$ = "FILECOPY.PSF"
Let hPicture& = LoadExtBMP(Addr(Name$), hDialogDC&)
Let Name$ = "FILECOPYBACK.PSF"
Let hBack1& = LoadExtBMP(Addr(Name$), hDialogDC&)
Let hBack2& = LoadExtBMP(Addr(Name$), hDialogDC&)

Let hFileCopy% = InitSprite(hPicture&, hDialogDC&, hBack1&, hBack2&, 0, 0, 260, 40, \
17, 1, 8, 5, 5, 0, 0)

Sleep 10000

DeleteAllSprites()

FreeExtBMP(hBack2&)
FreeExtBMP(hBack1&)
FreeExtBMP(hPicture&)

@DestroyWindow(hDialog%)

$I ProSpeed_FreeDLL.Inc

'*Ende*************************************************************************

End

In der Datei FileCopy.PSF befindet sich die StandardAnimation für DateiKopieren (das fliegende Papier zwischen den Ordnern). Dies ist eine AVI-Animation, die ich einfach so umgewandelt habe, das sie mit ProSpeedDLL läuft.
Wenn Du interesse an den StandardAnimatedControls von Windows hast, so schicke mir ein eMail.
Hoffe Dir geholfen zu haben.
Tschüss
Stefan Schnell


Uwe ''Pascal'' Niemeier
Datum:22.01.02 09:47 Antwortenals Email verschicken (Pascalxd@owl-online.de) 


Hallo Leute!

Hier noch eine Lösung für Puristen (ohne Zusatz-dll oder spezielle IDE):

window 50,50-200,200
def GetModuleHandle(1) !"KERNEL32","GetModuleHandleA"
declare dll&,Ani&,dll$
dll$="shell32"
dll&=GetModuleHandle(addr(dll$))
Ani&=control("SysAnimate32","",$50080006,10,10,100,100,%hwnd,1,dll&)
sendmessage(Ani&,1124,0,150)'--ACM_OPEN (letzter Parameter: ID der AVI in der dll)
waitkey


Einzelheiten stehen in der Win32.hlp unter "AnimationControls"
P.S. Um zu gucken, welche AVI's es gibt und wie die ID's lauten, wirft man am Besten mal einen Blick mit Reshacker in die Shell32.

HTH
Pascal


Sven Schmidts
Datum: 22.01.02 10:48 Antwortenals Email verschicken (schmidts@flat2serv.de) 


:)


 Zurück zur Übersicht