themeedit.pas

mapx_and_ODBC

unit themeedit;

interface

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

type
  Tthemeinfo = class(TForm)
    themetype: TComboBox;
    Label1: TLabel;
    fieldslist: TComboBox;
    themename: TEdit;
    Label2: TLabel;
    ok: TButton;
    getinfo: TButton;
    procedure FormCreate(Sender: TObject);
    procedure themetypeChange(Sender: TObject);
    procedure fieldslistChange(Sender: TObject);
    procedure okClick(Sender: TObject);
    procedure getinfoClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    //
  end;

var
  themeinfo: Tthemeinfo;
  flds : cmapxfields;
  strtype,strfield,strname : string;
  nstrtype : integer;

implementation

uses usaodbc;

{$R *.dfm}

procedure Tthemeinfo.FormCreate(Sender: TObject);

begin
  themetype.Items.Add('miThemeRanged');
  themetype.Items.Add('miThemeBarChart');
  themetype.Items.Add('miThemePieChart');
  themetype.Items.Add('miThemeGradSymbol');
  themetype.Items.Add('miThemeDotDensity');
  themetype.Items.Add('miThemeIndividualValue');
  themetype.Items.Add('miThemeAuto');
  themetype.Items.Add('miLabelRangedTheme');
  themetype.Items.Add('miLabelIndividualValuesTheme');
  themetype.Items.Add('miThemeNone');

end;

procedure Tthemeinfo.themetypeChange(Sender: TObject);
begin
  nstrtype := themetype.ItemIndex;
end;

procedure Tthemeinfo.fieldslistChange(Sender: TObject);
begin
  strfield := fieldslist.Text;
end;

procedure Tthemeinfo.okClick(Sender: TObject);
begin
  form1.dst.Themes.Add(nstrtype,strfield,themename.Text,emptyparam);
  close;
end;

procedure Tthemeinfo.getinfoClick(Sender: TObject);
var
  I : integer;
begin
  flds := form1.dst.fields;
  fieldslist.Clear;
  for i := 1 to flds.Count do
  begin
    if flds.Item[i].Type_ = miTypeNumeric then
    begin
      fieldslist.items.Add(flds.item[i].Name);
    end;
  end;

end;

end.