• 🔥 Бесплатный курс от Академии Кодебай: «Анализ защищенности веб-приложений»

    🛡 Научитесь находить и использовать уязвимости веб-приложений.
    🧠 Изучите SQLi, XSS, CSRF, IDOR и другие типовые атаки на практике.
    🧪 Погрузитесь в реальные лаборатории и взломайте свой первый сайт!
    🚀 Подходит новичкам — никаких сложных предварительных знаний не требуется.

    Доступ открыт прямо сейчас Записаться бесплатно

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

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

Dux

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


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

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

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

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

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab

Похожие темы