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

[Alegun]

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

[iem00]

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

[Alegun]

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