Class TWWWBtn97 (unit WWWBtn97)

Inherits from

TCustomControl

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.

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.

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


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