source: trunk/UFormPanel.pas

unit UFormPanel;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,
  UCompare;

type

  { TFormPanel }

  TFormPanel = class(TForm)
    ButtonBrowse: TButton;
    EditFile: TEdit;
    OpenDialog1: TOpenDialog;
    PaintBox1: TPaintBox;
    ScrollBar1: TScrollBar;
    procedure ButtonBrowseClick(Sender: TObject);
    procedure EditFileChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure PaintBox1Paint(Sender: TObject);
    procedure ScrollBar1Change(Sender: TObject);
  private

  public
    Compare: TTextCompare;
    procedure Reload;
  end;

var
  FormPanel: TFormPanel;

implementation

{$R *.lfm}

{ TFormPanel }

procedure TFormPanel.ScrollBar1Change(Sender: TObject);
begin
  PaintBox1.Repaint;
end;

procedure TFormPanel.Reload;
begin
  if FileExists(EditFile.Text) then begin
    Compare.TextFile.LoadFromFile(EditFile.Text);
  end else Compare.Clear;
  Compare.Rebuild;
  ScrollBar1.PageSize := Trunc(PaintBox1.Height / Compare.LineHeight);
  ScrollBar1.Max := Compare.Lines.Count;
  PaintBox1.Repaint;
end;

procedure TFormPanel.FormCreate(Sender: TObject);
begin
  Compare := TTextCompare.Create;
  EditFile.Text := 'UCompare.pas';
  Compare.WordWrap := True;
end;

procedure TFormPanel.ButtonBrowseClick(Sender: TObject);
begin
  OpenDialog1.InitialDir := ExtractFileDir(EditFile.Text);
  OpenDialog1.FileName := ExtractFileName(EditFile.Text);
  if OpenDialog1.Execute then begin
    EditFile.Text := OpenDialog1.FileName;
  end;
end;

procedure TFormPanel.EditFileChange(Sender: TObject);
begin
  Reload;
end;

procedure TFormPanel.FormDestroy(Sender: TObject);
begin
  FreeAndNil(Compare);
end;

procedure TFormPanel.FormResize(Sender: TObject);
begin
  Compare.CharsPerLine := Trunc((PaintBox1.Width - Compare.LineNumbersWidth) / PaintBox1.Canvas.TextWidth('A'));
  Compare.Rebuild;
  ScrollBar1.PageSize := Trunc(PaintBox1.Height / Compare.LineHeight);
  ScrollBar1.Max := Compare.Lines.Count;
  PaintBox1.Repaint;
end;

procedure TFormPanel.FormShow(Sender: TObject);
begin
  Reload;
end;

procedure TFormPanel.PaintBox1Paint(Sender: TObject);
begin
  Compare.Render(PaintBox1.Canvas, ScrollBar1.Position);
end;

end.