| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

GuAV ©   (2004-10-22 21:36:00) 

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

---

GuAV   (2004-10-22 23:24:00) [1]

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};

;-)

---

Anatoly Podgoretsky   (2004-10-22 23:14:00) [2]

begin...end ©   (22.10.04 21:53) [4]
А типичный зависит от системы
Линукс  #10
Мак     #13
Windows #13#10
Хакеры  #10#13

---

GuAV   (2004-10-22 23:12:00) [3]

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>

---

GuAV   (2004-10-22 22:11:00) [4]

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   (2004-10-22 22:05:00) [5]

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

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

---

jack128   (2004-10-22 21:57:00) [6]

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

---

begin...end   (2004-10-22 21:53:00) [7]

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

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

---

Anatoly Podgoretsky   (2004-10-22 21:49:00) [8]

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

---

Anatoly Podgoretsky   (2004-10-22 21:49:00) [9]

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

---

begin...end   (2004-10-22 21:41:00) [10]

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

---

Наверх