Interface of SDL_URLLab

const
{$IFDEF PAIDVERS}
  SDLVersionInfo = 'urllab_r951_full';
  IsLightEd = false;
{$ELSE}
  SDLVersionInfo = 'urllab_r951_lighted';
  IsLightEd = true;
{$ENDIF}
  Release = 951;


type
  ESDLURLLabError = class(ESDLError);      { exception type to indicate errors }
  TUrlLab = class(TCustomLabel)
            private
              FURL        : string; // URL to be linked to when clicked on
              FTaskParam  : string; // parameters passed to executable
              FFontActive : TFont;
              FBakFont    : TFont;
              procedure SetFontActive (Value: TFont);
              procedure SetURL (Value: string);
              procedure SetTaskParam (Value: string);
              procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
              procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
            protected
              procedure Loaded; override;
              procedure Click; override;
            public
              constructor Create(AOwner: TComponent); override;
              destructor Destroy; override;
              procedure PerformClick;
            published
              property Align;
              property Alignment;
              property Anchors;
              property Constraints;
              property AutoSize;
              property Caption;
              property Color;
              property Enabled;
              property Font;
              property FontActive: TFont read FFontActive write SetFontActive;
              property ParentColor;
              property ParentFont;
              property ParentShowHint;
              property PopupMenu;
              property ShowHint;
              property Transparent;
              property URL: string read FURL write SetURL;
              property TaskParams: string read FTaskParam write SetTaskParam;
              property Layout;
              property Visible;
              property WordWrap;
              property OnClick;
              property OnDblClick;
              property OnMouseDown;
              property OnMouseMove;
              property OnMouseUp;
{$IFDEF GE_LEV5}               // CBuilder/Delphi 3/4 do not know about
              property OnContextPopup;
{$ENDIF}
{$IFDEF GE_LEV6}
              property OnMouseEnter;
              property OnMouseLeave;
{$ENDIF}
            end;