Так как каждое перо, которое вы сохраняете в палитре, имеет один и тот же размер (40 элементов изображения высотой и 128 шириной), вам нужно убедиться, что окно палитры может увеличиваться и сжиматься на этот размер каждый раз, когда вы удаляете перо. Объект TPenPalette определяет два метода, которые позволяют это делать: Grow и Shrink.

     procedure TPenPalette.Grow
     var WindowRect: TRect;
     begin
       GetWindowRect(HWindow, WindowRect);
       with WindowRect do
           MoveWindow(HWindow, left, top, right - left,
              bottom - top + 40, True);
     end;
     procedure TPenPalette.Shrink;
     var WindowRect: TRect;
     begin
       GetWindowRect(HWindow, WindowRect);
       with WindowRect do
           MoveWindow(HWindow, left, top, right - left,
             bottom - top - 40, True);
     end;

    Оба метода находят координаты границ окна, модифицируют их и сообщают окну, что нужно использовать новые координаты границ. Функция API GetWindowRect возвращает структуру TRect, содержащую верхнюю, нижнюю, левую и правую координату. Grow добавляет в нижнюю область окна 40 элементов изображения, а Shink вычитает тот же объем.

    В следующем разделе вы узнаете, как вызывать методы Grow и Shrink в ответ на нажатие командных кнопок Add Pen и Del Pen.

    Как вы могли заметить, TPenPic не задает свою позицию в конструкторе так, как это делают большинство управляющих элементов. Причина здесь в том, что вы не можете полагаться на координаты окна, пока оно не будет реально существовать. TPenPalette обходит эту проблему, создавая свои объекты кнопок путем вызова для определения высоты заголовка окна функции API GetSystemMetrics. Хотя это будет работать, существует и другой подход.

    Вместо позиционирования палитры в конкретное место порождающего окна вы можете поместить его в определенную позицию в порождающей области клиента. Таким образом, если вы добавляете меню или изменяете рамку, либо выполняете вне окна какое-либо другое изменение, ваш объект палитры все равно будет правильно позиционирован.

    Изменение позиции окна выполняется в SetupWindow, так как окну палитры требуется использовать описатель своего порождающего окна, который до вызова собственного метода SetupWindow недоступен. При достижении SetupWindow дочернее окно может рассчитывать на допустимость описателя порождающего окна.

     procedure TPenPic.SetupWindow;
     var ClientRect: TRect;
     begin
       inherited SetupWindow;
       GetClientRect(Parent^.HWindow, ClientRect);
       with ClientRect do
         MoveWindow(HWindow, 1, bottom - top + 1, 128,
                    40 * MaxPens, False;
     end;

    Для возврата координат области клиента окна палитры метод TPicPen использует функцию API Windows GwetClientRect. Затем он перепозиционируется с помощью MoveWindow непосредственно под объекты кнопок, задавая высоту, достаточную для размещения всех перьев в наборе. Заметим, что последний параметр MoveWindow - это значение типа Boolean, указывающее, следует ли выполнять повторное отображение окна после перемещения. Так как палитра на экран пока не выводилась, то заново отображать ее не имеет смысла, поэтому TPenPic.SetupWindow передает значение False.