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

Comparing oup/current/Tools/TxmpReplace.pas (file contents):
Revision 214 by alloc, Tue Jun 12 17:35:56 2007 UTC vs.
Revision 224 by alloc, Mon Jun 18 14:49:24 2007 UTC

# Line 1 | Line 1
1   unit TxmpReplace;
2 +
3   interface
4 +
5   uses
6    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 <  Dialogs, Template, StdCtrls, ExtCtrls,
8 <  Functions, Data, OniImgClass, Menus, Buttons, TypeDefs;
7 >  Dialogs, _TemplateFileList, Menus, StdCtrls, Buttons, ComCtrls, ExtCtrls,
8 >  OniImgClass, TypeDefs;
9  
10   type
11 <  TForm_TxmpReplace = class(TForm_ToolTemplate)
11 >  TForm_TxmpReplace = class(TForm_TemplateFileList)
12      group_options: TGroupBox;
13      btn_replace: TButton;
14      check_transparency: TCheckBox;
15      check_fading: TCheckBox;
16 <    panel_txmppreview: TPanel;
17 <    btn_save: TButton;
16 <    image_txmppreview: TImage;
17 <    splitter_txmp: TSplitter;
16 >    GroupBox1: TGroupBox;
17 >    Splitter1: TSplitter;
18      group_bmpselect: TGroupBox;
19      image_bmppreview: TImage;
20      panel_load: TPanel;
21      btn_load: TButton;
22 <    opend: TOpenDialog;
22 >    image_txmppreview: TImage;
23 >    panel_txmppreview: TPanel;
24 >    btn_save: TButton;
25      saved: TSaveDialog;
26 +    opend: TOpenDialog;
27      procedure SelectFile(fileinfo: TFileInfo);
28      procedure FormCreate(Sender: TObject);
29      procedure FormClose(Sender: TObject; var Action: TCloseAction);
# Line 36 | Line 39 | type
39    public
40    end;
41  
39 – var
40 –  Form_TxmpReplace: TForm_TxmpReplace;
41 –
42   implementation
43   {$R *.dfm}
44 < uses Main, ConnectionManager, ImagingTypes, TXMP;
45 <
46 <
44 > uses
45 >  _TemplateFile, ConnectionManager, ImagingTypes;
46  
47   procedure TForm_TxmpReplace.SelectFile(fileinfo: TFileInfo);
48   var
# Line 244 | Line 243 | end;
243  
244   begin
245    AddToolListEntry('txmpreplace', 'TXMP Replacer', 'TXMP');
246 < end.
246 > end.
247 >

Diff Legend

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