easygotodlg.pas.svn-base

来自「支持自定义语法高亮显示的编辑器控件」· SVN-BASE 代码 · 共 101 行

{*****************************************************}
{                                                     }
{ GotoLine dialog                                     }
{                                                     }
{  Copyright (c) 1992-2002 Altium Limited             }
{  All rights reserved.                               }
{                                                     }
{  http://www.dream-com.com                           }
{  [e-mail]                              }
{                                                     }
{*****************************************************}

unit EasyGoToDlg;

interface
{$I Easy.inc}
uses
  {$IFNDEF EASY_CLX}
  Windows, Messages, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls,
  {$ELSE}
  QForms, QControls, QStdCtrls, QExtCtrls, 
  {$ENDIF}
  SysUtils, Classes,
  EasyControls, EasySettings, EasyUtils, EasyBox;

type
  TFrmGoToDlg = class(TForm)
    btOk: TButton;
    btCancel: TButton;
    btHelp: TButton;
    lbEnterNewLineNamber: TLabel;
    cbNewLineNumber: TEasyHistoryEditor;
    procedure FormCreate(Sender: TObject);
    procedure btOkClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    FDialogSettings : TEasyDialogSettings;
    { Private declarations }
  public
    procedure LoadSettings; virtual;
    procedure SaveSettings; virtual;
    { Public declarations }
  end;

var
  FrmGoToDlg: TFrmGoToDlg;

implementation

{$IFNDEF EASY_CLX}
{$R *.DFM}
{$ELSE}
{$R *.xfm}
{$ENDIF}

{--------------------------------------------}

procedure TFrmGoToDlg.LoadSettings;
begin
  cbNewLineNumber.Text := IntToStr(SearchSettings.GotoLineNumber);
end;

{--------------------------------------------}

procedure TFrmGoToDlg.SaveSettings;
begin
  SearchSettings.GoToLineNumber := StrToInt(cbNewLineNumber.Text);
end;

{--------------------------------------------}

procedure TFrmGoToDlg.FormCreate(Sender: TObject);
begin
  cbNewLineNumber.FileName := AddSlash(GetTempDir) + 'dialogs.ini';
  cbNewLineNumber.LoadHistory;
  LoadSettings;
  FDialogSettings := TEasyDialogSettings.Create(self);
  FDialogSettings.Key := 'GotoLineDlg';
  FDialogSettings.LoadSettings;
end;

{--------------------------------------------}

procedure TFrmGoToDlg.btOkClick(Sender: TObject);
begin
  SaveSettings;
end;

{--------------------------------------------}

procedure TFrmGoToDlg.FormDestroy(Sender: TObject);
begin
  {$IFNDEF EASY_CLX}
  FDialogSettings.SaveSettings;
  {$ENDIF}
end;

initialization
  GlobalGoToLineDialogClass := TFrmGoToDlg;
end.