Class TWWWBtn97 (unit WWWBtn97) |
Inherits from
TCustomControl
Constructor Create(AOwner: TComponent);
- Public declaration
Constructor Procedure.
Destructor Destroy;
Destructor procedure .
Procedure Paint;
Modify the inherited paint procedure of the button.
Procedure ActuListe;
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.
Function CreateSubMenu : Boolean;
Create all the submenu.
procedure ModifyMenuTree(MenuItems : TMenuItem);
Change PopupMenu state in OWNERDRAW.
Procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Mouse event for Main 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.
Procedure CMEnabledChanged(var Msg: TMessage);
Button Message (in the DELPHI IDE).
Procedure CMFontChanged(var Msg: TMessage);
Procedure CMMouseEnter(var Message: TMessage);
Mouse Message.
Procedure CMMouseLeave(var Message: TMessage);
Mouse Message "OnLeave" on the button.
Procedure CMTextChanged(var Msg: TMessage);
Procedure DrawBtn (Mode : Byte);
Draw MainButton Border.
Procedure DrawCaption (Layout : TLayout ; Mode : Boolean);
Draw caption of the mainButton.
procedure DrawGlyph (Canvas:TCanvas; bmp:TBitmap; x,y:Integer);
Draw Glyph of the mainButton.
procedure DrawGrayGlyph (Canvas: TCanvas; bmp: TBitmap; x, y: Integer);
Draw Glyph of the mainButton.
Procedure DrawPopupMark (state : Boolean);
Draw poupMark on the right parts of the mainbutton.
Function GetLayout : TLayout;
Get Layout Type.
procedure SetGlyph (Value : TBitmap);
Set Glyph for MainButton.
Procedure SetLayout (Value : TLayout);
Set & Get Layout procedure.
Procedure WMCommand(Var Message : TWMCommand);
PopupMenu Message.
Procedure WMDrawItem(var Message: TWMDrawItem);
Message WM_DRAWITEM of PopupMenu.
Procedure WMMeasureItem(var Message: TWMMeasureItem);
Message WM_MEASUREITEM of Popupmenu.
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 :
event OnSelectURL : TNotifyEvent
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
Constructor Create(AOwner: TComponent);
Public declaration
Constructor Procedure.
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.
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 :
event OnSelectURL : TNotifyEvent
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