Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.06.04;
Скачать: CL | DM;

Вниз

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

 
Мурзилка   (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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.062 c
15-1147236828
Ega23
2006-05-10 08:53
2006.06.04
С Днём рождения! 10 мая


15-1147520526
LexxX
2006-05-13 15:42
2006.06.04
Восприятие музыки. Громкость


2-1147540891
serko
2006-05-13 21:21
2006.06.04
Запуск скрипта!


2-1147842279
Officeman
2006-05-17 09:04
2006.06.04
<> или =


1-1146055172
Deka
2006-04-26 16:39
2006.06.04
Импорт функций из сишной DLL... Вроде все просто, а не работает.