[Maximus Marius]

I think it is BUG 😉

var

sMagnifier:TsMagnifier;

When I call first time sMagnifier.Execute(x,y) position i OK (x,y).

After sMagnifier.Hide

I call sMagnifier.Execute(x2,y2)

Second call Execute don't change position , still (x,y)

Code:

procedure TsMagnifier.Execute(x: integer = -1; y: integer = -1);
var
i: integer;
begin
if acMagnForm = nil then begin
acMagnForm := TacMagnForm.Create(nil);

….
if (x <> -1) or (y <> -1) then begin
TacMagnForm(acMagnForm).Position := poDesigned;
acMagnForm.Left := x;
acMagnForm.Top := y;
end;
….

if IsModal then
TacMagnForm(acMagnForm).ShowModal
else
TacMagnForm(acMagnForm).Show;
end
else begin

////// correct position FIX !!!
if (x <> -1) or (y <> -1) then begin
TacMagnForm(acMagnForm).Position := poDesigned;
acMagnForm.Left := x;
acMagnForm.Top := y;
end;[/color]
//////

if not TacMagnForm(acMagnForm).Visible then begin
SetFormBlendValue(TacMagnForm(acMagnForm).Handle, nil, 0);
if IsModal then
TacMagnForm(acMagnForm).ShowModal
else
TacMagnForm(acMagnForm).Show;
end;
TacMagnForm(acMagnForm).BringToFront;
end;
end;

[Support]

Thank you for your research, I will add this code very soon.

[Author]

Posts