Button1.Caption в две строки

← →
Юрий (2002-12-18 15:04) [0]

1. как сделать Button1.Caption в две
строки?
2. Требуется в ComboBox1.Items иметь строки содержащие
табуляцию (попросту часть таблицы грузится) а она
(табуляция) отображается вертикальной чертой, как с этим
бороться? (и не только в ComboBox)

← →
Andrey007 (2002-12-18 16:06) [1]

1. Расположить на кнопке TLabel.
2. #9

← →
Song (2002-12-18 16:21) [2]

1.BS_MULTILINE

← →
Юрий (2002-12-18 16:23) [3]

По 2. - не задал бы вопрос, если бы #9 прокатило, отображаются как вертикальная черта и все тут

← →
Skier (2002-12-18 16:28) [4]

>Юрий

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;

← →
Andrey007 (2002-12-19 11:03) [5]

Юрий (18.12.02 16:23)
Тогда по OnDrawItem надо заменять символ табуляции некоторым количеством пробелов.

← →
Юрий (2002-12-19 16:54) [6]

Skier © (18.12.02 16:28)
Спасибо, задача не настолько принципиальна была, нашел синонимы в русском языке, намного короче (благо русский язык располагает :-) подходящими словами), позволившие кнопку сделать меньше, просто думал, что это проблема решаеться одним кликом мыши куда-нибудь, но "куда-нибудь" не получилось. Приведенный пример оставил в заначке. Спасибо еще раз.

Andrey007 (19.12.02 11:03)
Также спасибо, но именно не хотелось "раздраконивать" строки, надеялся цитата:"что это проблема решаеться одним кликом мыши куда-нибудь, но "куда-нибудь" не получилось."
Спасибо.

Button1.Caption в две строки Найти похожие ветки