Class TFSGISDEMO (unit Tstp1)
Inherits from
TForm
Constructors
Functions
procedure About1Click(Sender: TObject);
procedure ArrlistClick(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox4Click(Sender: TObject);
procedure ColorGrid2Click(Sender: TObject);
procedure Contents1Click(Sender: TObject);
procedure Copy1Click(Sender: TObject);
procedure Edit18Exit(Sender: TObject);
procedure Edit1Exit(Sender: TObject);
procedure Edit3Change(Sender: TObject);
procedure Edit3Exit(Sender: TObject);
procedure Exit1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FromClipBoardMetaFile1Click(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure ListBox2Click(Sender: TObject);
procedure ListBox3Click(Sender: TObject);
procedure ListBox4Click(Sender: TObject);
procedure ListBox5Click(Sender: TObject);
procedure Load1Click(Sender: TObject);
procedure LoadArrangement1Click(Sender: TObject);
procedure MetaFile1Click(Sender: TObject);
procedure PaintBox1Paint(Sender: TObject);
procedure PolListClick(Sender: TObject);
procedure Print1Click(Sender: TObject);
procedure RadioGroup1Click(Sender: TObject);
procedure RadioGroup2Click(Sender: TObject);
procedure RadioGroup3Click(Sender: TObject);
procedure Save1Click(Sender: TObject);
procedure SaveArrangement1Click(Sender: TObject);
procedure SaveMetaFile1Click(Sender: TObject);
procedure Shape1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure ShowPolNames1Click(Sender: TObject);
procedure SpinEdit1Change(Sender: TObject);
procedure SpinEdit3Change(Sender: TObject);
procedure SpinEdit4Change(Sender: TObject);
procedure SpinEdit5Change(Sender: TObject);
procedure StressTest1Click(Sender: TObject);
procedure Test1Click(Sender: TObject);
procedure Text1Click(Sender: TObject);
procedure ToText1Click(Sender: TObject);
procedure BuscaPunto(Sender: TObject; Shift: TShiftState; X, Y: Integer);
Procedure DumpOptions;
Procedure Selecciona(Sender: TObject);
Properties
Events
Variables
About1 : TMenuItem;
Arrlist : TListBox;
Button1 : TButton;
Button10 : TButton;
Button11 : TButton;
Button12 : TButton;
Button14 : TButton;
Button2 : TButton;
Button3 : TButton;
Button4 : TButton;
Button5 : TButton;
Button6 : TButton;
Button7 : TButton;
Button8 : TButton;
Button9 : TButton;
CheckBox1 : TCheckBox;
CheckBox2 : TCheckBox;
CheckBox3 : TCheckBox;
CheckBox4 : TCheckBox;
ColorGrid1 : TColorGrid;
ColorGrid2 : TColorGrid;
Contents1 : TMenuItem;
Copy1 : TMenuItem;
Debug1 : TMenuItem;
Edit1 : TEdit;
Edit10 : TEdit;
Edit11 : TEdit;
Edit12 : TEdit;
Edit13 : TEdit;
Edit14 : TEdit;
Edit15 : TEdit;
Edit16 : TEdit;
Edit17 : TMenuItem;
Edit18 : TEdit;
Edit2 : TEdit;
Edit3 : TEdit;
Edit5 : TEdit;
Edit6 : TEdit;
Edit7 : TEdit;
Edit8 : TEdit;
Edit9 : TEdit;
Exit1 : TMenuItem;
ExporttoText1 : TMenuItem;
File1 : TMenuItem;
FontDialog1 : TFontDialog;
FromClipBoardMetaFile1 : TMenuItem;
Gis : TSGis;
GroupBox1 : TGroupBox;
GroupBox2 : TGroupBox;
GroupBox3 : TGroupBox;
GroupBox4 : TGroupBox;
Help1 : TMenuItem;
ImportFromText1 : TMenuItem;
Label1 : TLabel;
Label10 : TLabel;
Label11 : TLabel;
Label12 : TLabel;
Label13 : TLabel;
Label14 : TLabel;
Label16 : TLabel;
Label17 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
ListBox1 : TListBox;
ListBox2 : TListBox;
ListBox3 : TListBox;
ListBox4 : TListBox;
ListBox5 : TListBox;
Load1 : TMenuItem;
LoadArrangement1 : TMenuItem;
MainMenu1 : TMainMenu;
Memo1 : TMemo;
MetaFile1 : TMenuItem;
N1 : TMenuItem;
N2 : TMenuItem;
N3 : TMenuItem;
N4 : TMenuItem;
N5 : TMenuItem;
OpenDialog1 : TOpenDialog;
OpenDialog2 : TOpenDialog;
OpenDialog3 : TOpenDialog;
OpenDialog4 : TOpenDialog;
OpenDialog5 : TOpenDialog;
PaintBox1 : TPaintBox;
PaintBox2 : TPaintBox;
Panel1 : TPanel;
Panel2 : TPanel;
Panel3 : TPanel;
Panel5 : TPanel;
PolList : TListBox;
Print1 : TMenuItem;
PrinterSetupDialog1 : TPrinterSetupDialog;
RadioGroup1 : TRadioGroup;
RadioGroup2 : TRadioGroup;
RadioGroup3 : TRadioGroup;
RadioGroup4 : TRadioGroup;
Save1 : TMenuItem;
SaveArrangement1 : TMenuItem;
SaveDialog1 : TSaveDialog;
SaveDialog2 : TSaveDialog;
SaveDialog3 : TSaveDialog;
SaveDialog4 : TSaveDialog;
SaveMetaFile1 : TMenuItem;
Shape1 : TShape;
ShowPolNames1 : TMenuItem;
SpinEdit1 : TSpinEdit;
SpinEdit2 : TSpinEdit;
SpinEdit3 : TSpinEdit;
SpinEdit4 : TSpinEdit;
SpinEdit5 : TSpinEdit;
SpinEdit6 : TSpinEdit;
StressTest1 : TMenuItem;
StringGrid1 : TStringGrid;
TabbedNotebook1 : TTabbedNotebook;
Test1 : TMenuItem;
Text1 : TMenuItem;
ToText1 : TMenuItem;
apol : integer;
thepol : integer;
Constructors
Functions
procedure About1Click(Sender: TObject);
procedure ArrlistClick(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox4Click(Sender: TObject);
procedure ColorGrid2Click(Sender: TObject);
procedure Contents1Click(Sender: TObject);
procedure Copy1Click(Sender: TObject);
procedure Edit18Exit(Sender: TObject);
procedure Edit1Exit(Sender: TObject);
procedure Edit3Change(Sender: TObject);
procedure Edit3Exit(Sender: TObject);
procedure Exit1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FromClipBoardMetaFile1Click(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure ListBox2Click(Sender: TObject);
procedure ListBox3Click(Sender: TObject);
procedure ListBox4Click(Sender: TObject);
procedure ListBox5Click(Sender: TObject);
procedure Load1Click(Sender: TObject);
procedure LoadArrangement1Click(Sender: TObject);
procedure MetaFile1Click(Sender: TObject);
procedure PaintBox1Paint(Sender: TObject);
procedure PolListClick(Sender: TObject);
procedure Print1Click(Sender: TObject);
procedure RadioGroup1Click(Sender: TObject);
procedure RadioGroup2Click(Sender: TObject);
procedure RadioGroup3Click(Sender: TObject);
procedure Save1Click(Sender: TObject);
procedure SaveArrangement1Click(Sender: TObject);
procedure SaveMetaFile1Click(Sender: TObject);
procedure Shape1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure ShowPolNames1Click(Sender: TObject);
procedure SpinEdit1Change(Sender: TObject);
procedure SpinEdit3Change(Sender: TObject);
procedure SpinEdit4Change(Sender: TObject);
procedure SpinEdit5Change(Sender: TObject);
procedure StressTest1Click(Sender: TObject);
procedure Test1Click(Sender: TObject);
procedure Text1Click(Sender: TObject);
procedure ToText1Click(Sender: TObject);
procedure BuscaPunto(Sender: TObject; Shift: TShiftState; X, Y: Integer);
Procedure DumpOptions;
Procedure Selecciona(Sender: TObject);
Properties
Events
Variables
About1 : TMenuItem;
Arrlist : TListBox;
Button1 : TButton;
Button10 : TButton;
Button11 : TButton;
Button12 : TButton;
Button14 : TButton;
Button2 : TButton;
Button3 : TButton;
Button4 : TButton;
Button5 : TButton;
Button6 : TButton;
Button7 : TButton;
Button8 : TButton;
Button9 : TButton;
CheckBox1 : TCheckBox;
CheckBox2 : TCheckBox;
CheckBox3 : TCheckBox;
CheckBox4 : TCheckBox;
ColorGrid1 : TColorGrid;
ColorGrid2 : TColorGrid;
Contents1 : TMenuItem;
Copy1 : TMenuItem;
Debug1 : TMenuItem;
Edit1 : TEdit;
Edit10 : TEdit;
Edit11 : TEdit;
Edit12 : TEdit;
Edit13 : TEdit;
Edit14 : TEdit;
Edit15 : TEdit;
Edit16 : TEdit;
Edit17 : TMenuItem;
Edit18 : TEdit;
Edit2 : TEdit;
Edit3 : TEdit;
Edit5 : TEdit;
Edit6 : TEdit;
Edit7 : TEdit;
Edit8 : TEdit;
Edit9 : TEdit;
Exit1 : TMenuItem;
ExporttoText1 : TMenuItem;
File1 : TMenuItem;
FontDialog1 : TFontDialog;
FromClipBoardMetaFile1 : TMenuItem;
Gis : TSGis;
GroupBox1 : TGroupBox;
GroupBox2 : TGroupBox;
GroupBox3 : TGroupBox;
GroupBox4 : TGroupBox;
Help1 : TMenuItem;
ImportFromText1 : TMenuItem;
Label1 : TLabel;
Label10 : TLabel;
Label11 : TLabel;
Label12 : TLabel;
Label13 : TLabel;
Label14 : TLabel;
Label16 : TLabel;
Label17 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
ListBox1 : TListBox;
ListBox2 : TListBox;
ListBox3 : TListBox;
ListBox4 : TListBox;
ListBox5 : TListBox;
Load1 : TMenuItem;
LoadArrangement1 : TMenuItem;
MainMenu1 : TMainMenu;
Memo1 : TMemo;
MetaFile1 : TMenuItem;
N1 : TMenuItem;
N2 : TMenuItem;
N3 : TMenuItem;
N4 : TMenuItem;
N5 : TMenuItem;
OpenDialog1 : TOpenDialog;
OpenDialog2 : TOpenDialog;
OpenDialog3 : TOpenDialog;
OpenDialog4 : TOpenDialog;
OpenDialog5 : TOpenDialog;
PaintBox1 : TPaintBox;
PaintBox2 : TPaintBox;
Panel1 : TPanel;
Panel2 : TPanel;
Panel3 : TPanel;
Panel5 : TPanel;
PolList : TListBox;
Print1 : TMenuItem;
PrinterSetupDialog1 : TPrinterSetupDialog;
RadioGroup1 : TRadioGroup;
RadioGroup2 : TRadioGroup;
RadioGroup3 : TRadioGroup;
RadioGroup4 : TRadioGroup;
Save1 : TMenuItem;
SaveArrangement1 : TMenuItem;
SaveDialog1 : TSaveDialog;
SaveDialog2 : TSaveDialog;
SaveDialog3 : TSaveDialog;
SaveDialog4 : TSaveDialog;
SaveMetaFile1 : TMenuItem;
Shape1 : TShape;
ShowPolNames1 : TMenuItem;
SpinEdit1 : TSpinEdit;
SpinEdit2 : TSpinEdit;
SpinEdit3 : TSpinEdit;
SpinEdit4 : TSpinEdit;
SpinEdit5 : TSpinEdit;
SpinEdit6 : TSpinEdit;
StressTest1 : TMenuItem;
StringGrid1 : TStringGrid;
TabbedNotebook1 : TTabbedNotebook;
Test1 : TMenuItem;
Text1 : TMenuItem;
ToText1 : TMenuItem;
apol : integer;
thepol : integer;