m.m_CatDBFilename, true); i: = 1 to db.RecordCount do_CID: = db.DirectReadLong (i, 1); _Name: = alltrim (db.DirectReadString (i, 2));. Items.AddObject (m_Name, TObject (m_CID));;. DBClose; not m_editMode then.Enabled: = true;. ItemIndex: = m_cbindex;. Enabled: = false;. ItemIndex: = m_cbindex;;;
TRecEditorForm.FillMemo;. Clear; m_editMode then_filename: = MainForm.m_DataFolder + along2str (m_ID) + '. rec';. Lines.LoadFromFile (m_filename); length (m_recfilename)> 0 then. Lines.LoadFromFile (m_recfilename);;
TRecEditorForm.FormCloseQuery (Sender: TObject; var CanClose: Boolean);: = false; OnExit then: = true;;
TRecEditorForm.FormKeyPress (Sender: TObject; var Key: Char); key of
# 10: begin_isBlocked: = true;;;
# 27: begin_isEntered: = false;;;;;
TRecEditorForm.FormShow (Sender: TObject);. SetFocus;;
TRecEditorForm.im1Click (Sender: TObject);;;
TRecEditorForm.im1MouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);. imgclick.GetBitmap (10, im1.Picture.Bitmap);. Repaint;; TRecEditorForm. im1MouseEnter (Sender: TObject);. imgon.GetBitmap (10, im1.Picture.Bitmap);. Repaint;;
TRecEditorForm.im1MouseLeave (Sender: TObject);. imgnorm.GetBitmap (10, im1.Picture.Bitmap);. Repaint;;
TRecEditorForm.im1MouseUp (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);. imgnorm.GetBitmap (10, im1.Picture.Bitmap);. Repaint;;
TRecEditorForm.Im2Click (Sender: TObject);;;
TRecEditorForm.Im2MouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);. imgclick.GetBitmap (11, im2.Picture.Bitmap);. Repaint;;
TRecEditorForm.Im2MouseEnter (Sender: TObject);. imgon.GetBitmap (11, im2.Picture.Bitmap);. Repaint;;
TRecEditorForm.Im2MouseLeave (Sender: TObject);. imgnorm.GetBitmap (11, im2.Picture.Bitmap);. Repaint;;
TRecEditorForm.Im2MouseUp (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);. imgnorm.GetBitmap (11, im2.Picture.Bitmap);. Repaint;;
TRecEditorForm.MemoChange (Sender: TObject); m_isBlocked then_isBlocked: = false;;;; _NeedToSave: = true;;
TRecEditorForm.MemoEnter (Sender: TObject);. Color: = m_ClCream;;
TRecEditorForm.MemoExit (Sender: TObject);. Color: = m_Cl3DLight;;
TRecEditorForm.OnSave;: tdb;: longint;, newID: longint; _Recname: = alltrim (e1.text);. InitializeLocal;. OpenDatabase (mainForm.m_RecDBFilename);: = tdb_lib.SeekForString ( db, 3, m_RecName, false, true, true); (rn> 0) and (length (m_Recname)> 0) and not m_editMode then.run ('Неможливо Зберегти рецепт.' + # 13 + 'Рецепт з такою...
