unitsubstationdata.pas

此代码是关于mapgis的在

unit UnitSubStationData;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, Grids, yhbGrid, ExtCtrls, StdCtrls, MapXLib_TLB;

type
  TFrame_SubStationData = class(TFrame)
    Panel6: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Splitter4: TSplitter;
    GroupBox1: TGroupBox;
    Grid_Data: TYHBStringGrid;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1Change(Sender: TObject);
  private
    FLayer: CMapXLayer;
    FMapX: TMapXObject;
    { Private declarations }
  public
    { Public declarations }
    procedure InitGrid;
    property MapX:TMapXObject read FMapX write FMapX;
    property Layer:CMapXLayer read FLayer write FLayer;
  end;

implementation

uses
  WinControl, StringOperations, Math, UnitGISShell, UnitQCGISProject;
  
{$R *.dfm}

procedure TFrame_SubStationData.Edit1KeyPress(Sender: TObject;
  var Key: Char);
begin
  IntegerEditKeyPress(TEdit(Sender), Key);
end;

procedure TFrame_SubStationData.InitGrid;
begin
  if FLayer<>nil then
    Grid_Data.RowCount:=Max(2, Layer.Selection.Count+1);
end;

procedure TFrame_SubStationData.Edit1Change(Sender: TObject);
begin
  Edit1.Text:=Trim(Edit1.Text);
  if (Edit1.Text<>'')and(IsNumber(Edit1.Text)) then
    TqcGISProject(MyGIS).GoToSubStation(StrToInt(Edit1.Text), 0.002);
end;

end.