enc_preview.pas

Pascal/Delphi源代码混淆工具

unit Enc_Preview;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, Buttons, Menus,
  SynEditHighlighter, SynHighlighterPas, SynEdit, SynMemo;

type
  TForm2 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    SynPasSyn1: TSynPasSyn;
    SynMemo1: TSynMemo;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Panel2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Panel3MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Panel3MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Panel3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    FilePath: String;
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

var
   TimerHandle: Cardinal;

procedure OnTimer(Wnd: HWnd; Msg, IdTimer: Cardinal; dwTime: DWord);
begin
     Form2.Panel2.Caption := '预览 - 行： ' +
                             IntToStr(Form2.SynMemo1.CaretY) + '，列： ' +
                             IntToStr(Form2.SynMemo1.CaretX);
end;

procedure TForm2.FormShow(Sender: TObject);
begin
     SynMemo1.Lines.LoadFromFile(FilePath);
     SynMemo1.CaretX := 0;
     SynMemo1.CaretY := 0;
     TimerHandle := SetTimer(0, 0, 10, @OnTimer);
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     KillTimer(TimerHandle, 0); 
     SynMemo1.Clear;
end;

procedure TForm2.Panel2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
     ReleaseCapture;
     Perform(WM_SYSCOMMAND, $F012, 0);
end;

procedure TForm2.Panel3MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
     Panel3.BevelInner := bvLowered;
end;

procedure TForm2.Panel3MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
     Panel3.BevelInner := bvRaised;
end;

procedure TForm2.Panel3Click(Sender: TObject);
begin
     Form2.Close;
end;

end.