TPanel.Margin/Padding, TScrollBox.Margin/Padding (Delphi RAD 10.4)

[hexor_boo]

Добрейшего времени суток, уважаемые форумчане!
Запутался совершенно с этими Margin-ами и Padding-ами.

Заранее прошу прощения за избыточное количество кода - просто не знаю сколько достаточно упомянуть для анализа решения...

Вобщем задача такая:

1. Есть TPanel, на котором я разместил TScrollBox
2. В котором далее создается динамически массив TPanel-ов (9 шт)
3. Каждый из которых содержит по одному TImage
4. В каждый из которых подгружается PNG-шка из ресурсов

И вот для TPanel-ов, упомянутых в п.2 я создаю через константы отступы через Left, Width, Top и Height. Загадочная ситуация происходит с самым нижним TPanel-ом: ни в какую не получается задать для него отступ от нижней границы TScrollBox-а.

Переменные и константы:

var
  frmDebug      : TfrmDebug;
  arrDataHolder : Array Of TPanel;
  arrSkillCat   : Array [0..8] Of TImage;

const
 intBaseLeft        = 0;
 intBaseWidth       = 730;
 intBaseTop         = 0;
 intBaseHeight      = 305;
 intScrollBoxMargin = 8;
 intCountDataHolder = 9; //Need to replace with Rows.Affected from SELECT
 intDH_Margin       = 8;
 intDH_Height       = 80;
 intSkillImgMargin  = 8;

Обработка перехвата мышкиного скролла:

procedure TfrmDebug.scrBoxMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
var
 i: Integer;
begin
 Handled:=PtInRect(scrBox.ClientRect, scrBox.ScreenToClient(MousePos));
  If Handled Then
    For i:=1 To Mouse.WheelScrollLines Do
      Try
        If (WheelDelta>0) Then
         scrBox.Perform(WM_VSCROLL, SB_LINEUP, 0)
        Else
         scrBox.Perform(WM_VSCROLL, SB_LINEDOWN, 0);
      Finally
       scrBox.Perform(WM_VSCROLL, SB_ENDSCROLL, 0);
      End;
end;

Код кнопки "Заполнить контейнер":

procedure TfrmDebug.btnFillBoxClick(Sender: TObject);
var
 i         : Integer;
 ResStream : TResourceStream;
 PNGBuffer : TPngImage;
begin
 pnlBase.Left:=intBaseLeft;
 pnlBase.Width:=intBaseWIdth;
 pnlBase.Top:=intBaseTop;
 pnlBase.Height:=intBaseHeight;

 scrBox.Left:=intScrollBoxMargin;
 scrBox.Width:=pnlBase.Width-(intScrollBoxMargin*2);
 scrBox.Top:=intScrollBoxMargin;
 scrBox.Height:=pnlBase.Height-(intScrollBoxMargin*2);

 SetLength(arrDataHolder, intCountDataHolder);

 //scrBox.Padding.Bottom:=8;
 //scrBox.AlignWithMargins;

 scrBox.SetFocus;

  For i:=0 To intCountDataHolder-1 Do
   Begin
    arrDataHolder[i]:=TPanel.Create(scrBox);
    arrDataHolder[i].Parent:=scrBox;

    arrDataHolder[i].Left:=intDH_Margin;
    arrDataHolder[i].Width:=scrBox.Width-(intDH_Margin*4);


     If (i=0) Then
      Begin
       arrDataHolder[i].Top:=intDH_Margin;
       arrDataHolder[i].Height:=intDH_Height;
      End
     Else
      Begin
       arrDataHolder[i].Top:=
        arrDataHolder[i-1].Top+arrDataHolder[i-1].Height+intDH_Margin;
       arrDataHolder[i].Height:=intDH_Height; //MUST BE CHANGED ==>
       //==> for the different arrDataHolder sizes

       //НАЧАЛО ТЕСТА ==> ДЕЛАЮ ТАК - НЕ ПОМОГАЕТ - СКРИНШОТ ПРИЛАГАЕТСЯ
        If (i=(intCountDataHolder-1)) Then
         Begin
          arrDataHolder[i].Margins.Bottom:=8;
          arrDataHolder[i].AlignWithMargins:=True;
          scrBox.Padding.Bottom:=8;
          scrBox.AlignWithMargins:=True;
         End;
       //<== КОНЕЦ ТЕСТА

      End;

    arrSkillCat[i]:=TImage.Create(arrDataHolder[i]);
    arrSkillCat[i].Parent:=arrDataHolder[i];

    arrSkillCat[i].Visible:=False;
    arrSkillCat[i].Left:=intSkillImgMargin;
    arrSkillCat[i].Top:=intSkillImgMargin;
    arrSkillCat[i].Visible:=True;

    //LOAD SKILL ICONS FROM RESOURCES: BEGIN
    ResStream:=
     TResourceStream.Create(
      hInstance, 'SKILLCAT'+IntToStr(i), RT_RCDATA
     );

     Try
      PNGBuffer:=TPngImage.Create;
       Try
        ResStream.Position:=0;
        PNGBuffer.LoadFromStream(ResStream);
        arrSkillCat[i].Picture.Graphic:=PNGBuffer;
       Finally
        PNGBuffer.Free;
       End;
     Finally
      ResStream.Free;
     End;
    //LOAD SKILL ICONS FROM RESOURCES: END

   End; //For i:=0 To intCountDataHolder-1 Do

end;

[hexor_boo]

Сообразил, как сжато и доступно описать:

       //НАЧАЛО ТЕСТА ==> ДЕЛАЮ ТАК - НЕ ПОМОГАЕТ - СКРИНШОТ ПРИЛАГАЕТСЯ
        If (i=(intCountDataHolder-1)) Then
         Begin
          arrDataHolder[i].Margins.Bottom:=8;
          arrDataHolder[i].AlignWithMargins:=True;
          scrBox.Padding.Bottom:=8;
          scrBox.AlignWithMargins:=True;
         End;
       //<== КОНЕЦ ТЕСТА

, где intCountHolder=9, arrDataHolder: TPanel, массив элементов, каждый из которых я вставляю в TScrollBox и scrBox - этот самый TScrollBox; непонятно, собственно следующее: как и каким способом создать отступ между нижней границей последнего arrDataHolder и нижней границей scrBox.

Медитативные размышления на манер понятий margin и padding в HTML успехом пока не увенчались...

[macomics]

Добавьте в конце TLabel или TPanel без бордюра.

[hexor_boo]

Сообщение от macomics

Добавьте в конце TLabel или TPanel без бордюра.

Благодарю! Сам бы неизвестно сколько ещё провозился!

var
 pnlFinisher : TPanel;

const
 intDH_Margin=8;
...
       //НАЧАЛО ТЕСТА ==> УРА! Заработало как надо :)
        If (i=(intCountDataHolder-1)) Then
         Begin
          pnlFinisher:=TPanel.Create(scrBox);
          pnlFinisher.Parent:=scrBox;
          pnlFinisher.BevelOuter:=bvNone;
          pnlFinisher.Top:=
           arrDataHolder[i].Top+
           arrDataHolder[i].Height+
           intDH_Margin;
          pnlFinisher.Height:=0;
         End;
       //<== КОНЕЦ ТЕСТА

Теперь выглядит так, как в прикрепленном файле.

[hexor_boo]

Есть кривоватенькое решение для расстояния между вертикальным скроллом и TPanel-ом, который лежит на TScrollBox-е:

arrDataHolder[i].Width:=scrBox.Width-(intDH_Margin*4);

где intDH_Margin=8 (это решение дает результат как на скриншоте в предыдущем сообщении)

А что делать, если для опрятности интерфейса нужно, чтобы было расстояние от правого края TPanel до планки скроллбара такое же, как от TPanel-а до нижней границы TScrollBox-а? Пока не понял. Экспериментирую.

[hexor_boo]

Полтора часа поисков, анализа и размышлений. Так можно и сгуглиться))
Это не флуд. Накипело