Обводка (контур) текста в Label

[Lesha]

все это конец исходник торри глючит.
все удаляю.

[Lesha]

торри в топку! пересобранный модуль теней

модуль теней для TLabel

Модуль позволяет устанавливать неограниченное количество теней для Надписей.
Также есть возможность выделить весь текст рамкой.

подключив модуль теней после модуля StdCtrls , класс TLabel изменит свои свойтва, и можно управлять его тенью, и рамкой вокруг текста. Все тени сохраняются в внутри компонента в внутри TList. Поэтому при запуске дексруктора все подчищается.

текст модуля

unit LabelShadowUnit;

interface
uses
   SysUtils, Classes, Controls, StdCtrls;
type
  TLabel2 = class(TLabel);
  TLabel = class(TLabel2)
    constructor Create(own : TComponent); override;
    destructor Destroy; override; //запуск деструктора
    procedure AddShadow(x: integer = 3; y: integer = 1; colorr : integer = 0);
    procedure AddShadowText(widthh : byte = 1; colorr : integer = 0);
    procedure ClearShadow;
    private
      shad: TList;
  end;

implementation

{ TLabel }

procedure TLabel.AddShadow(x: integer = 3; y: integer = 1; colorr : integer = 0);
var sh: TLabel;
begin
  sh:=TLabel.Create(self.Owner);
  with sh do begin
    parent:=TWinControl(self.Parent);
    font:=self.Font;
    Top:=self.Top+y;
    Left:=self.Left+x;
    Font.Color:=colorr;
    caption:=self.Caption;
    transparent:=true;
  end;
  self.Transparent:=true;
  self.BringToFront;
  shad.Add(sh);
end;

procedure TLabel.AddShadowText(widthh: byte; colorr: integer);
begin
  // прямоугольник
  self.AddShadow(widthh,0, colorr);
  self.AddShadow(-1*widthh,0, colorr);
  self.AddShadow(0,widthh, colorr);
  self.AddShadow(0,-1*widthh, colorr);
  // по бокам
  self.AddShadow(widthh,widthh, colorr);
  self.AddShadow(-1*widthh,-1*widthh, colorr);
  self.AddShadow(-1*widthh,widthh, colorr);
  self.AddShadow(widthh,-1*widthh, colorr);
end;

procedure TLabel.ClearShadow;
var i:integer;
begin
  for i := 0 to shad.Count - 1 do
    TLabel(shad[i]).Destroy;
  shad.Clear;
end;

constructor TLabel.Create(own: TComponent);
begin
  inherited Create(own);
  shad:=TList.Create;
end;

destructor TLabel.Destroy;
var i:integer;
begin
  for i := 0 to shad.Count - 1 do
    TLabel(shad[i]).Destroy;
  shad.Destroy;
  inherited Destroy;
end;

end.

http://jqbook.narod.ru/works/DelphiLabelShadow.zip - программа-пример

[Silver_S]

Сообщение от Lesha

то есть то что Label создается внутри другого это нормально?

А где он рисуется? на форме или в компоненте?

PS сам то пробовал?

1) То, что компонент принадлежит другому компоненту - нормально, и то, что компонент-владелец (свойство Owner) уничтожает все ему принадлежащие - нормально.

2) Где он рисуется определяет свойство Parent

3) Пользуюсь регулярно - например уничтожаю форму, а она сама уничтожает все свои компоненты

[Lesha]

Где он рисуется определяет свойство Parent

ыы прикольно

[Silver_S]

Сообщение от Lesha

ыы прикольно

Подредактировал свой предыдущий коммент, а то каламбур какой-то получился с "родительский компонент" и Parent

[werrey]

Lesha, подскажите пожалуйста:

Если я помещаю Label на Panel, то они перестают работать, в чём может быть проблема или как правильно сделать?

[Lesha]

следуя рекомендациям Silver_S

переделанный модуль, теперь работает и на панелях.

скачиваем заново

http://jqbook.narod.ru/works/DelphiLabelShadow.zip

скриншот

[werrey]

Уважаемый Lesha или другие программисты, которые смотрели этот пример, или могут посмотреть:

Подправьте пожалуйста модуль, чтобы свойства Label - Alignment и WordWrap работали корректно, а то почему-то обводка смещается неправильно, при установки этих свойств!
Например если установить св-во Alignment - taCenter, то обводка остаётся слева, если WordWrap, то тоже не переносится как надо.

Заранее благодарю.