| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Изображение на кнопках

Мурзилка ©   (2006-05-17 12:39:00) 

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

---

Мурзилка   (2006-05-17 13:18:00) [1]

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


спасибо

---

balepa   (2006-05-17 13:10:00) [2]

Да.
BitBtn.Glyph
SpeedButton.Glyph

---

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

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

---

Konnor   (2006-05-17 12:47:00) [4]

Кидаеш на форму 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;

---

Alien1769   (2006-05-17 12:44:00) [5]

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

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

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;

---

Наверх