combobox текст по центру

[tarakan1983]

Сообщение от Аватар

Это проще , но дольше

PS

Кстати, с днем рождения!

спасибо!!!!!!!!!

[min@y™]

Советую аффтару не страдать говнокодингом и заюзать стайл csOwnerDrawFixed. Подарю православную самодельную функцию центрирования текста в прямоугольной области по горизонтали и вертикали.

// Начальная точка вывода текста на канве внутри прямоугольника Rect
// с выравниванием горизонтальным и вертикальным
function GetTextPosition(const Text: string;                 // текст
                         const Canvas: TCanvas;              // канва
                         const Rect: TRect;                  // прямоугольник отрисовки
                         const TextMargin: Integer;          // размер полей
                         const Alignment: TAlignment;        // гориз. выравнивание
                         const Layout: TTextLayout): TPoint; // верт. выравнивание
var
  th, tw: Integer;
begin
  tw:= Canvas.TextWidth(Text);
  th:= Canvas.TextHeight(Text);

  case Alignment of
    taLeftJustify  : Result.x:= TextMargin;
    taCenter       : Result.x:= ((Rect.Right - Rect.Left) div 2) - (tw div 2);
    taRightJustify : Result.x:= (Rect.Right - Rect.Left) - tw - TextMargin;
  end; //case

  case Layout of
    tlTop:    Result.y:= TextMargin;
    tlCenter: Result.y:= ((Rect.Bottom - Rect.Top) div 2) - (th div 2);
    tlBottom: Result.y:= (Rect.Bottom - Rect.Top) - th - TextMargin;
  end; // case
end;