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