Class TFrmGrid (unit VGridEditor)

Inherits from

TForm

Constructors



Functions

procedure B7Click(Sender: TObject);


procedure BitBtn1Click(Sender: TObject);


procedure BitBtn2Click(Sender: TObject);


procedure BitBtn4Click(Sender: TObject);

PGrid.

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;



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;