Delphicode.org - портал для начинающих программистов

[Dux]

Уважаемые форумчане, предлагаем Вашему вниманию на портал DelphiCode.org - Информационный центр. Документация, исходные коды, примеры программ и игр.

Ссылка скрыта от гостей

Будем рады услышать Ваши отзывы и комментарии.

 

[alexpac26]

а статьи сами выкладываете?

я вот прочел

Ссылка скрыта от гостей

на TLabel
и вот такое решение на мой взгляд проще

procedure LabelShadow( lb: TLabel; x: integer = 3; y: integer = 1; color : integer = 0);
begin
with TLabel.Create(lb.Owner) do begin
font:=lb.Font;
top:=lb.Top;
left:=lb.Left;
caption:=lb.Caption;
transparent:=true;
parent:=TForm(lb.Owner);
end;
lb.Font.Color:=color;
lb.Top:=lb.Top+y;
lb.Left:=lb.Left+x;
end;

{...}

LabelShadow(Form1.Label1); // обычная
LabelShadow(Form1.Label1, 3,3); // с заданными координатами
LabelShadow(Form1.Label1, 3,1, 9470064); // с заданными координатами и цветом

 

[Dux]

а статьи сами выкладываете?

я вот прочел

Ссылка скрыта от гостей

на TLabel
и вот такое решение на мой взгляд проще

Статьи пишу сам, либо перевожу зарубежные материалы. Статья "TLabel С ЭФФЕКТОМ ТЕНИ" была взята с заруб. источника

Ссылка скрыта от гостей

.
Ваш вариант более рационален.