Bild flackern trotz double buffered

[gasty]

Hi erstmal
Ich habe folgendes Problem:
Also ich habe eine Gif-Animation in mehrere Bitmaps zerlegt und diese als Resource in mein Delphi Projekt geladen.
Dann mit Timern bewegt und immer neues Bild geladen, klappt auch alles, bis auf das Bild-Flackern,
obwohl ich DoubleBuffered auf true hab. Gibt es denn da noch eine andere Möglichkeit?

Danke schonmal!

[patti]

Verwendest du zur Anzeige der Bilder eine normale TImage-Komponente? Wenn ja, liegt diese direkt auf dem Formular oder in einem extra Panel?

[gasty]

Ja, ist eine normale Timage Komponente und liegt auf einem Extra-Panel.

[Matze]

Moin,

hast du auch DoubleBuffered des Parent-Panels auf true gesetzt?
Du musst dafür immer die Eigenschaft des Parent-Elements, also der Komponente, auf der das TImage liegt, nehmen.

[patti]

Dann musst du nicht mit

Form.DoubleBuffered := true; arbeiten, sondern mit

Panel.DoubleBuffered := true; Wenn du das noch nicht gemacht hast, dann probier es mal so

Patti

ROTER KASTEN

[gasty]

Ok, klappt jetzt
Danke für die schnelle Hilfe

[patti]

Kein Problem

[Ykcim]

Das Thema ist zwar schon uralt, aber es passt nun mal...

Ich habe ein GIF in einem TGIFImage ligen, bei dem ich das Flackern nicht wegbekomme...

Delphi-Quellcode:

procedure TForm_Main.TabSheet_AusbuchenShow(Sender: TObject);
begin
   //Gif Etikett
   Image_GIF_Ausbuchen.Picture.LoadFromFile(extractfilepath(application.exename)+'\Ausgang_scannen.gif');
   (Image_GIF_Ausbuchen.Picture.Graphic as TGIFImage).AnimateLoop := glEnabled;
   (Image_GIF_Ausbuchen.Picture.Graphic as TGIFImage).Animate := true;

   Panel_GIF_Ausbuchen.DoubleBuffered:=true;
   TabSheet_Ausbuchen.DoubleBuffered:=true;
   PageControl_Main.DoubleBuffered:=true;
   Form_Main.DoubleBuffered:=true;
end;

Das Image_GIF_Ausbuchen liegt auf dem Panel_GIF_Ausbuchen, welches auf dem TabSheet_Ausbuchen, welches zum PageControl_Main gehört, das auf dem Form_Main liegt. Überall habe ich DoubleBuffered auf true gesetzt, aber es flackert wie verrückt!

Hat jemand eine Idee?

Vielen Dank
Patrick

[Blup]

Ich würde DoubleBuffered bereits im Ereignis FormCreate setzen:

Delphi-Quellcode:

procedure TForm_Main.FormCreate(Sender: TObject);
begin
  DoubleBuffered:=true;
  PageControl_Main.DoubleBuffered:=true;
  TabSheet_Ausbuchen.DoubleBuffered:=true;
  Panel_GIF_Ausbuchen.DoubleBuffered:=true;
end;

Flackert es nur bei der Animation?

[Ykcim]

Hi Blup,

ich habe den Fehler gefunden. Ich muss die Größe des Images auf die Größe des GIF's einstellen. Wenn es zu groß ist, dann passiert das mit dem Flackern...

Vielen Dank
Patrick