[Delphi] Płynność ...

0

Płynność animacji..
Dlaczego jak robię animację w delphi to obrazki wyświetlające się na image tak mrugają ? To wygląda fatalnie... jak temu zapobiedz ? mam taki kod ;

var
Form1: TForm1;
G : integer;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
image1.Picture.LoadFromFile('C\moje dokumenty\amin' + inttostr(G) + '.bmp');
g := g + 1;
if G=3 then g:=1;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
g := 1;
end;
z góry dzięki...
pozdrawiam

--
!! Jak mam sie nauczyc programownia ? :-( !!

0

O tym było.

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.DoubleBuffered:=True;
end;

--
Pozdrowienia dla całego FORUM !

Marco_99

0

ok. działa , dzięki bardzo
pozdrawiam

--
!! Jak mam sie nauczyc programownia ? :-( !!

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0