source: oup/current/Tools/TxmpReplace.pas@ 223

Last change on this file since 223 was 214, checked in by alloc, 17 years ago
File size: 7.9 KB
Line 
1unit TxmpReplace;
2interface
3uses
4 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
5 Dialogs, Template, StdCtrls, ExtCtrls,
6 Functions, Data, OniImgClass, Menus, Buttons, TypeDefs;
7
8type
9 TForm_TxmpReplace = class(TForm_ToolTemplate)
10 group_options: TGroupBox;
11 btn_replace: TButton;
12 check_transparency: TCheckBox;
13 check_fading: TCheckBox;
14 panel_txmppreview: TPanel;
15 btn_save: TButton;
16 image_txmppreview: TImage;
17 splitter_txmp: TSplitter;
18 group_bmpselect: TGroupBox;
19 image_bmppreview: TImage;
20 panel_load: TPanel;
21 btn_load: TButton;
22 opend: TOpenDialog;
23 saved: TSaveDialog;
24 procedure SelectFile(fileinfo: TFileInfo);
25 procedure FormCreate(Sender: TObject);
26 procedure FormClose(Sender: TObject; var Action: TCloseAction);
27 procedure btn_saveClick(Sender: TObject);
28 procedure btn_loadClick(Sender: TObject);
29 procedure btn_replaceClick(Sender: TObject);
30 procedure Splitter1Moved(Sender: TObject);
31 private
32 OniImage_Old: TOniImage;
33 OniImage_New: TOniImage;
34 old_size: Integer;
35 fileid: Integer;
36 public
37 end;
38
39var
40 Form_TxmpReplace: TForm_TxmpReplace;
41
42implementation
43{$R *.dfm}
44uses Main, ConnectionManager, ImagingTypes, TXMP;
45
46
47
48procedure TForm_TxmpReplace.SelectFile(fileinfo: TFileInfo);
49var
50 fadingbyte, depthbyte, storebyte: Byte;
51begin
52 fileid := fileinfo.ID;
53 ConManager.Connection[ConnectionID].LoadDatFilePart(fileid, $88, SizeOf(fadingbyte), @fadingbyte);
54 ConManager.Connection[ConnectionID].LoadDatFilePart(fileid, $89, SizeOf(depthbyte), @depthbyte);
55 ConManager.Connection[ConnectionID].LoadDatFilePart(fileid, $90, SizeOf(storebyte), @storebyte);
56
57 OniImage_Old.LoadFromTXMP(ConnectionID, fileid);
58 old_size := OniImage_Old.GetImageSize(True);
59 OniImage_Old.DrawOnCanvas(image_txmppreview.Canvas, 1);
60
61 check_fading.Checked := OniImage_Old.HasMipMaps;
62// check_transparency.Checked := (depthbyte and $04) > 0;
63 check_transparency.Checked := storebyte in [0, 2, 7];
64
65 group_bmpselect.Enabled := True;
66end;
67
68
69procedure TForm_TxmpReplace.Splitter1Moved(Sender: TObject);
70begin
71 inherited;
72 image_txmppreview.Picture.Assign(nil);
73 image_bmppreview.Picture.Assign(nil);
74 if Length(OniImage_Old.Images) > 0 then
75 OniImage_Old.DrawOnCanvas(image_txmppreview.Canvas, 1);
76 if Length(OniImage_New.Images) > 0 then
77 OniImage_New.DrawOnCanvas(image_bmppreview.Canvas, 1);
78end;
79
80procedure TForm_TxmpReplace.btn_loadClick(Sender: TObject);
81begin
82 if opend.Execute then
83 begin
84 OniImage_New.LoadFromFile(opend.FileName);
85 OniImage_New.DrawOnCanvas(image_bmppreview.Canvas, 1);
86 group_options.Enabled := True;
87 end;
88end;
89
90
91
92
93procedure TForm_TxmpReplace.btn_replaceClick(Sender: TObject);
94var
95 newsize: Integer;
96 old_rawaddr, new_rawaddr: Integer;
97 oldfading: Byte;
98 datbyte: Word;
99 mem: TMemoryStream;
100 new_storetype: Byte;
101 i: Integer;
102const
103 powers: array[0..8] of Integer = (1, 2, 4, 8, 16, 32, 64, 128, 256);
104begin
105 if filelist.ItemIndex >= 0 then
106 begin
107 ConManager.Connection[ConnectionID].LoadDatFilePart(fileid, $88, 1, @oldfading);
108 if not (ConManager.Connection[ConnectionID].DataOS = DOS_WIN) then
109 ConManager.Connection[ConnectionID].LoadDatFilePart(fileid, $A0, 4, @old_rawaddr)
110 else
111 ConManager.Connection[ConnectionID].LoadDatFilePart(fileid, $9C, 4, @old_rawaddr);
112
113 if (OniImage_New.Width[1] > 256) or (OniImage_New.Height[1] > 256) then
114 begin
115 ShowMessage('Widht and height have to be smaller than or equal to 256.');
116 Exit;
117 end;
118 for i := 0 to High(powers) do
119 if OniImage_New.Width[1] = powers[i] then
120 Break;
121 if i = Length(powers) then
122 begin
123 ShowMessage('Width has to be a power of 2 (1, 2, 4, 8, 16 ...)');
124 Exit;
125 end;
126 for i := 0 to High(powers) do
127 if OniImage_New.Height[1] = powers[i] then
128 Break;
129 if i = Length(powers) then
130 begin
131 ShowMessage('Height has to be a power of 2 (1, 2, 4, 8, 16 ...)');
132 Exit;
133 end;
134
135 if (OniImage_Old.Width[1] <> OniImage_New.Width[1]) or
136 (OniImage_Old.Height[1] <> OniImage_New.Height[1]) then
137 begin
138 if MessageBox(Self.Handle,
139 PChar(
140 'Current image and new image have different size' + CrLf +
141 '(Current: ' + IntToStr(OniImage_Old.Width[1]) + 'x' +
142 IntToStr(OniImage_Old.Height[1]) + ' - New: ' +
143 IntToStr(OniImage_New.Width[1]) + 'x' +
144 IntToStr(OniImage_New.Height[1]) +
145 ')' + CrLf + 'Replace anyway?'),
146 PChar(filelist.Items.Strings[filelist.ItemIndex]), MB_YESNO) = idNo then
147 Exit;
148 end;
149
150 mem := TMemoryStream.Create;
151
152 case OniImage_New.Format of
153 ifX1R5G5B5: new_storetype := 1;
154 ifA1R5G5B5: new_storetype := 2;
155 ifA4R4G4B4: new_storetype := 0;
156 ifA8R8G8B8:
157 begin
158 new_storetype := 8;
159 OniImage_New.Format := ifX8R8G8B8;
160 end;
161 ifX8R8G8B8: new_storetype := 8;
162 ifDXT1: new_storetype := 9;
163 else
164 if OniImage_New.FormatInfo.HasAlphaChannel then
165 ShowMessage('Loaded image has an alpha-channel.' + #13#10 +
166 'Because the format is neither ARGB1555' +#13#10 +
167 'nor ARGB4444 it can not be imported without conversion.' + #13#10 +
168 'It is converted to RGB888, so alpha gets dropped.' + #13#10 +
169 'If you need alpha you have to save your image in' + #13#10 +
170 'one of the previously named formats.');
171 OniImage_New.Format := ifX8R8G8B8;
172 new_storetype := 8;
173 end;
174
175 OniImage_New.SaveDataToStream(check_fading.Checked, TStream(mem));
176
177 newsize := mem.Size;
178 mem.Seek(0, soFromBeginning);
179
180 if (newsize > old_size) and (ConManager.Connection[ConnectionID].Backend = DB_ONI) then
181 new_rawaddr := ConManager.Connection[ConnectionID].AppendRawFile(
182 not (ConManager.Connection[ConnectionID].DataOS = DOS_WIN), mem)
183 else
184 begin
185 new_rawaddr := old_rawaddr;
186 ConManager.Connection[ConnectionID].UpdateRawFile(fileid, $9C, mem);
187 end;
188
189 if check_fading.Checked then
190 oldfading := oldfading or $01
191 else
192 oldfading := oldfading and (not Byte($01));
193 ConManager.Connection[ConnectionID].UpdateDatFilePart(fileid, $88, 1, @datbyte);
194 datbyte := $10;
195// if check_transparency.Checked then
196// datbyte := datbyte or $04;
197 ConManager.Connection[ConnectionID].UpdateDatFilePart(fileid, $89, 1, @datbyte);
198 datbyte := OniImage_New.Width[1];
199 ConManager.Connection[ConnectionID].UpdateDatFilePart(fileid, $8C, 2, @datbyte);
200 datbyte := OniImage_New.Height[1];
201 ConManager.Connection[ConnectionID].UpdateDatFilePart(fileid, $8E, 2, @datbyte);
202 ConManager.Connection[ConnectionID].UpdateDatFilePart(fileid, $90, 1, @new_storetype);
203 if not (ConManager.Connection[ConnectionID].DataOS = DOS_WIN) then
204 ConManager.Connection[ConnectionID].UpdateDatFilePart(fileid, $A0, 4, @new_rawaddr)
205 else
206 ConManager.Connection[ConnectionID].UpdateDatFilePart(fileid, $9C, 4, @new_rawaddr);
207
208 ShowMessage('TXMP-image replaced');
209 Self.listClick(Self);
210 end;
211end;
212
213
214
215
216procedure TForm_TxmpReplace.FormClose(Sender: TObject; var Action: TCloseAction);
217begin
218 OniImage_Old.Free;
219 OniImage_New.Free;
220 inherited;
221end;
222
223
224
225
226procedure TForm_TxmpReplace.FormCreate(Sender: TObject);
227begin
228 inherited;
229 OniImage_Old := TOniImage.Create;
230 OniImage_New := TOniImage.Create;
231 Self.AllowedExts := 'TXMP';
232 Self.OnNewFileSelected := SelectFile;
233 opend.Filter := saved.Filter;
234end;
235
236
237
238
239procedure TForm_TxmpReplace.btn_saveClick(Sender: TObject);
240begin
241 if saved.Execute then
242 OniImage_Old.WriteToFile(saved.FileName);
243end;
244
245begin
246 AddToolListEntry('txmpreplace', 'TXMP Replacer', 'TXMP');
247end.
Note: See TracBrowser for help on using the repository browser.