Project Structure

• LabelsDemo.dpr
• LabelsDemo_MainForm.pas
• LabelsDemo_MainForm.dfm {FormLabelsDemo}

program LabelsDemo;

uses
  Forms,
  LabelsDemo_MainForm in 'LabelsDemo_MainForm.pas' {FormLabelsDemo};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TFormLabelsDemo, FormLabelsDemo);
  Application.Run;
end.

unit LabelsDemo_MainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TFormLabelsDemo = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    LinkLabel1: TLinkLabel;
    LinkLabel2: TLinkLabel;
    procedure btnIncGlowClick(Sender: TObject);
    procedure LinkLabel1LinkClick(Sender: TObject; const Link: string;
      LinkType: TSysLinkType);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormLabelsDemo: TFormLabelsDemo;

implementation

{$R *.dfm}

procedure TFormLabelsDemo.btnIncGlowClick(Sender: TObject);
begin
  Label1.GlowSize := Label1.GlowSize + 1;
end;

procedure TFormLabelsDemo.LinkLabel1LinkClick(Sender: TObject;
  const Link: string; LinkType: TSysLinkType);
begin
  ShowMessage ('Link clicked: ' + Link);
end;

end.

object FormLabelsDemo: TFormLabelsDemo
  Left = 0
  Top = 0
  Caption = 'LabelsDemo'
  ClientHeight = 149
  ClientWidth = 536
  Color = clBtnFace
  DoubleBuffered = True
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  GlassFrame.Enabled = True
  GlassFrame.Top = 40
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 56
    Top = 8
    Width = 153
    Height = 27
    Caption = 'A Glowing Label'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = 'Tahoma'
    Font.Style = []
    GlowSize = 1
    ParentFont = False
  end
  object Label2: TLabel
    Left = 304
    Top = 8
    Width = 161
    Height = 25
    Caption = 'A Standard Label'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object LinkLabel1: TLinkLabel
    Left = 56
    Top = 88
    Width = 163
    Height = 29
    Caption = 'A link to <a href="http://blog.marcocantu.com">my blog</a>'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnLinkClick = LinkLabel1LinkClick
  end
  object LinkLabel2: TLinkLabel
    Left = 304
    Top = 88
    Width = 120
    Height = 19
    Caption = 'A new link to <a href="http://blog.marcocantu.com">my blog</a>'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    UseVisualStyle = True
    OnLinkClick = LinkLabel1LinkClick
  end
end