Class Tfrmselcntry (unit selcntry)

Inherits from

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);

Pen.

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


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