umodifytheme.pas

来自「用DELPHI 和MAPX的基础练习.是学习的好资料」· PAS 代码 · 共 90 行

unit UModifyTheme;

interface

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

type
  TFModifyTheme = class(TForm)
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    procedure FormShow(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FModifyTheme: TFModifyTheme;
  list:TStringList;
implementation

uses UMap;

{$R *.dfm}

procedure TFModifyTheme.FormShow(Sender: TObject);
var
i,j:integer;
begin
  List:=TStringList.Create;
  for i:=1 to FMap.Map1.DataSets.Count do
      begin
        for j:=1 to  FMap.Map1.DataSets[i].Themes.Count do
            begin
              ComboBox1.Items.Add(FMap.Map1.DataSets[i].Themes[j].Name);
              list.Add(inttostr(i));
            end;
      end;
ComboBox1.ItemIndex:=0;
end;

procedure TFModifyTheme.Button3Click(Sender: TObject);
begin
List.Free;
Close;
end;

procedure TFModifyTheme.Button2Click(Sender: TObject);
var
i,j:integer;
begin
if  ComboBox1.ItemIndex<>-1 then
begin
  i:= strtoint(List[ComBoBox1.ItemIndex]);
  Fmap.Map1.DataSets[i].Themes.Remove(ComBoBox1.Text);
  ComBoBox1.Items.Clear;
  List.Clear;
    for i:=1 to FMap.Map1.DataSets.Count do
      begin
        for j:=1 to  FMap.Map1.DataSets[i].Themes.Count do
            begin
              ComboBox1.Items.Add(FMap.Map1.DataSets[i].Themes[j].Name);
              List.Add(inttostr(i));
            end;
      end;
 ComboBox1.ItemIndex:=0;
 end
else
 MessageDLg('专题显示已经全部删除',mtInformation,[MbOK],0);
end;

procedure TFModifyTheme.Button1Click(Sender: TObject);
var
i:integer;
begin
i:= strtoint(List[ComBoBox1.ItemIndex]);
Fmap.Map1.DataSets[i].Themes[ComBoBox1.Text].ThemeDlg(EmptyParam,EmptyParam);
end;

end.