39 lines
689 B
Plaintext
39 lines
689 B
Plaintext
unit unavi;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
ieview, imageenview, ExtCtrls, ComCtrls;
|
|
|
|
type
|
|
TfNavi = class(TForm)
|
|
Panel1: TPanel;
|
|
ImageEnView1: TImageEnView;
|
|
Splitter1: TSplitter;
|
|
ImageEnView2: TImageEnView;
|
|
TrackBar1: TTrackBar;
|
|
procedure TrackBar1Change(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
fNavi: TfNavi;
|
|
|
|
implementation
|
|
|
|
uses umain;
|
|
|
|
{$R *.DFM}
|
|
|
|
procedure TfNavi.TrackBar1Change(Sender: TObject);
|
|
begin
|
|
umain.MainForm.ImageEnView1.Zoom:=TrackBar1.Position;
|
|
umain.MainForm.ImageEnView2.Zoom:=TrackBar1.Position;
|
|
end;
|
|
|
|
end.
|