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

  • Автор темы Dux
  • Дата начала
D

Dux

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

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

alexpac26

Гость
#2
а статьи сами выкладываете?

я вот прочел вашу статью о тени на 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); // с заданными координатами и цветом
 
D

Dux

Гость
#3
а статьи сами выкладываете?

я вот прочел вашу статью о тени на TLabel
и вот такое решение на мой взгляд проще
Статьи пишу сам, либо перевожу зарубежные материалы. Статья "TLabel С ЭФФЕКТОМ ТЕНИ" была взята с заруб. источника http://www.delphi3000.com.
Ваш вариант более рационален.