| Class TAddressBookViewer (unit Addrbook) |
TCustomControl
| Constructors |
constructor Create(AOwner: TComponent);| 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);
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;