| |
| |
|
| - page 1 - |
|
Georg
Hovenbitzer | allô zusammen,
j'ai là un Geschwindigkeitsproblem 
avec dem Code lasse je une Animation dans qui Statusleiste Montrer, seulement qui fonctionne pas justement vite ab.
Schaut on sich qui ANI direct à, ist vous super vite.
dans dem Programme avec qui je qui ANI erstellt habe, habe je qui Geschwindigkeit déjà entier hoch gedreht.
peut-être peux einer de euch mir helfe.
KompilierenMarqueSéparationDef Getsyscolor(1) !USER32,GetSysColor
Def Loadimage(6) !USER32,LoadImageA
Declare Ani$,Ani&,AniControl&,Status&,Status#,RECT#
WindowStyle 2 + 8 + 16 + 128 + 256 + 512
Window 0,0-1024,768
Getsyscolor(15)
Ani$ = \Progress_11.ani
Ani& = LoadImage(%hInstance,@Addr(Ani$),2,0,0,$10)
Dim Status#,8
Dim RECT#,16
Long Status#,0 = 984,-1
Status& = @Create(StatusWindow,%hWnd,,2,Status#)
@SendMessage(Status&,$040A,1,RECT#)
AniControl& = @Control(Static,,$50000003,(Long(RECT#,0) + 0),(Long(RECT#,4) + 2),0,0,Status&,0,%hInstance)
WhileNot %Key = 2
WaitInput
@SendMessage(AniControl&,$0170,Ani&,0)
WaitInput
@SendMessage(AniControl&,$0170,0,0)
EndWhile
DeleteObject Ani&
Dispose Status#
Dispose RECT#
Fin
|
 |
| |
| Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a) | 16.08.2007 ▲ |
|
| |
|
|
| |
| |
| - page 1 - |
|
Jörg
Sellmeyer | | chez mir ists comment chez Frank. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 16.08.2007 ▲ |
|
| |
|
|
 | | chez mir ists comment chez Jörg. |
|
| |
| |
| |
|
|
Georg
Hovenbitzer | allô zusamnen,
je suis eh bien quelque chose verwirrt !!
Läuft qui Ani Dossier im Programme vite ou bien lente ?
mon but wäre es, qui Animation im Programme plus rapide courir trop laisser.
comme externes Programme zur Anzeige nehme je toujours IrfanView et là fonctionne vous très vite. chez qui Erstellung qui Animation avec ArtCursors habe je comme Wiedergabegeschwindigkeit 60 Bilder pro seconde eingestellt. |
|
| |
| Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a) | 16.08.2007 ▲ |
|
| |
|
|
Jörg
Sellmeyer | chez mir ists comment chez Georg.... 
et comment chez Frank... 
Irfanview zeigt une schnelle Animation, im Eigenschaftsdialog et im Programme fonctionne es lente.
la hâte Du Dir déjà fois le Animationsbeispile de Andreas Miethe angesehen. peut-être hilft Dir là irgendwas plus. [...]  |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 16.08.2007 ▲ |
|
| |
|
|
GDL | si son den kleinen grünen poutre,qui avec Droit dans qui Zeitausgabe fonctionne meint, qui braucht pour une le cours de à gauche à droite chez mir ca. 8sec.Sonst ist qui kommplette Bildschirm vide.aussi sans Droit ist alles vide,aussi qui Taskbar.
salut
Georg |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | maintenant suis je aussi quelque chose verwirrt. quoi meinst Du avec Zeitausgabe? Pourquoi Droit?? Pourquoi Taskbar???
Dein Programme pouvoir doch rien rechtsklickspezifisches.
je vois à droite unten dans qui Statusbar pour beliebiger Eingabe (souris/clavier) qui Animation. aussi chez mir dauert vous ca.6-8 sec (seulement gezählt, des demie Schätzwert) sous Irfanview ist qui Animation réellement plus rapide. peut-être peux on avec einer Message dem Contrôle encore mitteilen comment vite qui Ani courir soll. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 16.08.2007 ▲ |
|
| |
|
|
Rolf
Koch | | rien rein garnichts trop voyons. Alles dans einem Pfad. |
|
| |
| |
| |
|
|
Michael
Wodrich | |
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 16.08.2007 ▲ |
|
| |
|
|
Rolf
Koch | *lol* Michael stimmt était la fois wieder trop vite 
alors si je es sous Roc comme animiertes Icon lade, bleibt qui Geschwindigkeit oui c'est ca qui selbe comment ici im Beispielprogramm.
Wird wohl so son, comme Jörg beschrieben hat. qui Framedauer wird dans einem trop erstellenden Ani eigentlich oui fix angegeben. |
|
| |
| |
| |
|
|
Michael
Wodrich | Findet alles dans qui ComCtrl.DLL statt. qui Prozess-Monitor hilft là malheureusement aussi pas plus.
belle Grüße
Michael Wodrich |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 17.08.2007 ▲ |
|
| |
|
| |
| |
| - page 2 - |
|
|
GDL | allô Jörg,
suis qui GDL Georg et pas qui Georg H.
chez mir bleibt qui Bildschirm solange vide jusqu'à je entier unten à droite, wohin qui l'heure angezeigt wird, avec qui souris rechtsklicke. Solange Je l' Mausbutton gedrückt halte fonctionne qui grüne poutre avec ca. 8 sec la durée par. Sobald Je l' Mausbutton loslasse ist alles wieder weg.
salut
GDL Georg |
|
| |
| |
| |
|
|
Georg
Hovenbitzer | je muss mich entschuldigen, habe entier oublier qc trop dire comment on cela Demo steuert.
simple avec qui linken Bouton de la souris dans cela geöffnete la fenêtre klicken, pour dem on qui ANI Dossier dans cela Verzeichnis des Quellcodes gelegt hat et im zweiten champ qui Statusbar erscheint qui Animation. chez einem weiteren Klick wir vous deaktiviert.
sous ROC fonctionne qui Animation so comment dans meiner Demo.
chez qui Erstellung qui Dossier habe je angegeben cela un Frame dans 1/60 einer seconde abgespielt wird.
qui ganze ANI 11 hat 113 Frames et sollte dans ca. 2 Sekunden einmal durchgelaufen son.
Anbei la fois un Code den je ici trouvé habe, wohin qui ANI comme Cursor geladen wird et là fonctionne vous vite !!!!!
KompilierenMarqueSéparationDef APILoadCursorFromFile(1) ! USER32,LoadCursorFromFileA
Def APISetCursor(1) ! USER32,SetCursor
Def APISetCursorPos(2) ! USER32,SetCursorPos
Def ApiSetClassLong(3) !user32,SetClassLongA
Declare hcur#,ende%,name$
Declare hc&,hcold&,curdef&
Let Name$ = @LoadFile$(Lade Animationsdatei,*.ani)
Case equ$(name$,):end
Dim hcur#,len(name$) + 1
String hcur#,0=name$
Let hc&=APILoadCursorFromFile(hcur#)Cursor laden -> entweder *.ANI oder *.CUR oder *.ICO
Windowstyle 272
WindowTitle Ende mit rechter Maustaste im Fenster.....
window 10,10-400,200
APISetCursorPos(100,100)Den Cursor ins Fenster setzen
Let hcold&=APISetCursor(hc&)Den Standard-Cursor sichern !
ApiSetClassLong(%HWND,-12,hc&)Cursor für das Hauptfenster wechseln
Wenn CONTROLS erzeugt werden, kann jedem
Controlstil ein eigener Cursor zugewiesen werden !
Declare Static&
Static& = @Control(Static,,$50000003,50,50,0,0,%hWnd,0,%hInstance)
@SendMessage(Static&,$0170,hc&,0)
whilenot ende%
Getmessage
IF @Equ(%Message,$0204)rechte Maustaste gedrückt ?
ApiSetClassLong(%hwnd,-12,hcold&)System-Standard-Cursor zurückschreiben
Dispose hcur#
Let ende%=1
Endif
Wend
Fin
|
|
| |
| Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a) | 17.08.2007 ▲ |
|
| |
|
(1.264)
Deutsch
English
Français
Español
Italia