: TMouseButton;: TShiftState; X, Y: Integer); Im2MouseUp (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); lKeyPress (Sender: TObject; var Key: Char); FormShow (Sender: TObject); MemoEnter (Sender: TObject); MemoExit (Sender: TObject); Image1MouseEnter (Sender: TObject); Image1MouseLeave (Sender: TObject); Image1MouseUp (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y : Integer); Image1MouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); Image2MouseEnter (Sender: TObject); Image2MouseLeave (Sender: TObject); Image2MouseUp (Sender: TObject; Button: TMouseButton;: TShiftState ; X, Y: Integer); Image2MouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); Image2Click (Sender: TObject); N18Click (Sender: TObject); N20Click (Sender: TObject); N19Click (Sender: TObject); N21Click (Sender: TObject); N22Click (Sender: TObject); N23Click (Sender: TObject); N24Click (Sender: TObject); N27Click (Sender: TObject); N25Click (Sender: TObject); N26Click ( Sender: TObject); PopupMenu1Popup (Sender: TObject); N3Click (Sender: TObject); _CatDBFilename, m_RecDBFilename, m_rootFolder, m_DataFolder: string; _CurRecFilename: string; _curRecID, m_CurCatID: longint; _cl3dLight: TColor; _clCream: TColor; FillCatCB; OnSelectCat ; OnSelectRecept; OnDelete; DeleteRecept (recID: CatID: longint);: TMainForm; SimpleSelectInListboxUnit, EditTextUnit, SearchInStringsUnit, ZastUnit;
{$ R *. dfm} TMainForm.FormCloseQuery (Sender: TObject; var CanClose: Boolean); not self.Visible then: = false;;;: = false;. Run ('Ві Дійсно Хочете війта з програми? ', true, true, false, true); askDialog.m_SelectedItem = 1 then: = true;; TMainForm.FormCreate (Sender: TObject);;. HintColor: = m_cl3DLight;. HintPause: = 52; _rootFolder : = mylib.GetFolderForFilename (Application.ExeName); _DataFolder: = m_rootFolder + 'data '; _CatDBFilename: = m_DataFolder + 'CatDB.DBE'; _RecDBFilename: = m_DataFolder + 'RecDB.DBE'; not FindLocalFolder (m_DataFolder + ' ') then (m_DataFolder +' '); not FileExists (m_CatDBFilename) then (m_CatDBFilename); not FileExists (m_RecDBFileName) then (m_RecDBFileName);;. PreparePopupmenuForSkin (popupmenu1, self);. PrepareMainMenuForSkin (MainMenu1, self);; TMainForm . FormShow (Sender: TObject); CatCB.Items.Count <1 then.Run ('Для роботи з програмою звітність, мати хочай б одну категорію.' + # 13 +
'Створити категорію? Натісніть "Так" для создания, "Ні" для виходе. ', True, true, false, false); AskDialog.m_SelectedItem <> 1 then; CatCB.Items.Count <1 then;; l.Items . Count> 0 then.SetFocus;; TMainForm.Im9Click (Sender: TObject);;; TMainForm.Im9MouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);. GetBitmap (9, im9. Picture.Bitmap);. Repaint;; TMainForm.Im9MouseEnter (Sender: TObject);. GetBitmap (9, im9.Picture.Bitmap);. Repaint;; TMainForm...
