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;