atusBar; CalculateEditSize; SortMode (Sender: tObject); ReadIni; WriteIni;// Ini-file;: TPhoneForm;: array [0 .. 4] of TEdit;: DataThread;: boolean;: integer;: array [0 .. 2] of string = ('по Телефону', 'по Імені', 'по Вулиці');: array [0 .. 2] of string = ('ByNumTel ',' ByFamil ',' ByStreet '); _TO_CLIPBOARD =' Копіювати '; _FROM_CLIPBOARD =' Вставити '; IndexOfItem (Item: string): integer; IniFiles, DBITypes, DBIProcs, Graphics, ShellApi;
{$ R *. dfm} TPhoneForm.FormCreate (Sender: TObject); i, j: integer;: tMenuItem;. TableName: = sDataFile;. Open;;;;;. onMessage: = Aom;; TPhoneForm.MyPopupHandler (Sender: TObject); Sender is TMenuItem then with (Sender as TMenuItem) dotag of
.. 2: begin Table1.IndexName: = IndexName [(Sender as TMenuItem). tag]; (Sender);;
: Clipboard.AsText: = DBGrid1.SelectedField.DisplayText;;;;; TPhoneForm.CreatePopupFields;: integer;: array [0 .. 4] of TMenuItem;: TMenuItem; i: = 0 to 4 do// Створення полів введення [i]: = TEdit.Create (self); [i]. Parent: = GroupBox1; [i]. PopupMenu: = PopupMenu2; [i]. OnContextPopup: = MyEditPopup; [i]. Tag: = i;; i: = 0 to 4 do with PopupMenu1 do// Створення меню сортування [i]: = TMenuItem.Create (self); i <3 then MyPopupMenuItem [i]. Caption: = SortName [i]; [i]. Tag: = i; [i]. OnClick: = MyPopupHandler;. Items.add (MyPopupMenuItem [i]);; [3]. Caption: = '-'; [4]. Caption: = COPY_TO_CLIPBOARD; [4]. ShortCut: = ShortCut (Word ('C'), [ssCtrl]);. Items [0]. Checked: = true;: = TMenuItem.Create (self);. Caption: = PASTE_FROM_CLIPBOARD;. OnClick: = MyPopupHandler2;. Items.add (MenuItem); (nil, Point (0,0), bool);; TPhoneForm.CalculateEditSize;: integer;: integer;: = 13;// Розмір полів вводаi: = 0 to 4 do [i]. Left: = Offset;: = Offset + DbGrid1.Columns [i]. width + 8; [i]. Width: = DBGrid1.Columns [i]. width; [i]. Top: = 24; [ i]. MaxLength: = Table1.Fields [i]. Size;;; TPhoneForm.UpdateStatusBar; SortMode: string;. Panels [0]. Text: = 'Знайдено абонентів:' + InttoStr (Table1.RecordCount);: = SortName [0]; PopupMenu1.Items [1]. Checked then sortMode: = SortName [1]; PopupMenu1.Items [2]. Checked then sortMode: = SortName [2];. Panels [1]. Text: = 'Відсортовано: '+ SortMode;; tPhoneForm.AOM (var Msg: tagMSG; var Handled: Boolean); key: word;: = false; msg.message = Wm_keydown then// Обробка клавіш: = msg.wParam;: = true; key of // Обробка клавіш_up: SendMessage (DBGrid1.Handle, wm_keydown, vk_up, 0); _Down: SendMessage (DBGrid1.Handle, wm_keydown, vk_down, 0); _Prior: SendMessage (DBGrid1.Handle, wm_keydown, vk_Prior, 0); _Next: SendMessage (DBGrid1.Handle, wm_keydown, vk_Next, 0); _return: Search.OnClick (Search); _f1: Application.HelpCommand (HELP_CONTENTS, 0); handled: = false;;;; TPhoneForm.SearchClick (Sender: TObject); : string;: integer;: =''; i: = 0 to 4 do// with table1 doInputs [i]. Text <>...
