thmgradsymboldlg.pas

delphi 和mapx联合开发的例程 实现mapx的相应功能

unit ThmGradSymbolDlg;

interface

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

type
  TThmGradSymbolFrm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button2: TButton;
    Button3: TButton;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    ComboBox1: TComboBox;
    ColorDialog1: TColorDialog;
    BitBtn1: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure CheckBox1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    ColorArr: Array of TColor;
    procedure FormShow(MaxV: double; ShowNega: Boolean; ColorP,ColorN: TColor);
  end;

var
  ThmGradSymbolFrm: TThmGradSymbolFrm;

implementation

{$R *.dfm}

procedure TThmGradSymbolFrm.FormShow(MaxV: double; ShowNega: Boolean; ColorP,ColorN: TColor);
begin
  ThmGradSymbolFrm:= TThmGradSymbolFrm.Create(nil);
  with ThmGradSymbolFrm do
  begin
    ComboBox1.Clear;
    Edit1.Text:= floattostr(MaxV);
    SetLength(ColorArr,2);
    Case ShowNega of
      true:  begin
               ColorArr[0]:= ColorP;
               ColorArr[1]:= ColorN;
               ComboBox1.Items.Add('正值符号颜色');
               ComboBox1.Items.Add('负值符号颜色');
             end;
      false: begin
               ColorArr[0]:= ColorP;
               ComboBox1.Items.Add('正值符号颜色');
             end;
    end;
    CheckBox1.Checked:= ShowNega;
    ShowModal;
  end;
end;


procedure TThmGradSymbolFrm.BitBtn1Click(Sender: TObject);
begin
  if ComboBox1.Text <> '' then
  begin
    if ColorDialog1.Execute then
      ColorArr[ComboBox1.ItemIndex]:= ColorDialog1.Color;
      BitBtn1.Font.Color:= ColorDialog1.Color;
  end;
end;


procedure TThmGradSymbolFrm.CheckBox1Click(Sender: TObject);
begin
  Combobox1.Clear;
  if Checkbox1.Checked then
  begin
    ComboBox1.Items.Add('正值符号颜色');
    ComboBox1.Items.Add('负值符号颜色');
  end
  else ComboBox1.Items.Add('正值符号颜色');
end;


procedure TThmGradSymbolFrm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=Cafree;
  self:= nil;
end;



end.