Throbber in Lazarus-Anwendung

[Targion]

Hallo!
Gibt es eine Möglichkeit, einen Throbber auf einem Formular (möglichst ohne weitere externe Komponenten) anzeigen zu lassen? Kann man den aus einer lib importieren, oder muss man eine GIF-Animation reinbauen?

[theo]

Hallo!
Gibt es eine Möglichkeit, einen Throbber auf einem Formular (möglichst ohne weitere externe Komponenten) anzeigen zu lassen? Kann man den aus einer lib importieren, oder muss man eine GIF-Animation reinbauen?

Verstehe zwar nicht ganz was du meinst mit "lib importieren" ... "ohne weitere externe Komponenten", aber das voraussetzungsfreieste ist wohl, wenn du einfach mit Timer gesteuert verschiedene Bilder in ein TImage lädst.

[monta]

Alternativ eventuell auch ein Animiertes Gif, setzt allerdings eine entsprechende Komponente voraus.

OpBitmap kann das glaub ich. (theo wird mich da berichtigen) Und TGifAnim gibts auch, nur die Seite von Wile64 ist irgendwie down.

[Targion]

Ja, die Komponenten kenne ich. Ich kann das ja mal ausprobieren. (mit OPBitmap)
Zu den libs: Throbber sind in einigen GTK-libs enthalten.

[theo]

Bei OpBitmap sind zwar die Voraussetzungen im GIF Reader schon vorhanden, aber die Animations-Funktionalität ist nicht direkt abrufbar.
(Passt irgendwie nicht so recht zum Rest).
Es gibt aber noch einen Uralt-Thread wo ich das mit einem Vorläufer von OpBitmap gemacht habe:
http://www.lazarusforum.de/viewtopic.php?p=1694#p1694" onclick="window.open(this.href);return false;

DIe Gif Libs da sind die selben wie in OpBitmap. Das liesse sich wahrsch. relativ schnell anpassen, wenn du das machen möchtest.
Kann man nat. auch so verwenden. Dann vielleicht die doppelten Dateien entfernen, wenn du's parallel mit Opbitmap betreiben willst.

Oder die Kompo von Wile64 verwenden, die ich jetzt aber auch nicht finde.

Ich finde die Lösung mit TTimer und TImage aber am einfachsten, wenn man keine GIF lesen MUSS.

EDIT: Ich probier's mal mit OpBitmap hinzukriegen, kann keine grosse Sache sein.

[theo]

So, anbei Anigif mit den OpBitmap libs.
Da Threads verwendet werden, muss man im Project.lpr die {$IFDEF UseCThreads} löschen oder den Compilerschalter mitgeben.

Das könnte man natürlich noch in eine nette Klasse packen und auch sonst verbessern, aber da habe ich jetzt keine Zeit zu.
Ich glaube es wird auch so klar, wie man's verwendet

[Targion]

DANKE! Ich war grade schon dabei, das mit der OPBitmap selbst zu schreiben. (Weil ich nichts für Animationen gefunden habe)
Ich bin aber so weit gekommen, dass ca. 3 Einzelbilder gezeigt wurden und es dann eine Exception gab. (Und dann habe ich festgestellt, dass sich der Aufwand für einen simplen Splashscreen nicht lohnt)
Aber so wird bestimmt noch was draus!

[theo]

Schon gut.
Nimm vielleicht besser anstatt TPanel Timage oder sowas zum anzeigen, dann geht's auch auf Qt.
Ist halt nicht so ganz fertig, dafür aber flexibel.
Musst vielleicht selber noch fine-tunen.

[marcov]

Schon gut.
Nimm vielleicht besser anstatt TPanel Timage oder sowas zum anzeigen, dann geht's auch auf Qt.
Ist halt nicht so ganz fertig, dafür aber flexibel.
Musst vielleicht selber noch fine-tunen.

TPaintbox?

[theo]

TPaintbox?

Geht auch. Am besten würde man daraus eine von TGraphicControl abgeleitete Komponente machen.
Irgendwie gab's das schon mal von Wile64, darum habe ich das nicht nochmal gemacht.
Aber die Site ist down: http://wile64.neuf.fr/" onclick="window.open(this.href);return false;

[theo]

Ich habe im französischen Forum nachgefragt.
Die GifAnim Komponente von Wile64 kann man auch hier downloaden. http://www.espace-malin.fr/download/component/gifanim/" onclick="window.open(this.href);return false;
Die ist bestimmt etwas ausgefeilter als meine Lösung.

[ts230]

Das geht doch so einfach!
Ne ImageList mit den Einzelbildern,Ein Image und timer.
In den Timer kommt folgender Code rein:

Code: Alles auswählen

if i = 15 then i:=0;
  if i = 0 then y:=1;
  if y = 1 then i:=i+1;
  ImageList1.GetBitmap(i, Image1.Picture.Bitmap);

Die Variablen sind global.

[KOBOLD Messring GmbH]

So habe ich das auch gemacht:
TTimer-Komponente, einen Zähler (kann man auch in der Function OnTimer analog zu' ner C Static Var mit
CONST nZaehler : Integer = 0;
deklarieren)
und dann aus einer ImageList, die Bilder in ein TImage rein (exakt wie ts230 beschrieben)
ABER,... ich habe folgende Merkwürdigkeit, ¿vielleicht einer von Euch eine Idee zur Abhilfe?
Ich starte den Timer,
dann kommt eine Datenbankabfrage (auf eine AS/400 über ODBC), die dauert ihre guten 10 Sekunden.
Während diese läuft, steht auch der Timer ¡und mein Throbber auch!
Doch genau dafür bräuchte ich ihn ja, damit der Anwender weiss, dass das Programm noch arbeitet und sich (noch ) nicht aufgehängt hat.
¿Habt Ihr 'ne Idee, wie man so einen Timer dazu bewegen kann, immer zu arbeiten? (natürlich habe ich auch in die OnTimer-Proc ein Application.ProcessMessages nach dem setzen des Images drin, aber das ist scheinbar egal, da kommt gar keine System-Message, weil die Anwendung wohl soooo mit der SQL-Abfrage beschäftigt ist

[mse]

¿Habt Ihr 'ne Idee, wie man so einen Timer dazu bewegen kann, immer zu arbeiten? (natürlich habe ich auch in die OnTimer-Proc ein Application.ProcessMessages nach dem setzen des Images drin, aber das ist scheinbar egal, da kommt gar keine System-Message, weil die Anwendung wohl soooo mit der SQL-Abfrage beschäftigt ist

Falls du die Abfrage im main thread aufrufst, solltest du dich nicht wundern, da ja während des Aufrufes niemand die timer Ereignisse aus der Warteliste holt und auswertet.
Wenn dein DB-System keinen wait-callback zur Verfügung stellt, bleibt wohl nichts anderes übrig als Animation und DB-Abfrage in verschiedenen threads auszuführen.

[theo]

Das geht doch so einfach!

Diese Variante hatte ich oben bereits mehrfach erwähnt. Das wollte Targion aber nicht.

@Kobold: Meine Gif Variante benutzt zwar Threads, aber wenn der Hauptthread blockt, kann sie wahrsch. auch nicht synchronisieren.
Wie mse sagt, müsstest du deine DB Abfrage wahrsch. auch in einen Thread auslagern, wenn diese keine "Lebenszeichen" von sich geben kann.