117 lines
3.0 KiB
Plaintext
117 lines
3.0 KiB
Plaintext
unit Unit1;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, {$IfNDef VER130} Variants, {$EndIf} Classes, Graphics, Controls, Forms,
|
|
Dialogs, StdCtrls, ieview, imageenview, ExtCtrls, ieopensavedlg, Menus,
|
|
ComCtrls, hyieutils, iexBitmaps, hyiedefs, iesettings, iexLayers, iexRulers;
|
|
|
|
type
|
|
TForm1 = class(TForm)
|
|
ImageEnView2: TImageEnView;
|
|
Navigator: TImageEnView;
|
|
Button1: TButton;
|
|
OpenImageEnDialog1: TOpenImageEnDialog;
|
|
MainMenu1: TMainMenu;
|
|
File1: TMenuItem;
|
|
Exit1: TMenuItem;
|
|
N1: TMenuItem;
|
|
Open1: TMenuItem;
|
|
Splitter1: TSplitter;
|
|
StatusBar1: TStatusBar;
|
|
Button2: TButton;
|
|
Panel1: TPanel;
|
|
Panel2: TPanel;
|
|
GroupBox1: TGroupBox;
|
|
GroupBox2: TGroupBox;
|
|
Panel3: TPanel;
|
|
Label1: TLabel;
|
|
TrackBar1: TTrackBar;
|
|
Label2: TLabel;
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure Open1Click(Sender: TObject);
|
|
procedure Exit1Click(Sender: TObject);
|
|
procedure ImageEnView2ZoomIn(Sender: TObject; var NewZoom: Double);
|
|
procedure ImageEnView2ZoomOut(Sender: TObject; var NewZoom: Double);
|
|
procedure TrackBar1Change(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
FMT: TFormatSettings;
|
|
end;
|
|
|
|
var
|
|
Form1: TForm1;
|
|
|
|
implementation
|
|
|
|
{$R *.DFM}
|
|
{$R WindowsTheme.res}
|
|
|
|
function EllipsifyText
|
|
(PathToMince: string; InSpace: Integer): string;
|
|
var
|
|
TotalLength, FLength: Integer;
|
|
begin
|
|
TotalLength := Length(PathToMince);
|
|
if TotalLength > InSpace then
|
|
begin
|
|
FLength := (Inspace div 2) - 2;
|
|
Result := Copy(PathToMince, 0, fLength)
|
|
+ '\...\'
|
|
+ Copy(PathToMince,
|
|
TotalLength - fLength,
|
|
TotalLength);
|
|
end
|
|
else
|
|
Result := PathToMince;
|
|
end;
|
|
|
|
procedure TForm1.FormCreate(Sender: TObject);
|
|
begin
|
|
{$IfNDef VER130}
|
|
Panel3.ParentBackground := False;
|
|
{$EndIf}
|
|
GetLocaleFormatSettings(0, FMT);
|
|
ImageEnView2.SetNavigator(Navigator, [ienoMOUSEWHEELZOOM, ienoMARKOUTER]);
|
|
ImageEnView2.MouseWheelParams.ZoomPosition := iemwMouse;
|
|
end;
|
|
|
|
procedure TForm1.Open1Click(Sender: TObject);
|
|
begin
|
|
if OpenImageEnDialog1.Execute then
|
|
begin
|
|
ImageEnView2.IO.LoadFromFile(OpenImageEnDialog1.FileName);
|
|
Caption := Caption + OpenImageEnDialog1.FileName;
|
|
Statusbar1.Panels[1].Text := EllipsifyText(ExtractFilePath(OpenImageEnDialog1.FileName), 44);
|
|
Statusbar1.Panels[2].Text := ExtractFilename(OpenImageEnDialog1.FileName);
|
|
Statusbar1.Panels[3].Text := 'Zoom - ' + FloatToStr(ImageEnView2.Zoom, FMT) + '%';
|
|
end;
|
|
end;
|
|
|
|
procedure TForm1.Exit1Click(Sender: TObject);
|
|
begin
|
|
Close;
|
|
end;
|
|
|
|
procedure TForm1.ImageEnView2ZoomIn(Sender: TObject; var NewZoom: Double);
|
|
begin
|
|
ImageENView2.Cursor := crIEZoomIn;
|
|
Statusbar1.Panels[3].Text := 'Zoom - ' + FloatToStr(NewZoom, FMT) + '%';
|
|
end;
|
|
|
|
procedure TForm1.ImageEnView2ZoomOut(Sender: TObject; var NewZoom: Double);
|
|
begin
|
|
ImageENView2.Cursor := crIEZoomOut;
|
|
Statusbar1.Panels[3].Text := 'Zoom - ' + FloatToStr(NewZoom, FMT) + '%';
|
|
end;
|
|
|
|
procedure TForm1.TrackBar1Change(Sender: TObject);
|
|
begin
|
|
ImageEnView2.Zoom := TrackBar1.Position;
|
|
end;
|
|
|
|
end.
|