Кнопка с вертикальной надписью

[Pirit]

Здраствуйте!
Подскажите пожалуйста как создать компонент кнопку с вертикальной надписью!
Надо ли использовать Canvas и как получить Hadle у TButton!? Или надо наследовать у TBitBut?!
Надо ли делать это через редактор свойств и как это сделать?!)
Код процедур или примерный код проги очень бы помог, спасибо!

[Скандербег]

Вывод вертикальной надписи на кнопке (пример отображает надпись в левой части кнопки снизу-вверх, поворот против часовой стрелки на 90 гр.)

procedure TForm1.FormCreate(Sender: TObject);
var
  S : string;
  LogFont: TLogFont;
begin
  with BitBtn1 do begin
    Glyph.Width := Width - 4;
    Glyph.Height := Height - 4;
    GetObject(Glyph.Canvas.Font.Handle, SizeOf(TLogFont), @LogFont);
    LogFont.lfFaceName := 'Arial';   //должен быть TrueType шрифт
//    LogFont.lfWeight := 800;       //полужирный
//    LogFont.lfWidth := 5;          //средняя ширина символов (не то же самое что Size шрифта), значение надо подбирать или оставить 0
    LogFont.lfEscapement := 90 * 10; //наклон устанавливается в десятых градуса
    Glyph.Canvas.Font.Handle := CreateFontIndirect(LogFont);

    S := Caption;
    Caption := '';
    Glyph.Canvas.TextOut(2, Glyph.Height-2, S);
  end;
end;

Использовать Canvas надо, только Canvas изображения кнопки (Gliph). Добраться до Canvas самой кнопки не представляется возможным. Отсюда решение: в простейшем случае можно использовать только TBitBtn (не TButton).
Высоту кнопки надо устанавливать такой, чтобы надпись поместилась.

Код выполнен и проверен на D7.

[Pirit]

Оуо! Спасибо!
А если создавать Компонент, то надо писать в конструкторе класса, от наследуемого TBitBut?! Или отдельную процедуру?!

Попробовал запустить просто так, без создания компонента, просто на форме, пишет системную виндусовую ошибку
Project Project1.exe raised exeption class EReadError with message "Error reading Form1.OnCreate: Invalid Property value" ?!
Что за инвалидное значение?!

[Скандербег]

А событию OnCreate формы присвоена процедура FormCreate?
Может быть форма (Form1) у вас называется не так как в приведенной процедуре.

Компонент лучше создавать наследником от класс TBitBtn, т.к. он имеет все свойства кнопки, что, собственно, и требуется и имеет свойство Glyph, на котором можно нарисовать что-то свое.

Если интерес к такой кнопке не академический, а прикладной, есть смысл поискать уже готовый компонент, а такие есть. Хотя бы на torry.net, т.к. чтобы сделать такую кнопку нужно хорошо знать множество деталей Delphi. Все не так просто. А мой пример - это лишь демонстрация возможностей.
----------
Несколько переработанный код отображающий вертикальную надпись на кнопке, который можно вставить в событие OnClick кнопки на форме (не той с которой экспериментируем).

procedure TForm1.Button1Click(Sender: TObject);
var
  S : string;
  LogFont: TLogFont;
  BM : TBitMap;
begin
  BM := TBitMap.Create;
  try
    BitBtn1.Glyph.Width := BitBtn1.Width - 6;
    BitBtn1.Glyph.Height := BitBtn1.Height - 6;
    BM.Width := BitBtn1.Glyph.Width;
    BM.Height := BitBtn1.Glyph.Height;
    GetObject(BM.Canvas.Font.Handle, SizeOf(TLogFont), @LogFont);
    LogFont.lfFaceName := 'Arial';
    LogFont.lfEscapement := 90 * 10;
    BM.Canvas.Font.Handle := CreateFontIndirect(LogFont);
    S := BitBtn1.Caption;
    BM.Canvas.TextOut(6, BM.Height-6, S);
    BitBtn1.Caption := '';
    BitBtn1.Glyph.Canvas.CopyRect(Rect(0, 0, BM.Width, BM.Height), BM.Canvas,
                                  Rect(0, 0, BM.Width, BM.Height));
  finally
    BM.Free;
  end;
end;

Этот код точно работает в любом месте, не только в FormCreate.

[Pirit]

Класс! Заработало)))
А как сделать оцентровку надписи по ширине и длине кнопки?! И что бы выводилась в середине, такое возможно?!

[Pirit]

и если не на 90 градусов а на 270?!
меняя LogFont.lfEscapement := 90 * 10;
на LogFont.lfEscapement := 270 * 10;
он мне белую кнопку рисует!
и после 2 нажатия на кнопку она белая становиться, можно что бы она надпись сохраняла?!

[Скандербег]

Центрирование надписи на кнопке. Выравнивание надписи действительно только для угла 270 гр., для надписи повернутой на другой угол необходимо делать и другой расчет.

procedure TForm1.Button1Click(Sender: TObject);
var
  S : string;
  LogFont: TLogFont;
  BM : TBitMap;
  R : TRect;
  X, Y : Integer;
begin
  BM := TBitMap.Create;
  try
    BitBtn1.Glyph.Width := BitBtn1.Width-3;
    BitBtn1.Glyph.Height := BitBtn1.Height-3;
    BM.Width := BitBtn1.Glyph.Width;
    BM.Height := BitBtn1.Glyph.Height;
    GetObject(BM.Canvas.Font.Handle, SizeOf(TLogFont), @LogFont);
    LogFont.lfFaceName := 'Arial';
    LogFont.lfEscapement := 270 * 10;
    BM.Canvas.Font.Handle := CreateFontIndirect(LogFont);

    S := BitBtn1.Caption;
    R := Rect(0, 0, BM.Width, BM.Height);
    DrawText(BM.Canvas.Handle, PChar(S), -1, R, DT_CALCRECT);

    X := BM.Width div 2 + R.Bottom div 2;
    Y := BM.Height div 2 - R.Right div 2;
    BM.Canvas.TextOut(X, Y, S);
    BitBtn1.Caption := '';
    BitBtn1.Glyph.Canvas.CopyRect(Rect(0, 0, BM.Width, BM.Height), BM.Canvas,
                                  Rect(0, 0, BM.Width, BM.Height));
  finally
    BM.Free;
  end;
end;

Надпись при повороте на 270 гр. в предыдущем примере не исчезает, а выводится вне прямоугольника кнопки, поэтому ее не видно. Надо корректировать вывод надписи координатами в процедуре TextOut.
"Белый прямоугольник": для эксперимента можно кинуть на форму XPManifest (закладка Win32 в палитре компонентов). У меня кнопка белой не становиться сколько бы не нажимать на нее.

Класс TBitBtn только дельфийская обертка стандартной кнопки Windows. Например, у нее нет даже свойства Color. Цвет фона кнопки и надписи устанавливает Windows и управлять этим сложно. Может проще сделать свою кнопку, где все под контролем. Или поискать в Сети, где туча библиотек с какими угодно кнопками.

[Pirit]

С TextOut-ом понял!
XPManifest на форму бросил, св-в у него маловато,то есть вообще нет, ничего не менял в нем, но все также и остается, при 2-ом нажатии кнопка становится белой полностью(

[Скандербег]

Проект надо посмотреть. Упакуйте файлы проекта: .dpr, .res, .dfm и .pas и отправьте мне на мыло или сюда вложением. Какая версия Delphi?

[Pirit]

Delphi 7
высылаю код