TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TPopupMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TFontDialog ;: TImageList ;: TImageList ;: TActionList ;: TAction ;: TAction ;: TAction ;: TAction;:TAction ;: TAction ;: TAction ;: TAction ;: TAction ;: TAction ;: TAction ;: TAction ;: TAction ;: TAction ;: TAction ;: TAction ;: TAction ;: TAction ;: TStatusBar ;: TGroupBox ;: TBitBtn ;: TStatusBar ;: TMenuItem ;: TMenuItem ;: TSaveDialog ;: TMenuItem ;: TCheckBox ;: TToolButton ;: TAction ;: TSaveDialog ;: TLabel ;: TLabel ;: TLabel ;: TColorDialog ;: TAction ;: TListView ;: TGroupBox ;: TLabel ;: TCheckBox ;: TLabel ;: TCheckBox ;: TCheckBox ;: TCheckBox ;: TCheckBox ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TCheckBox ;: TCheckBox ;: TTreeView ;: TMemo ;: TApplicationEvents ;: TMenuItem;:TSplitter ;: TMenuItem ;: TMenuItem ;: TToolBar ;: TToolButton ;: TToolButton ;: TToolButton ;: TToolButton ;: TToolButton ;: TPanel ;: TLabel ;: TEdit ;: TPopupMenu ;: TAction ;: TAction ;: TMenuItem ;: TMenuItem ;: TXPManifest; FormCreate (Sender: TObject); N2Click (Sender: TObject); PhonesChange (Sender: TObject; Item: TListItem ;: TItemChange); edit_Execute (Sender: TObject); delete_Execute (Sender: TObject); PhonesDblClick (Sender: TObject); new_Execute (Sender: TObject); N1Click (Sender: TObject); FormActivate (Sender: TObject); GroupsChange (Sender: TObject; Item: TListItem ;: TItemChange); CheckBox2Click (Sender: TObject); CheckBox3Click (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction); ComboBox1Change (Sender: TObject); RemoveExecute (Sender:TObject); NewSubCategoryExecute (Sender: TObject); NewTextExecute (Sender: TObject); ListChange (Sender: TObject; Node: TTreeNode); FontcfgExecute (Sender: TObject); filesChange (Sender: TObject); ChgPropExecute (Sender: TObject); SaveNoteExecute (Sender: TObject); AllUpperExecute (Sender: TObject); AllLowerExecute (Sender: TObject); AllProperExecute (Sender: TObject); AllInvertExecute (Sender: TObject); CutExecute (Sender: TObject); PasteExecute (Sender: TObject); CopyExecute (Sender: TObject); filesKeyUp (Sender: TObject; var Key: Word ;: TShiftState); filesMouseUp (Sender: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer); ListPopupPopup (Sender: TObject); N16Click (Sender: TObject); N18Click (Sender: TObject); N37Click (Sender: TObject); filesKeyPress (Sender: TObject; var Key: Char); filesClick (Sender:TObject); filesKeyDown (Sender: TObject; var Key: Word ;: TShiftState); SpeedButton1Click (Sender: TObject); PhonesKeyUp (Sender: TObject; var Key: Word ;: TShiftState); FormShow (Sender: TObject); CheckBox1Click ( Sender: TObject); bgcolorClick (Sender: TObject); textcolorClick (Sender: TObject); bordercolorClick (Sender: TObject); ToolButton16Click (Sender: TObject); ListDragOver (Sender, Source: TObject; X, Y: Integer ;: TDragState; var Accept: Boolean); ListDragDrop (Sender, Source: TObject; X, Y: Integer); ListEndDrag (Sender, Target: TObject; X, Y: Integer); ApplicationEvents1Exception (Sender: TObject; E: Exception); N8Click (Sender:TObject); TabSheet4Show (Sender: TObject); N30Click (Sender: TObject); EditFindChange (Sender: TObject); SelAll1DrawItem (Sender: TObject; ACanvas: TCanvas ;: TRect; Selected: Boolean); PhonesColumnClick (Sender: TObject; Column: TListColumn); commentExit (Sender: TObject); PopupListPopup (Sender: TObject); commentChange (Sender: TObject); ExitOnEscExecute (Sender: TObject); SetFirstExecute (Sender: TObject); FocusListExecute (Sender: TObject); SelAllExecute (Sender:TObject); PrintNoteExecute (Sender: TObject); ToHTMLExecute (Sender: TObject); ToExcelExecute (Sender: TObject);
{Private declarations}
{Public declarations};
////////////////////////////////////////////////////////////////////////////////
//My functions
////////////////////////////////////////////////////////////////////////////////UpdateNotes;UpdateNotesIcons;SortList;InvertCase(s:string):string;ProperCase(ss:string):string;LoadGroupPhones(const Groupname: string); LoadPhones;
////////////////////////////////////////////////////////////////////////////////: TPhoneBook;: TiniFile;: string;// робоча Деректор: boolean;: shortstring;, ToNode: TTreeNode;
_ f: boolean=false;
_ II: integer=- 1;: integer=- 2;: boolean=false; new_phone, Change, cfg, Unit2, Unit3, Unit4, Unit1;
{$ R * .DFM}
////////////////////////////////////////////////////////////////////////////////
//створення форми
/////////////////////////////////////////////////////////////////////////...
