Написать в TLabel.Caption многострочный техт.

← →
GuAV © (2004-10-22 21:36) [0]

Как написать в TLabel.Caption многострочный техт ? Что нужно установить ? Я помню было у меня такое, у Caption и Hint редактор как у Memo.Lines...

← →
begin...end © (2004-10-22 21:41) [1]

Я обычно в тексте программы присваиваю, с #10#13 :-)

← →
Anatoly Podgoretsky © (2004-10-22 21:49) [2]

begin...end © (22.10.04 21:41) [1]
И напрасно, еще успеешь получить из за этого проблемы. Абсолютно нетипичный разделитель строк, хакерский.

← →
Anatoly Podgoretsky © (2004-10-22 21:49) [3]

GuAV © (22.10.04 21:36)
Это у тебя RX стоял

← →
begin...end © (2004-10-22 21:53) [4]

> [2] Anatoly Podgoretsky © (22.10.04 21:49)

А какой тогда типичный?

← →
jack128 © (2004-10-22 21:57) [5]

begin...end © (22.10.04 21:53) [4]
видимо #13#10 ;-)

← →
Yr2 (2004-10-22 22:05) [6]

а по-моему, очень даже типичный...
мало того многие парсеры текста сейчас "понимают" просто #13.
Я, например, так люблю делать многострочный Hint

> To GuAV:
а свойство WordWrap не подходит??

← →
GuAV © (2004-10-22 22:11) [7]

begin...end © (22.10.04 21:41) [1]
с #10#13 :-)
А я предпочитаю sLineBreak объявленный в system.pas как
const
sLineBreak = {$IFDEF LINUX} #10 {$ENDIF} {$IFDEF MSWINDOWS} #13#10 {$ENDIF};

Anatoly Podgoretsky © (22.10.04 21:49) [3]
Это у тебя RX стоял
Точно! Спасибо!

Yr2 (22.10.04 22:05) [6]
а свойство WordWrap не подходит??
Нужно явно задать места переноса.

<off>
Изучил как это сделано RX. Теперь решил давно волновавший меня вопрос как прописать серый плюс в TShortCut. Оказалось кода всего то ничего:

unit ShortEditor; interface uses VCLEditors, DesignIntf; type TMyShortCutProperty = class(TShortCutProperty) public function GetAttributes: TPropertyAttributes; override; procedure Edit; override; end; procedure Register; implementation uses ShortEditFrm, Controls, Classes; procedure Register; begin RegisterPropertyEditor(TypeInfo(TShortCut), nil, "",TMyShortCutProperty); end; { TMyShortCutProperty } procedure TMyShortCutProperty.Edit; begin with THotDlg.Create(nil) do try HotKey.HotKey := GetOrdValue; if ShowModal = mrOK then SetOrdValue(HotKey.HotKey); finally Free; end; end; function TMyShortCutProperty.GetAttributes: TPropertyAttributes; begin Result:=[paDialog, paRevertable]; end; end. unit ShortEditFrm; interface uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, Buttons, ExtCtrls, ComCtrls; type THotDlg = class(TForm) OKBtn: TButton; CancelBtn: TButton; HotKey: THotKey; private { Private declarations } public { Public declarations } end; implementation {$R *.dfm} end.
</off>

Anatoly Podgoretsky © (22.10.04 23:14) [9]

Ок. исправляю system.pas

const sLineBreak = {$IFDEF LINUX} #10 {$ENDIF} {$IFDEF MSWINDOWS} #13#10 {$ENDIF} {$IFDEF MAC} #13 {$ENDIF} {$IFDEF XAKEP} #10#13 {$ENDIF};

;-)

Написать в TLabel.Caption многострочный техт. Найти похожие ветки