Отступ на ScrollBox'е в самом конце

[Marsel737]

Всем привет.

Вообщем проблема такая, у меня есть ScrollBox, я динамически создаю на нём изображения и загружаю их. Но после последнего изображения нет отступа, вот рисунок:



И соотвественно вопрос, как добавить отступ после последнего изображения?

п.с. парсер закалибал просто... пять раз название темы менял

[evg_m]

рисунок есть но кода нет

нет отступа так увеличь ширину scrollbar на нужный тебе отступ

[Marsel737]

Проблему решил созданием ещё одной пустой картинки в самом конце, но это какое то корявое решение, имхо. Может есть ещё какой-нибудь другой способ?

const
  intCImgCount = 12;
  intCIndention = 140;
  intCWidth = 80;
  intCHeight = 80;
  intCTop = 30;

var
  frmMain: TfrmMain;
  intVStartLeft: integer = 30;
  intVImgCount: integer = 0;
  arImgPhoto: array[1..intCImgCount] of TImage;
  arShpFon: array[1..intCImgCount] of TShape;
  imgIndention: TImage;

...

  arShpFon[intVImgCount] := TShape.Create(Self);
  with arShpFon[intVImgCount] do
  begin
    Name := 'shpFon' + IntToStr(intVImgCount);
    Parent := sbScrolling;
    Width := intCWidth + 2;
    Height := intCHeight + 2;
    Top := intCTop - 1;
    Left := intVStartLeft - 1;
    Pen.Width := 2;
    Pen.Color := clWhite;
  end;
  arImgPhoto[intVImgCount] := TImage.Create(Self);
  with arImgPhoto[intVImgCount] do
  begin
    Name := 'imgPhoto' + IntToStr(intVImgCount);
    Parent := sbScrolling;
    Stretch := true;
    Width := intCWidth;
    Height := intCHeight;
    Top := intCTop;
    Tag := intVImgCount;
    Left := intVStartLeft;
    OnMouseMove := ImgMouseMove;
    OnMouseLeave := ImgMouseLeave;
    OnClick := ImgClick;
    LoadImg(arImgPhoto[intVImgCount], 'Data\Graphex\User' +
      IntToStr(intVimgCount) + '.png');
  end;
  intVStartLeft := intVStartLeft + intCIndention;
  Inc(intVimgCount);