[iem00]

Добрый вечер.

есть код:

Код:

// рассчитываем координаты картинок
   for i := 0 to Length(UserFriendsImg_Grid)-1 do begin
    if i=0 then UserFriendsImg_Grid[i,0]:= i*100 else  // x
        UserFriendsImg_Grid[i,0]:= i*100 + 20*i;  // x
    UserFriendsImg_Grid[i,1]:= 10;  // y
   end;

 if Length(UserAlbums) >= 1 then begin
   AStream:= TMemoryStream.Create;
   // создаем массив картинок
   for i := 0 to Length(UserAlbums)-1 do begin
      SetLength(UserFriendsImg, Length(UserAlbums));
      UserFriendsImg[i]:= TImage.Create(MainForm.HorzScrollBox_UserProfile);
      UserFriendsImg[i].Scale.X:= 2;
      UserFriendsImg[i].Scale.y:= 2;
      UserFriendsImg[i].Position.X:=UserFriendsImg_Grid[i,0];
      UserFriendsImg[i].Position.Y:=UserFriendsImg_Grid[i,1];
      UserFriendsImg[i].Visible:= true;
      UserFriendsImg[i].BringToFront;
      UserFriendsImg[i].Parent:= MainForm.HorzScrollBox_UserProfile;

Рисуются динамические картинки в скролбоксе.
Проблема в том, что последняя картинка всегда обрезана. Я так понимаю, скролбокс автоматом расширяется по начало картинки, а не до ее конца. Пожалуйста, помогите найти решение.

Проблему нашел - scale картинки. Если значение 1, то все нормально, а если 2, то увы нет. Но мне нужно, чтобы scale был 2. Есть мысли?