Форум: "Начинающим";
Текущий архив: 2006.06.04;
Скачать: [xml.tar.bz2];

Вниз

Изображение на кнопках   Найти похожие ветки 

← →
Мурзилка   (2006-05-17 12:39) [0]

Нужно узнать как на кнопку поместить изображение?
Можно ли каким-либо образом на кнопке писать в несколько строчек текст?

---

← →
Alien1769 ©   (2006-05-17 12:44) [1]

Вопрос уже обсуждался.

Но примерно так

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
i := GetWindowLong(Button1.Handle, GWL_STYLE);
SetWindowLong(Button1.Handle, GWL_STYLE, i or BS_MULTILINE);
Button1.Caption := "Line 1" + #13#10 + "Line 2!";
end;

---

← →
Konnor ©   (2006-05-17 12:47) [2]

Кидаеш на форму BitBtn, даеш ей длинный заголовок, создаеш FormCreate
в ней пишеш

var
 R: TRect;
 N: Integer;
 Buff: array[0..255] of Char;
 ...WITH BitBtn1 do
begin
 Glyph.Canvas.Font := Self.Font;
 Glyph.Width := Width - 6;
 Glyph.Height := Height - 6;
 R := Bounds(0, 0, Glyph.Width, 0);
 StrPCopy(Buff, Caption);
 Caption := "";
 DrawText(Glyph.Canvas.Handle, Buff, StrLen(Buff), R,
   DT_CENTER or DT_WORDBREAK or DT_CALCRECT);
 OffsetRect(R, (Glyph.Width - R.Right) div 2,
   (Glyph.Height - R.Bottom) div 2);
 DrawText(Glyph.Canvas.Handle, Buff, StrLen(Buff), R,
   DT_CENTER or DT_WORDBREAK);
end;

---

← →
Мурзилка   (2006-05-17 13:03) [3]

а вот если у меня есть картинка vasya.jpeg, я её могу как либо образом поместить на кнопку?

---

← →
balepa ©   (2006-05-17 13:10) [4]

Да.
BitBtn.Glyph
SpeedButton.Glyph

---

← →
Мурзилка   (2006-05-17 13:18) [5]

> Да.
> BitBtn.Glyph
> SpeedButton.Glyph


спасибо

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.06.04;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.043 c