| Class TFrmGrid (unit VGridEditor) |
TForm
| Constructors |
| Functions |
procedure B7Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure BMODClick(Sender: TObject);
procedure CaliClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure PGridDragDrop(Sender, Source: TObject; X, Y: Integer);
procedure PGridDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure PGridMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure PGridMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure PGridMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure PGridPaint(Sender: TObject);
procedure PListClick(Sender: TObject);
procedure VListClick(Sender: TObject);
Procedure SetElastic ( AElastic : TElastic );| Properties |
property EditElastic : TElastic| Events |
| Variables |
B7 : TBitBtn;
B8 : TBitBtn;
BitBtn1 : TBitBtn;
BitBtn2 : TBitBtn;
BitBtn4 : TBitBtn;
BitBtn5 : TBitBtn;
BitBtn6 : TBitBtn;
BMOD : TBitBtn;
Cali : TComboBox;
Edit1 : TEdit;
Edit10 : TEdit;
Edit2 : TEdit;
Edit3 : TEdit;
Edit4 : TEdit;
Edit5 : TEdit;
Edit6 : TEdit;
Edit7 : TEdit;
Edit8 : TEdit;
Edit9 : TEdit;
Label1 : TLabel;
Label10 : TLabel;
Label11 : TLabel;
Label12 : TLabel;
Label13 : TLabel;
Label14 : TLabel;
Label15 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
Panel2 : TPanel;
PGrid : TPaintBox;
PList : TListBox;
PVS : TShape;
SAUTO : TSpeedButton;
ScrollBox1 : TScrollBox;
SMAN : TSpeedButton;
VList : TTreeView;
ActualID : LongInt;
AVGridSel : PVirtualGrid;
CLX : Integer;
CLY : Integer;
DrawRect : TRect;
FElastic : TElastic;
FirstTime : Boolean;
FX : Real;
FY : Real;
IsDragMode : Boolean;
IsMouseDown : Boolean;
LastRect : TRect;
ResLast : Boolean;| Constructors |
| Functions |
procedure B7Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);PGrid.Height:=FElastic.Height; PGrid.Width:=FElastic.Width;
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure BMODClick(Sender: TObject);
procedure CaliClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure PGridDragDrop(Sender, Source: TObject; X, Y: Integer);
procedure PGridDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure PGridMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure PGridMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure PGridMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);Set Grid
procedure PGridPaint(Sender: TObject);
procedure PListClick(Sender: TObject);Add Grid
procedure VListClick(Sender: TObject);
Procedure SetElastic ( AElastic : TElastic );Private declarations
| Properties |
property EditElastic : TElastic| Events |
| Variables |
B7 : TBitBtn;
B8 : TBitBtn;
BitBtn1 : TBitBtn;
BitBtn2 : TBitBtn;
BitBtn4 : TBitBtn;
BitBtn5 : TBitBtn;
BitBtn6 : TBitBtn;
BMOD : TBitBtn;
Cali : TComboBox;
Edit1 : TEdit;
Edit10 : TEdit;
Edit2 : TEdit;
Edit3 : TEdit;
Edit4 : TEdit;
Edit5 : TEdit;
Edit6 : TEdit;
Edit7 : TEdit;
Edit8 : TEdit;
Edit9 : TEdit;
Label1 : TLabel;
Label10 : TLabel;
Label11 : TLabel;
Label12 : TLabel;
Label13 : TLabel;
Label14 : TLabel;
Label15 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
Panel2 : TPanel;
PGrid : TPaintBox;
PList : TListBox;
PVS : TShape;
SAUTO : TSpeedButton;
ScrollBox1 : TScrollBox;
SMAN : TSpeedButton;
VList : TTreeView;
ActualID : LongInt;
AVGridSel : PVirtualGrid;Public declarations
CLX : Integer;
CLY : Integer;
DrawRect : TRect;
FElastic : TElastic;
FirstTime : Boolean;
FX : Real;
FY : Real;
IsDragMode : Boolean;
IsMouseDown : Boolean;
LastRect : TRect;
ResLast : Boolean;