| Class Tfrmselcntry (unit selcntry) |
TForm
| Constructors |
| Functions |
procedure dsRegionsDataChange(Sender: TObject; Field: TField);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure HotImage1Click(Sender: TObject);
procedure HotImage1Paint(Sender: TObject);
procedure SetSelectedSpot(ASpot:TSpot);
procedure DrawSpot;
procedure InvalidateRegion;| Properties |
| Events |
| Variables |
Button1 : TButton;
Countries : TTable;
CountriesArea : TFloatField;
CountriesCapital : TStringField;
CountriesContinent : TStringField;
CountriesName : TStringField;
CountriesPopulation : TFloatField;
DBGridRegions : TDBGrid;
DBText1 : TDBText;
DBText2 : TDBText;
DBText3 : TDBText;
DBText4 : TDBText;
dsRegions : TDataSource;
GroupBox1 : TGroupBox;
HotImage1 : THotImage;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
FBrush : TBitmap;
FRegion : HRgn;
FSelectedSpot : TSpot;| Constructors |
| Functions |
procedure dsRegionsDataChange(Sender: TObject; Field: TField);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure HotImage1Click(Sender: TObject);
procedure HotImage1Paint(Sender: TObject);Pen.Color:=clBlack; Pen.Width:=6;
procedure SetSelectedSpot(ASpot:TSpot);
procedure DrawSpot;
procedure InvalidateRegion;| Properties |
| Events |
| Variables |
Button1 : TButton;
Countries : TTable;
CountriesArea : TFloatField;
CountriesCapital : TStringField;
CountriesContinent : TStringField;
CountriesName : TStringField;
CountriesPopulation : TFloatField;
DBGridRegions : TDBGrid;
DBText1 : TDBText;
DBText2 : TDBText;
DBText3 : TDBText;
DBText4 : TDBText;
dsRegions : TDataSource;
GroupBox1 : TGroupBox;
HotImage1 : THotImage;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
FBrush : TBitmap;
FRegion : HRgn;
FSelectedSpot : TSpot;Private declarations