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.... |
Home GuiPack URLLab Interface of SDL_URLLab | |
See also: Using TUrlLab | |
Interface of SDL_URLLab |
|
const {$IFDEF PAIDVERS} SDLVersionInfo = 'urllab_r1200_full'; IsLightEd = false; {$ELSE} SDLVersionInfo = 'urllab_r1200_lighted'; IsLightEd = true; {$ENDIF} Release = 1200; 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}
|