DefaultExt: = GetStandartFolder ($ 0005); not OpenDialog1.Execute then;: = OpenDialog1.FileName;. run (-1, CatCB.ItemIndex,'', sFilename ); not RecEditorForm.m_isEntered then;. ItemIndex: = RecEditorForm.cb.ItemIndex;;. ItemIndex: = l.Items.Count - 1;;;
TMainForm.OnRenameCat;: tdb;, sNewName: string;, id, index, index2: longint;: = CatCB.Items [CatCB.Itemindex];. run ('Введіть нову Назву категорії', sName, false, 50, nil, false,
'', false,'', # 0, 'Назва категорії'); not EditTextForm.m_IsEntered then;: = alltrim (EditTextForm.Edit1.Text); sNewName = sName then;. InitializeLocal; . OpenDatabase (self.m_CatDBFilename);: = SeekForString (db, 2, sNewName, false, true, true); rn> 0 then.Run ('категорія з такою Назв Вже існує.' + # 13 + 'Перейменування Неможливо' , false, false, true, false);. DBClose;;;: = SeekForLong (db, 1, m_CurCatID, false);. DirectWriteString (rn, 2, sNewName);. DBClose;: = CatCB.ItemIndex;: = l . ItemIndex;;. ItemIndex: = index;. ItemIndex: = index2;;;
procedure TMainForm.OnRenameRecept;: tdb;, sNewName: string;, id, i: longint; l.ItemIndex <0 then.Run ('Не вибрать жодних рецептом', false, false, true , false);;;: = l.Items [l.Itemindex];. run ('Введіть нову Назву рецептом', sName, false, 50, nil, false,
'', false,'', # 0, 'Назва рецептом'); not EditTextForm.m_IsEntered then;: = alltrim (EditTextForm.Edit1.Text); sNewName = sName then;. InitializeLocal; . OpenDatabase (self.m_RecDBFilename);: = SeekForString (db, 3, sNewName, false, true, true); rn> 0 then.Run ('Рецепт з такою Назв Вже існує.' + # 13 + 'Перейменування Неможливо' , false, false, true, false);. DBClose;;;: = SeekForLong (db, 1, m_CurRecID, false);. DirectWriteString (rn, 3, sNewName);. DBClose;. Items [l.ItemIndex]: = sNewName;;
TMainForm.ApplyNormColorsOverRGB;. Color: = RGB (196, 203, 222);. Color: = RGB (196, 203, 222);. Color: = RGB (192, 192, 192) ; _cl3Dlight: = RGB (227, 227, 227); _ClCream: = RGB (255, 251, 240);. Color: = m_cl3Dlight;. Color: = m_cl3Dlight;. Color: = m_cl3Dlight;;.
. PAS
RecInterfaceUnit;
CreateCatDataBase (filename: string); CreateRecDataBase (filename: string);
tdb_lib;
CreateCatDataBase (filename: string);: tdb;. InitializeLocal;. DBSetName (filename);. AddField ('ID', 'l', 4, 0);. AddField ('name', 'c', 40, 0);. DBCreate;. DBClose;;
CreateRecDataBase (filename: string);: tdb;. InitializeLocal;. DBSetName (filename);. AddField ('ID', 'l', 4, 0);. AddField ('CatID', 'l', 4, 0);. AddField ('name', 'c', 50, 0);. DBCreate;. DBClose;;.
. PASRec...
