[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. Есть мысли?

[Alegun]

А что мешает добавить ширины для HorzScrollBox_UserProfile после финального заполнения?

[iem00]

тогда HorzScrollBox_UserProfile уедет за край экрана. Он и так растянут на всю ширину.

[Alegun]

Попытался воспроизвести аналогичную ситуацию посредством заполнения скролбокса из массива динкартинок (TJpegImage в TImage), - не получилось, "обрезки" не наблюдалось. Вероятно, всё дело в используемых вами компонентах, и поскольку, в связи с резким похолоданием местные экстрасенсы перебрались в тёплые края тогда или используйте стандартный наборчик палитры, либо выкладывайте свой вариант данной проблемы, так сказать, в "металло"проекте, гадать, что представляет собой напр. UserFriendsImg с его загадочными свойствами типа Scale.X, желание отсутствует полностью. Может кто и поможет