![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Button1.Caption в две строки
Юрий © (2002-12-18 15:04:00)1. как сделать Button1.Caption в две
строки?
2. Требуется в ComboBox1.Items иметь строки содержащие
табуляцию (попросту часть таблицы грузится) а она
(табуляция) отображается вертикальной чертой, как с этим
бороться? (и не только в ComboBox)
Юрий (2002-12-19 16:54:00) [1]Skier © (18.12.02 16:28)
Спасибо, задача не настолько принципиальна была, нашел синонимы в русском языке, намного короче (благо русский язык располагает :-) подходящими словами), позволившие кнопку сделать меньше, просто думал, что это проблема решаеться одним кликом мыши куда-нибудь, но "куда-нибудь" не получилось. Приведенный пример оставил в заначке. Спасибо еще раз.
Andrey007 (19.12.02 11:03)
Также спасибо, но именно не хотелось "раздраконивать" строки, надеялся цитата:"что это проблема решаеться одним кликом мыши куда-нибудь, но "куда-нибудь" не получилось."
Спасибо.
Andrey007 (2002-12-19 11:03:00) [2]Юрий (18.12.02 16:23)
Тогда по OnDrawItem надо заменять символ табуляции некоторым количеством пробелов.
Skier (2002-12-18 16:28:00) [3]>Юрий
1.
TYourButton = class(TButton)
protected
procedure CreateParams(var Params: TCreateParams); override;
end; //TYourButton
//.............
{ TYourButton }
procedure TYourButton.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style := Params.Style or BS_MULTILINE;
end;
//.............
procedure TForm1.FormCreate(Sender: TObject);
begin
FButton := TYourButton.Create(Self);
FButton.SetBounds(10, 10, 120, 70);
FButton.Parent := Self;
FButton.Caption := "Hello, " + #10#13 + "world !";
end;
Юрий (2002-12-18 16:23:00) [4]По 2. - не задал бы вопрос, если бы #9 прокатило, отображаются как вертикальная черта и все тут
Song (2002-12-18 16:21:00) [5]1.BS_MULTILINE
Andrey007 (2002-12-18 16:06:00) [6]1. Расположить на кнопке TLabel.
2. #9