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

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

TMemo без фона

TamRAzZ ©   (2008-04-03 13:51:00) 

Как можно сделать компонент TMemo без фона?? (Что-то вроде того как у TLabel'а свойство Transparent := True)

Или как сделать TStaticText без фона(свойство Transparent ничего не меняет)

---

ZoldBerger   (2008-04-04 13:42:00) [1]

Германн ©   (03.04.08 17:31) [6]

жжесть

---

Германн   (2008-04-03 17:31:00) [2]

> Игорь Шевченко ©   (03.04.08 17:24) [5]
>
>

Автор неверно понял сообщение об ошибке:
"String literals may have at most 255 elements".
:-)

---

Игорь Шевченко   (2008-04-03 17:24:00) [3]

> Мне надо большой текст отобразить, а Label только 255 символов
> вмещает...


unit main;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm1 = class(TForm)
   Label1: TLabel;
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
 SL: TStringList;
begin
 SL := TStringList.Create;
 try
   SL.LoadFromFile('main.pas');
   Label1.Caption := SL.Text;
 finally
   SL.Free;
 end;
end;

end.

Всяко больше 255

---

TamRAzZ   (2008-04-03 16:04:00) [4]

У меня картинка бэкгроундом...
Может есть текстовый компонент у которого можно задать бэкгроунд-картинкой??

И почему если TStaticText поставить Transparent := True, фон не ибирается?? (у меня по крайней мере...:(( Пользуюсь Borland Delphi 7.0 )

---

МистерТ   (2008-04-03 15:19:00) [5]

Может тебе достаточно для Memo выставить Color := clBtnFace ?

---

TamRAzZ   (2008-04-03 15:11:00) [6]

Мне надо большой текст отобразить, а Label только 255 символов вмещает...

---

МистерТ   (2008-04-03 14:57:00) [7]

Дай угадаю, в Label не получается несколько строк сделать ?

---

Наверх