TCategoryPanel и TCategoryPanelGroup

[flexterful]

Драсьте.

1. Как сделать анимированной (плавно выезжающей и вьезжающей) панель TCategoryPanel?

2. Как убрать чёрную каёмочку (Border) у TCategoryPanelGroup?

Пасиба

[volvo877]

1. Как сделать анимированной (плавно выезжающей и вьезжающей) панель TCategoryPanel?

Ответ: Peter Below (Team B) на подобный вопрос в Embarcadero Newsgroups:

> 3. Is it possible to animate expanding and collapsing of
> TCategoryPanel?

No, and it would be hard to change that since the Collapse and Expand methods of the panel are not virtual. You would have to derive a new class from TCategoryPanelGroup (or its TCustom... ancestor) and override the GetCategoryPanelClass method to return your own descendent of TCustomCategoryPanel that implements this behaviour.

[flexterful]

Нужные классы вынес в отдельный юнит, немного подмял под себя, но с анимацией играться не стал. В переспективе миграция самого меню в Флэш (или что-то подобное) и интеграция онного в делфю. Муторно, а что делать.

// А с бордером всё ёще воюю - а что самое интересное - это не бевел, а бордера у него и вообще нету.....
// Проверял по батьке (TScrollingWinControl) - на нём не рисуеться. А в сорцах TCategoryPanelGroup ненахожу...

procedure TCustomCategoryPanelGroupEx.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  with Params do
   //Style := Style or WS_BORDER;
   case BorderStyle of
     bsNone: Style := Style;
     bsSingle: Style := Style or WS_BORDER;
     else Style := Style or WS_BORDER;
   end;
end;

Порвал. Закоментированный код стоит в оригинале. Добавлено свойство BorderStyle : ТBorderStyle.

[flexterful]

Пополнение :
Столкнулся с проблемой "красивого скрытия" невлезающего в поле прорисовки текста на заголовке TCategoryPanel.
Наглядно :

|                             |       // Ширина поля прорисовки
 Hello brave citizens of Gotham city  // Исходный текст
 Hello brave citizens of Gotha        // Результат по умолчанию
 Hello brave citizens of Go...        // Желаемый результат

Проблема решена добавлением флага в параметры прорисовки текста.

const
  Ellipsis: array[TEllipsisPosition] of Cardinal = (0, DT_PATH_ELLIPSIS,
    DT_END_ELLIPSIS, DT_WORD_ELLIPSIS);

  Flags := DT_EXPANDTABS or DT_SINGLELINE or DT_VCENTER or Alignments[Alignment];
  Flags := DrawTextBiDiModeFlags(Flags);
  Flags := Flags or Ellipsis[epEndEllipsis];

  if (FPanelGroup.HeaderStyle = hsThemed) and ThemeServices.ThemesEnabled
   then
    with ThemeServices do
      DrawText(ACanvas.Handle, GetElementDetails(tebNormalGroupHead), Caption, FTextRect, Flags, 0)
    else
     Windows.DrawText(ACanvas.Handle, Caption, -1, FTextRect, Flags);

Добавляем массив констант и помеченный код - и всё работает!
Сие применимо и к другим типам компонентов с прорисовкой текста на канве.
З.Ы. (с)пёрто у TLabel