Animacja jest płynna, ale gdy tylko włączone Alpha Blend Formy głównej, zaczyna ona skakać - ale uwaga TYLKO gdy kursor myszki nie znajduje się nad Formą główną.
W momencie, gdy kursor znajduje się nad Formą główną, animacja jest płynna.
Jak temu zaradzić także gdy kursor nie znajduje się nad Formą ?
const
Tekst = 'To jest tekst, który ma się przesuwać...';
var
x: Integer;
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
x := Width;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
//with PaintBox1 do
begin
Dec(x);
Canvas.Lock;
Canvas.Refresh;
Canvas.TextOut(x, 10, Tekst);
Canvas.Unlock;
if x < (- Canvas.TextWidth(Tekst)) then x := Width;
end;
end;
Poniższe próby nic nie poradziły na ten problem:
- zastosowanie wątku
- doubblebuffered := true