synjumpdlg.pas

用delphi写的delphi源代码 用delphi写的delphi源代码 用delphi写的delphi源代码 用delphi写的delphi源代码

{-------------------------------------------------------------------------------

   单元: SynJumpDlg.pas

   作者: 姚乔锋       

   日期: 2004.11.27

   说明: 跳转对话框
 
   版本: 1.00 00                   
                                                                              
-------------------------------------------------------------------------------}

unit SynJumpDlg;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, SynEditKeyCmds, SynEditTypes, StdCtrls, SynEdit;

type
  TSynJumpDlg = class(TForm)
    Button1: TButton;
    Button2: TButton;
    bsLine: TEdit;
    Label1: TLabel;
    ListBox1: TListBox;
    Label2: TLabel;
    Hint: TLabel;
    PopupMenu1: TPopupMenu;
    procedure bsLineKeyPress(Sender: TObject; var Key: Char);
    procedure ListBox1Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
    procedure UpdateHint;
  public
    procedure Execute(SynEdit : TCustomSynEdit);
  end;

implementation

{$R *.dfm}

procedure TSynJumpDlg.bsLineKeyPress(Sender: TObject; var Key: Char);
begin
  If not (key in [#8, #127, '0'..'9']) then
    Key := #0;
end;

procedure TSynJumpDlg.ListBox1Click(Sender: TObject);
begin
  UpdateHint;
  bsLine.SetFocus;
end;

procedure TSynJumpDlg.UpdateHint;
begin
  If Listbox1.ItemIndex < 0 then
    Listbox1.ItemIndex := 0;
  case Listbox1.ItemIndex of
    0 : Hint.Caption := '要跳转到的位置的行号';
    1 : Hint.Caption := '要跳转的位置的列号';
    2 : Hint.Caption := '要跳转到的书签号(0-9)';
    3 : Hint.Caption := '要跳转到的位置的偏移量';
    4 : Hint.Caption := '由当前光标向下移动指定量';
    5 : Hint.Caption := '由当前光标向上移动指定量';
  end;
end;

procedure TSynJumpDlg.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if not ListBox1.Focused then
  begin
    case Key of
      VK_UP : ListBox1.ItemIndex := ListBox1.ItemIndex -1;
      VK_DOWN : ListBox1.ItemIndex := ListBox1.ItemIndex +1;
    end;
    ListBox1Click(ListBox1);
  end;
end;

procedure TSynJumpDlg.Execute(SynEdit: TCustomSynEdit);
begin
  IF SynEdit <> nil then
  begin
    bsLine.Clear;
    if ShowModal = mrok then
    begin
      If Listbox1.ItemIndex < 0 then
        Listbox1.ItemIndex := 0;
      case Listbox1.ItemIndex of
        0 : SynEdit.GotoLineAndCenter(strtoint(bsLine.Text));
        1 : SynEdit.CaretX := strtoint(bsLine.Text);
        2 : SynEdit.GotoBookMark(strtoint(bsLine.Text));
        3 : SynEdit.SelStart := strtoint(bsLine.Text);
        4 : SynEdit.SelStart := SynEdit.SelStart + strtoint(bsLine.Text);
        5 : SynEdit.SelStart := SynEdit.SelStart - strtoint(bsLine.Text);
      end;
    end;
  end;
end;

end.