Class TBrowsForm (unit SBrowser) |
Inherits from
TForm
procedure AboutButtonClick(Sender: TObject);
procedure A_xzTrackBarChange(Sender: TObject);
procedure BrowsPanelResize(Sender: TObject);
procedure ClassesMemoChange(Sender: TObject);
procedure ClassesMemoEnter(Sender: TObject);
procedure ClassesMemoKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ClearButtonClick(Sender: TObject);
procedure ExitButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
------------------------------------------------------------------- TBrowsForm -------------------------------------------------------------------
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FuncComboBoxClick(Sender: TObject);
procedure ResetButtonClick(Sender: TObject);
procedure RunButtonClick(Sender: TObject);
procedure SourceMemoEnter(Sender: TObject);
procedure SourceMemoExit(Sender: TObject);
procedure SourceMemoKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Splitter1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure SplitterMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
------------------------------------------------------------------- Splitter functions -------------------------------------------------------------------
procedure SplitterMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure SplitterMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure WatchTabSetClick(Sender: TObject);
procedure fill_combo;
procedure Set_values;
procedure Show_line1;
------------------------------------------------------------------- Show line numbers -------------------------------------------------------------------
procedure Show_line2;
AboutButton : TButton;
A_xyTrackBar : TTrackBar;
A_xzTrackBar : TTrackBar;
A_yzTrackBar : TTrackBar;
BrowsPanel : TPanel;
CanvasPanel : TPanel;
ClassesMemo : TMemo;
ClearButton : TSpeedButton;
CodeListBox : TListBox;
ConstListBox : TListBox;
DataMemo : TDBMemo;
DataSource1 : TDataSource;
DBGrid1 : TDBGrid;
DBNavigator1 : TDBNavigator;
ErrorLabel : TLabel;
ExitButton : TButton;
FuncComboBox : TComboBox;
FuncListBox : TListBox;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
LineLabel : TLabel;
MyCanvas : TMyCanvas;
OptionCheckBox : TCheckBox;
PageControl1 : TPageControl;
Panel1 : TPanel;
Panel2 : TPanel;
Panel3 : TPanel;
Panel4 : TPanel;
Panel5 : TPanel;
Panel6 : TPanel;
Panel7 : TPanel;
Panel8 : TPanel;
ResetButton : TSpeedButton;
ResListBox : TListBox;
RunButton : TButton;
SBasic1 : TSBasic;
SBasic2 : TSBasic;
SourceMemo : TDBMemo;
Splitter : TPanel;
Splitter1 : TPanel;
Table1 : TTable;
Table1Data : TBlobField;
Table1Key : TAutoIncField;
Table1Source : TBlobField;
Table1Title : TStringField;
TabSheet1 : TTabSheet;
TabSheet2 : TTabSheet;
TabSheet3 : TTabSheet;
TabSheet4 : TTabSheet;
TabSheet5 : TTabSheet;
VarListBox : TListBox;
WatchCodePanel : TPanel;
WatchNotebook : TNotebook;
WatchTabSet : TTabSet;
X_TrackBar : TTrackBar;
Y_TrackBar : TTrackBar;
Z_TrackBar : TTrackBar;
DataList : TList;
IsDirty : boolean;
Point_xi : integer;
Point_xy : integer;
Point_xz : integer;
Point_yi : integer;
Point_yz : integer;
Point_zi : integer;
SplitControl : TSplitControl;
Want_save : boolean;
procedure AboutButtonClick(Sender: TObject);
procedure A_xzTrackBarChange(Sender: TObject);
procedure BrowsPanelResize(Sender: TObject);
procedure ClassesMemoChange(Sender: TObject);
procedure ClassesMemoEnter(Sender: TObject);
procedure ClassesMemoKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ClearButtonClick(Sender: TObject);
procedure ExitButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
------------------------------------------------------------------- TBrowsForm -------------------------------------------------------------------
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FuncComboBoxClick(Sender: TObject);
procedure ResetButtonClick(Sender: TObject);
procedure RunButtonClick(Sender: TObject);
procedure SourceMemoEnter(Sender: TObject);
procedure SourceMemoExit(Sender: TObject);
procedure SourceMemoKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Splitter1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure SplitterMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
------------------------------------------------------------------- Splitter functions -------------------------------------------------------------------
procedure SplitterMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure SplitterMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure WatchTabSetClick(Sender: TObject);
procedure fill_combo;
procedure Set_values;
procedure Show_line1;
------------------------------------------------------------------- Show line numbers -------------------------------------------------------------------
procedure Show_line2;
AboutButton : TButton;
A_xyTrackBar : TTrackBar;
A_xzTrackBar : TTrackBar;
A_yzTrackBar : TTrackBar;
BrowsPanel : TPanel;
CanvasPanel : TPanel;
ClassesMemo : TMemo;
ClearButton : TSpeedButton;
CodeListBox : TListBox;
ConstListBox : TListBox;
DataMemo : TDBMemo;
DataSource1 : TDataSource;
DBGrid1 : TDBGrid;
DBNavigator1 : TDBNavigator;
ErrorLabel : TLabel;
ExitButton : TButton;
FuncComboBox : TComboBox;
FuncListBox : TListBox;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
LineLabel : TLabel;
MyCanvas : TMyCanvas;
OptionCheckBox : TCheckBox;
PageControl1 : TPageControl;
Panel1 : TPanel;
Panel2 : TPanel;
Panel3 : TPanel;
Panel4 : TPanel;
Panel5 : TPanel;
Panel6 : TPanel;
Panel7 : TPanel;
Panel8 : TPanel;
ResetButton : TSpeedButton;
ResListBox : TListBox;
RunButton : TButton;
SBasic1 : TSBasic;
SBasic2 : TSBasic;
SourceMemo : TDBMemo;
Splitter : TPanel;
Splitter1 : TPanel;
Table1 : TTable;
Table1Data : TBlobField;
Table1Key : TAutoIncField;
Table1Source : TBlobField;
Table1Title : TStringField;
TabSheet1 : TTabSheet;
TabSheet2 : TTabSheet;
TabSheet3 : TTabSheet;
TabSheet4 : TTabSheet;
TabSheet5 : TTabSheet;
VarListBox : TListBox;
WatchCodePanel : TPanel;
WatchNotebook : TNotebook;
WatchTabSet : TTabSet;
X_TrackBar : TTrackBar;
Y_TrackBar : TTrackBar;
Z_TrackBar : TTrackBar;
DataList : TList;
IsDirty : boolean;
Point_xi : integer;
Point_xy : integer;
Point_xz : integer;
Point_yi : integer;
Point_yz : integer;
Point_zi : integer;
SplitControl : TSplitControl;
Want_save : boolean;