The SDL Component Suite is an industry leading collection of components supporting scientific and engineering computing. Please visit the SDL Web site for more information....



Interface of SDL_URLLab

const
{$IFDEF PAIDVERS}
  SDLVersionInfo = 'urllab_r1050_full';
  IsLightEd = false;
{$ELSE}
  SDLVersionInfo = 'urllab_r1050_lighted';
  IsLightEd = true;
{$ENDIF}
  release = 1050;


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;
{$IFDEF GE_LEV17}
(**)              property StyleElements;
{$ENDIF}
              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;

{$IFDEF FMX}
  TFMXUrlLab = class(TTextControl)
            private
              FURL        : string; // URL to be linked to when clicked on
              FTaskParam  : string; // parameters passed to executable
              FFontActive : TFont;
              FBakFont    : TFont;
//              FText       : string;
//              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;
              procedure Paint; override;
              procedure ApplyStyle; override;
//               procedure SetText(const Value: string); override;
            public
              constructor Create(AOwner: TComponent); override;
              destructor Destroy; override;
//              procedure PerformClick;
            published
              property Align;
//              property Alignment;
              property Anchors;
//               property Constraints;
//              property AutoSize;
              property Text;
//              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 StyleLookup;
              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;
              property OnContextPopup;
              property OnMouseEnter;
              property OnMouseLeave;
*)
            end;

{$ENDIF}





Last Update: 2012-Oct-20