Class TAddressBookViewer (unit Addrbook)

Inherits from

TCustomControl

Constructors


constructor Create(AOwner: TComponent);

======================= TAddressBookViewer component ====================


Functions

procedure Update;


destructor Destroy;


procedure Loaded;


procedure Paint;


function GetAddressBook: TAddressBook;


function GetIndex: integer;


procedure ListDrawItem(Control: TWinControl; Index: Integer; R: TRect; State: TOwnerDrawState);


procedure ListMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

Handles drag of item from address book listbox

procedure RingsPaint(Sender: TObject);


procedure SetAddressBook(a: TAddressBook);


procedure SetFont(f: TFont);


procedure SetSortOrder(s: TAddressBookViewerSort);


procedure SetView(v: TAddressBookView);


procedure TabChanged(newtab: integer);


procedure TabsMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure TabsPaint(Sender: TObject);


Properties

property AddressBook : TAddressBook


property Align :


property Font : TFont


property SelectedTab : integer


property SortOrder : TAddressBookViewerSort


property View : TAddressBookView


property ItemIndex : integer


Events

Variables

FAddressBook : TAddressBook;


FFont : TFont;


FSortOrder : TAddressBookViewerSort;


FView : TAddressBookView;


h : integer;


list : TAddressBookList;


panel : TPanel;


rings : TPaintBox;


tabs : TPaintBox;


TabSelected : integer;


TabsSwapped : Boolean;


w : integer;



Constructors


constructor Create(AOwner: TComponent);

======================= TAddressBookViewer component ====================


Functions


procedure Update;


destructor Destroy;


procedure Loaded;


procedure Paint;


function GetAddressBook: TAddressBook;


function GetIndex: integer;


procedure ListDrawItem(Control: TWinControl; Index: Integer; R: TRect; State: TOwnerDrawState);


procedure ListMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

Handles drag of item from address book listbox


procedure RingsPaint(Sender: TObject);


procedure SetAddressBook(a: TAddressBook);


procedure SetFont(f: TFont);


procedure SetSortOrder(s: TAddressBookViewerSort);


procedure SetView(v: TAddressBookView);


procedure TabChanged(newtab: integer);


procedure TabsMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure TabsPaint(Sender: TObject);


Properties


property AddressBook : TAddressBook


property Align :


property Font : TFont


property SelectedTab : integer


property SortOrder : TAddressBookViewerSort


property View : TAddressBookView


property ItemIndex : integer


Events


Variables


FAddressBook : TAddressBook;


FFont : TFont;


FSortOrder : TAddressBookViewerSort;


FView : TAddressBookView;


h : integer;


list : TAddressBookList;


panel : TPanel;


rings : TPaintBox;


tabs : TPaintBox;


TabSelected : integer;


TabsSwapped : Boolean;


w : integer;