| Class TWWWBtn97 (unit WWWBtn97) |
TCustomControl
| Constructors |
Constructor Create(AOwner: TComponent);Constructor Procedure.
| Functions |
Destructor Destroy;
Procedure Paint;
Procedure ActuListe;
Procedure CalcHeightItem;
Function CalcMenuWidth(Item : TMenuItem) : Integer;
Procedure CreateMenu;
Function CreateSubMenu : Boolean;
procedure ModifyMenuTree(MenuItems : TMenuItem);
Procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Procedure SearchURL(Folder : String);
Procedure SelectUrl;
Procedure CMEnabledChanged(var Msg: TMessage);
Procedure CMFontChanged(var Msg: TMessage);
Procedure CMMouseEnter(var Message: TMessage);
Procedure CMMouseLeave(var Message: TMessage);
Procedure CMTextChanged(var Msg: TMessage);
Procedure DrawBtn (Mode : Byte);
Procedure DrawCaption (Layout : TLayout ; Mode : Boolean);
procedure DrawGlyph (Canvas:TCanvas; bmp:TBitmap; x,y:Integer);
procedure DrawGrayGlyph (Canvas: TCanvas; bmp: TBitmap; x, y: Integer);
Procedure DrawPopupMark (state : Boolean);
Function GetLayout : TLayout;
procedure SetGlyph (Value : TBitmap);
Procedure SetLayout (Value : TLayout);
Procedure WMCommand(Var Message : TWMCommand);
Procedure WMDrawItem(var Message: TWMDrawItem);
Procedure WMMeasureItem(var Message: TWMMeasureItem);| Properties |
property Align :
property Caption :
property Color :
property Cursor :
property Enabled :
property Font :
property GlyphButton : Tbitmap
property Height :
property HelpContext :
property Hint :
property Layout : TLayout
property Left :
property MenuOptions : TMenuOption
property ParentShowHint :
property ShowHint :
property TabOrder :
property TabStop :
property Tag :
property Top :
property URLName : String
property URLPath : String
property Visible :
property Width : | Events |
event OnSelectURL : TNotifyEvent| Variables |
DirItem : TMenuItem;
FDefaultHeight : Integer;
FDefaultMargin : Integer;
FGlyph : TBitmap;
FItemHeight : Integer;
FItemWidth : Integer;
FLayout : TLayout;
FMenu : TMenuOption;
FOnSelectURL : TNotifyEvent;
FURLName : String;
FURLPath : String;
HasMouse : Boolean;
ImageList : TImageList;
MainButton : Boolean;
ModifFlag : Boolean;
NewItem : TMenuItem;
OffsetWidth : Integer;
Orig_Folder : String;
RectB : TRect;
RectL : TRect;
RectR : TRect;
Registry : TRegistry;
RightWidth : Integer;
sList : TList;
StillDown : Boolean;
subItem : TMenuItem;
tempObj : TURLrec;
tmpBmp : TBitmap;
WMenu : TPopupMenu;| Constructors |
Constructor Create(AOwner: TComponent);Public declaration
Constructor Procedure.
| Functions |
Destructor Destroy;Destructor procedure .
Procedure Paint;Modify the inherited paint procedure of the button. ---------------------------------------------------
Procedure ActuListe;Refresh the favorites List.
Refresh the favorites List.
Procedure CalcHeightItem;Calculate the max Height for MenuItem.
Function CalcMenuWidth(Item : TMenuItem) : Integer;Calculate the max Width of PopupMenu and this SubMenu.
Procedure CreateMenu;Set all pointer list & Menu config.
Create the Menu with the internet favorites file found.
Function CreateSubMenu : Boolean;Create all the submenu.
procedure ModifyMenuTree(MenuItems : TMenuItem);Change PopupMenu state in OWNERDRAW.
Change popupmenu in OwnerDraw state.
Procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);Mouse event for Main Button.
Mouse event "OnMouseDown" of the button.
Procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);Mouse event "OnMouseUp" of the button.
Procedure SearchURL(Folder : String);Research and create the list of the favorites files found.
Procedure SelectUrl;OnSelected Event of PopupMenu.
OnselectURL Event from PopupMenu.
Procedure CMEnabledChanged(var Msg: TMessage);Button Message (in the DELPHI IDE).
Message "Enabled" in DELPHI IDE.
Procedure CMFontChanged(var Msg: TMessage);
Procedure CMMouseEnter(var Message: TMessage);Mouse Message.
Mouse Message "OnEnter" on the button.
Procedure CMMouseLeave(var Message: TMessage);Mouse Message "OnLeave" on the button.
Procedure CMTextChanged(var Msg: TMessage);
Procedure DrawBtn (Mode : Byte);Draw MainButton Border.
Draw the Main Button. ---------------------
Procedure DrawCaption (Layout : TLayout ; Mode : Boolean);Draw caption of the mainButton.
Draw Caption of the main button. --------------------------------
procedure DrawGlyph (Canvas:TCanvas; bmp:TBitmap; x,y:Integer);Draw Glyph of the mainButton. ("Enabled" State
Draw a bitmap with Enabled mode. --------------------------------
procedure DrawGrayGlyph (Canvas: TCanvas; bmp: TBitmap; x, y: Integer);Draw Glyph of the mainButton. ("Disabled" State
Draw a bitmap with Disabled mode. ---------------------------------
Procedure DrawPopupMark (state : Boolean);Draw poupMark on the right parts of the mainbutton.
Draw the PoupMark of the Button. --------------------------------
Function GetLayout : TLayout;Get Layout Type. ----------------
procedure SetGlyph (Value : TBitmap);Set Glyph for MainButton.
TWWWBtn97 } // Set a value in the Glyph property. // ----------------------------------
Procedure SetLayout (Value : TLayout);Set & Get Layout procedure.
Set Layout Type. ----------------
Procedure WMCommand(Var Message : TWMCommand);PopupMenu Message.
Message WM_COMMAND of PopupMenu.
Procedure WMDrawItem(var Message: TWMDrawItem);Message WM_DRAWITEM of PopupMenu.
Procedure WMMeasureItem(var Message: TWMMeasureItem);Message WM_MEASUREITEM of Popupmenu.
| Properties |
property Align : Published declaration
property Caption : All component's property.
property Color :
property Cursor :
property Enabled :
property Font :
property GlyphButton : Tbitmap
property Height :
property HelpContext :
property Hint :
property Layout : TLayout
property Left :
property MenuOptions : TMenuOption
property ParentShowHint :
property ShowHint :
property TabOrder :
property TabStop :
property Tag :
property Top :
property URLName : String
property URLPath : String
property Visible :
property Width : | Events |
event OnSelectURL : TNotifyEvent| Variables |
DirItem : TMenuItem;
FDefaultHeight : Integer;Default Margin for all Menu-items.
FDefaultMargin : Integer;Main path of the favorites.
FGlyph : TBitmap;Temp Pointer.
FItemHeight : Integer;Default Height for all Menu-items.
FItemWidth : Integer;Menu-item height.
FLayout : TLayout;For Mainbutton's Glyph.
FMenu : TMenuOption;
FOnSelectURL : TNotifyEvent;Temp property value (URLPath).
FURLName : String;Menu-item Width.
FURLPath : String;Temp property value (URLName).
HasMouse : Boolean;Item of PopupMenu.
ImageList : TImageList;
MainButton : Boolean;State selected for MainButton (Left & Right).
ModifFlag : Boolean;Icon for mainbutton.
NewItem : TMenuItem;PopupMenu showing the list.
OffsetWidth : Integer;Temp var for TMenuOption Property.
Orig_Folder : String;register var for operations in RegEdit.
RectB : TRect;Main button.
RectL : TRect;Rect of button.
RectR : TRect;Rect of left button.
Registry : TRegistry;Width of right button.
RightWidth : Integer;Rect of Right button.
sList : TList;Event of selected PopupMenu item.
StillDown : Boolean;Loop for detect the mouse.
subItem : TMenuItem;
tempObj : TURLrec;list of pointer.
tmpBmp : TBitmap;ImageList for Mainbutton's Glyph.
WMenu : TPopupMenu;Private Declaration