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 201 by alloc, Sat May 26 21:36:23 2007 UTC vs.
Revision 232 by alloc, Thu Jun 28 09:24:08 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, VirtualTrees;
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 >    group_txmp: 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;
45 <
46 <
44 > uses
45 >  _TemplateFile, ConnectionManager, ImagingTypes;
46  
47   procedure TForm_TxmpReplace.SelectFile(fileinfo: TFileInfo);
48   var
50 –  mem:  TMemoryStream;
49    fadingbyte, depthbyte, storebyte: Byte;
50   begin
51    fileid := fileinfo.ID;
# Line 79 | Line 77 | begin
77   end;
78  
79   procedure TForm_TxmpReplace.btn_loadClick(Sender: TObject);
82 – var
83 –  mem:   TMemoryStream;
80   begin
81    if opend.Execute then
82    begin
# Line 101 | Line 97 | var
97    datbyte: Word;
98    mem: TMemoryStream;
99    new_storetype: Byte;
104 –  formatinfo: TImageFormatInfo;
100    i: Integer;
101   const
102    powers: array[0..8] of Integer = (1, 2, 4, 8, 16, 32, 64, 128, 256);
# Line 248 | 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)