| Class TACHyperLink (unit AcHyperLink) |
TScrollBox
| Constructors |
Constructor Create(AOwner: TComponent);***************************************************************************** * Construtor *
| Functions |
destructor Destroy;
Procedure Add_Image(I:TACTransparentImage);
Procedure Add_Label(L:TLabel;Link:String);
procedure insert_lbl(x,y,Pagina:Integer;Testo,Link:String);
Procedure on_Click (Sender: TObject);
Procedure ReadPage(Num:Integer);
Procedure Remove_Image;
Procedure Remove_Label;
procedure WMPaint(var Message: TWMPaint);***************************************************************************** * Paint * ******************************************************************************) //procedure TACHyperLink.
| Properties |
property FileName : String
property PageNumber : Integer| Events |
| Variables |
ElencoImg : PACImageList;
ElencoLbl : PACLabelList;
FontBold : Boolean;
FontColore : Integer;
FontItalic : Boolean;
FontName : String;
FontSize : Integer;
FontStrikeOut : Boolean;
FontUnderline : Boolean;
PaginaDaCaricare : Integer;
FNomeFile : String;
FPageNum : Integer;| Constructors |
Constructor Create(AOwner: TComponent);Public declarations
***************************************************************************** * Construtor *
| Functions |
destructor Destroy;***************************************************************************** * Destroy *
Procedure Add_Image(I:TACTransparentImage);***************************************************************************** * Add_Image *
Procedure Add_Label(L:TLabel;Link:String);***************************************************************************** * Add_Label *
procedure insert_lbl(x,y,Pagina:Integer;Testo,Link:String);***************************************************************************** * insert_lbl *
Procedure on_Click (Sender: TObject);***************************************************************************** * on_Click *
Procedure ReadPage(Num:Integer);***************************************************************************** * ReadPage *
Procedure Remove_Image;***************************************************************************** * Remove_Image *
Procedure Remove_Label;***************************************************************************** * Remove_Label *
procedure WMPaint(var Message: TWMPaint);of object;
***************************************************************************** * Paint * ******************************************************************************) //procedure TACHyperLink.Paint(AOwner: TComponent);
| Properties |
property FileName : StringPublished declarations
property PageNumber : Integer| Events |
| Variables |
ElencoImg : PACImageList;
ElencoLbl : PACLabelList;
FontBold : Boolean;
FontColore : Integer;
FontItalic : Boolean;
FontName : String;Protected declarations
FontSize : Integer;
FontStrikeOut : Boolean;
FontUnderline : Boolean;
PaginaDaCaricare : Integer;
FNomeFile : String;Private declarations
FPageNum : Integer;