acciinfofrmex.pas

一个可以把源代码以语法高亮的形式转换成HTML格式或RTF格式。

unit AcciInfoFrmEx;

{*******************************************
 * brief: 设置词法配置文件信息，子类
 * autor: linzhenqun
 * date: 2005-11-01
 * email: [e-mail]
 * blog: http://blog.csdn.net/linzhengqun
 * 功能简介：
 *     录入词法配置文件名称与路径
 *     比父类 多带一个选择保存路径功能
********************************************}

interface

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

type
  TFrmAccInfoEx = class(TFrmAcciInfo)
    spSaveFile: TSpeedButton;
    procedure spSaveFileClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure getLangRes;override;
  end;

var
  FrmAccInfoEx: TFrmAccInfoEx;

implementation
uses
  CommonDM, CommonUtils;
{$R *.dfm}

procedure TFrmAccInfoEx.getLangRes;
begin
  inherited;
  spSaveFile.Hint := pubGet(513);// Save accidence to...
end;

procedure TFrmAccInfoEx.spSaveFileClick(Sender: TObject);
var
  LFilePath: string;
begin
  if DMCommon.ExecSaveDialog(pubGet('XML_File') + '|*.xml|', LFilePath,
    ExtractFilePath(ParamStr(0)) + 'Accidence file') then
    FilePath := LFilePath;
end;

end.