[iem00]

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

есть код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

// рассчитываем координаты картинок    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. Есть мысли?