Class TBrowsForm (unit SBrowser)

Inherits from

TForm

Constructors



Functions

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;


Properties

Events

Variables

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;



Constructors


Functions


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;


Properties


Events


Variables


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;