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

Тема в разделе "Delphi - FAQ", создана пользователем Dux, 11 авг 2011.

  1. Dux

    Dux Гость

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

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

    alexpac26 Гость

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

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

    Код (Delphi):
    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); // с заданными координатами и цветом
     
  3. Dux

    Dux Гость

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

Поделиться этой страницей