Jump to content
Sign in to follow this  
sw4all

FMX ScrollBox problem

Recommended Posts

Hi, I have a problem with ScrollBox.

When rotating Rectangle, the scroll bar does not appear and aligns Rectangle -200 to the left.

The left and right image pieces are missing and the scroll bar is not displayed.

procedure TFrmMain.ButtonRotateClick(Sender: TObject);
begin
  Rectangle1.RotationAngle :=  Rectangle1.RotationAngle + 90;
end;

procedure TForm110.FormResize(Sender: TObject);
begin
  ScrollBox1.Width := frmMain.Width -5;
end;

procedure TFrmMain.FormShow(Sender: TObject);
begin
  Rectangle1.Position.X := 0;
  Rectangle1.Position.Y := 0;
  Rectangle1.Width := Image1.Bitmap.Width;
  Rectangle1.Height := Image1.Bitmap.Height;
// rectangle1.Parent := ScrollBox1;
// Image1.Parent := Rectangle1;
end;

Image angle-0 is Rectangle.RotationAngle := 0;

Image angle-90 is Rectangle.RotationAngle = 90;

 

angle-0.png

angle-90.png

Share this post


Link to post

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×