Форум: "Начинающим";
Текущий архив: 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.046 c