ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/current/Tools/Preview.pas
(Generate patch)

Comparing oup/current/Tools/Preview.pas (file contents):
Revision 194 by alloc, Sat May 26 18:26:48 2007 UTC vs.
Revision 220 by alloc, Mon Jun 18 13:41:12 2007 UTC

# Line 1 | Line 1
1   unit Preview;
2 +
3   interface
4 +
5   uses
6    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 <  Dialogs, StdCtrls, Template, ExtCtrls, Math, StrUtils,
8 <  ConnectionManager, OniImgClass, Data, TypeDefs, Menus, Buttons;
7 >  Dialogs, _TemplateFileList, Menus, StdCtrls, ExtCtrls, Buttons,
8 >  TypeDefs, OniImgClass;
9  
10   type
11 <  TForm_Preview = class(TForm_ToolTemplate)
12 <    lbl_notpossible: TLabel;
11 >  TForm_Preview = class(TForm_TemplateFileList)
12 >    img: TImage;
13      panel_buttons: TPanel;
14      btn_dec: TButton;
15      btn_startstop: TButton;
16      btn_inc: TButton;
15 –    img: TImage;
17      timer: TTimer;
18 +    lbl_notpossible: TLabel;
19      procedure FormCreate(Sender: TObject);
20      procedure NewFile(fileinfo: TFileInfo);
21  
# Line 36 | Line 38 | type
38    public
39    end;
40  
39 – var
40 –  Form_Preview: TForm_Preview;
41 –
41   implementation
42   {$R *.dfm}
43 < uses Imaging, ImagingComponents, ImagingTypes, jpeg;
43 > uses
44 >  ConnectionManager, Math, _TemplateFile;
45  
46  
47   procedure TForm_Preview.FormCreate(Sender: TObject);
# Line 213 | Line 213 | end;
213   begin
214    AddToolListEntry('preview', 'Preview-Window', '');
215   end.
216 +

Diff Legend

– Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)