animatewindow and VCL Styles - looks terrible

Asked Dec 05 '17 at 09:56

Active Dec 07 '17 at 09:03

Viewed 263 times

I am looking at using the AnimateWindow method (which just calls the underlying WinAPI call), whilst using a VCL style in Delphi Tokyo. The code looks like this (actually taken from another Stack Overflow question).

procedure TForm4.Button1Click(Sender: TObject);
begin
if  hidden = False then
begin
  AnimateWindow(Panel1.Handle, 256, AW_SLIDE or AW_HOR_NEGATIVE or AW_HIDE);
  hidden := True;
end
else
begin
  AnimateWindow(Panel1.Handle, 256, AW_SLIDE or AW_HOR_POSITIVE or AW_ACTIVATE);
  hidden := False;
end;

end;

The animation works, however it looks terrible - it is jerky and draws white artifacts on the panel edges whilst it animates. It is not just the graphics on my PC, but looks like a more general problem. Turning off style completely makes the operation render properly, but that is not what I want in the end.

Will this approach not work for applications that using VCL Styles?

edited Dec 07 '17 at 09:03

asked Dec 05 '17 at 09:56

mmmm

2,431
2
35
56

Not at all surprising. This is life with VCL styles. – David Heffernan Dec 05 '17 at 10:22
2

`if hidden = False then`... That hurts my eyes. Please use `if not hidden then`. :-) – Uli Gerhardt Dec 05 '17 at 11:02
1

I don't think there's a AnimateWindows method and that code seems to call the API, not any wrapper. – Sertac Akyuz Dec 05 '17 at 13:29
I corrected the typo it is indeed `animatewindow` – mmmm Dec 05 '17 at 14:45

animatewindow and VCL Styles - looks terrible

0 Answers0