Class TFormulaLibMan (unit FCLibMan) |
Inherits from
TForm
TFormulaLibMan - dialog window which allows the user } { manage library contents
constructor Create(AOwner: TComponent);
procedure AddBtnClick(Sender: TObject);
Add new entry
procedure DelBtnClick(Sender: TObject);
delete current entry
procedure EditBtnClick(Sender: TObject);
Edit current entry
procedure NotebookChange(Sender: TObject; NewTab: Integer;
var AllowChange: Boolean);
actual delete
function Edit(ALib: TFormulaLib; Index: Integer): Boolean;
edit library ALib } { Index = 0 - show user functions at startup } { Index = 1 - show user aliases at startup
procedure UpdateList(Page: Integer);
UpdateList refresh List: TListBox to show aliases of function
AddBtn : TBitBtn;
CancelBtn : TButton;
DelBtn : TBitBtn;
EditBtn : TBitBtn;
List : TListBox;
depending on NoteBook.
Notebook : TTabbedNotebook;
OkBtn : TButton;
Lib : TFormulaLib;
user function and aliases library to edit
constructor Create(AOwner: TComponent);
procedure AddBtnClick(Sender: TObject);
Add new entry
procedure DelBtnClick(Sender: TObject);
delete current entry
procedure EditBtnClick(Sender: TObject);
Edit current entry
procedure NotebookChange(Sender: TObject; NewTab: Integer;
var AllowChange: Boolean);
actual delete
function Edit(ALib: TFormulaLib; Index: Integer): Boolean;
edit library ALib } { Index = 0 - show user functions at startup } { Index = 1 - show user aliases at startup
procedure UpdateList(Page: Integer);
UpdateList refresh List: TListBox to show aliases of function
AddBtn : TBitBtn;
CancelBtn : TButton;
DelBtn : TBitBtn;
EditBtn : TBitBtn;
List : TListBox;
depending on NoteBook.PageIndex List shows aliales or functions } { from the Lib
Notebook : TTabbedNotebook;
OkBtn : TButton;
Lib : TFormulaLib;
user function and aliases library to edit