titlefrm.pas

Delphi + MapX程序框架(地图)源码程序

unit TitleFrm;

interface

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

type
  TfrmTitle = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    edtTitle: TEdit;
    ckbTitle: TCheckBox;
    Bevel1: TBevel;
    SpeedButton1: TSpeedButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ckbBorder: TCheckBox;
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
    FMap: TMap;
  public
    { Public declarations }
    procedure SetMap(AMap: TMap);
    procedure SetTitle(ATitle: string);
    procedure SetTitleVisible(AValue: Boolean);
    procedure SetTitleBorder(AValue: Boolean);
    function GetTitle: string;
    function GetTitleVisible: Boolean;
    function GetTitleBorder: Boolean;
  end;

implementation

{$R *.dfm}

{ TfrmTitle }

function TfrmTitle.GetTitle: string;
begin
  Result:= edtTitle.Text;
end;

function TfrmTitle.GetTitleVisible: Boolean;
begin
  Result:= ckbTitle.Checked;
end;

procedure TfrmTitle.SetTitleBorder(AValue: Boolean);
begin
  ckbBorder.Checked:= AValue;
end;

procedure TfrmTitle.SetMap(AMap: TMap);
begin
  FMap:= AMap;
end;

procedure TfrmTitle.SetTitle(ATitle: string);
begin
  edtTitle.Text:= ATitle;
end;

procedure TfrmTitle.setTitleVisible(AValue: Boolean);
begin
  ckbTitle.Checked:= AValue;
end;

procedure TfrmTitle.SpeedButton1Click(Sender: TObject);
begin
  FMap.Title.TextStyle.PickText;
end;

function TfrmTitle.GetTitleBorder: Boolean;
begin
  Result:= ckbBorder.Checked;
end;

end.