source: oup/releases/0.34a/Tools/TxmpReplace.pas@ 200

Last change on this file since 200 was 200, checked in by alloc, 18 years ago
File size: 7.2 KB
RevLine 
[200]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;
45
46
47
48procedure TForm_TxmpReplace.SelectFile(fileinfo: TFileInfo);
49var
50 mem: TMemoryStream;
51 fadingbyte, depthbyte, storebyte: Byte;
52begin
53 fileid := fileinfo.ID;
54 ConManager.Connection[ConnectionID].LoadDatFilePart(fileid, $88, SizeOf(fadingbyte), @fadingbyte);
55 ConManager.Connection[ConnectionID].LoadDatFilePart(fileid, $89, SizeOf(depthbyte), @depthbyte);
56 ConManager.Connection[ConnectionID].LoadDatFilePart(fileid, $90, SizeOf(storebyte), @storebyte);
57
58 OniImage_Old.LoadFromTXMP(ConnectionID, fileid);
59 old_size := OniImage_Old.GetImageSize(True);
60 OniImage_Old.DrawOnCanvas(image_txmppreview.Canvas, 1);
61
62 check_fading.Checked := OniImage_Old.HasMipMaps;
63// check_transparency.Checked := (depthbyte and $04) > 0;
64 check_transparency.Checked := storebyte in [0, 2, 7];
65
66 group_bmpselect.Enabled := True;
67end;
68
69
70procedure TForm_TxmpReplace.Splitter1Moved(Sender: TObject);
71begin
72 inherited;
73 image_txmppreview.Picture.Assign(nil);
74 image_bmppreview.Picture.Assign(nil);
75 if Length(OniImage_Old.Images) > 0 then
76 OniImage_Old.DrawOnCanvas(image_txmppreview.Canvas, 1);
77 if Length(OniImage_New.Images) > 0 then
78 OniImage_New.DrawOnCanvas(image_bmppreview.Canvas, 1);
79end;
80
81procedure TForm_TxmpReplace.btn_loadClick(Sender: TObject);
82var
83 mem: TMemoryStream;
84begin
85 if opend.Execute then
86 begin
87 OniImage_New.LoadFromFile(opend.FileName);
88 OniImage_New.DrawOnCanvas(image_bmppreview.Canvas, 1);
89 group_options.Enabled := True;
90 end;
91end;
92
93
94
95
96procedure TForm_TxmpReplace.btn_replaceClick(Sender: TObject);
97var
98 newsize: Integer;
99 old_rawaddr, new_rawaddr: Integer;
100 oldfading: Byte;
101 datbyte: Word;
102 mem: TMemoryStream;
103 new_storetype: Byte;
104 formatinfo: TImageFormatInfo;
105begin
106 if filelist.ItemIndex >= 0 then
107 begin
108 ConManager.Connection[ConnectionID].LoadDatFilePart(fileid, $88, 1, @oldfading);
109 if not (ConManager.Connection[ConnectionID].DataOS = DOS_WIN) then
110 ConManager.Connection[ConnectionID].LoadDatFilePart(fileid, $A0, 4, @old_rawaddr)
111 else
112 ConManager.Connection[ConnectionID].LoadDatFilePart(fileid, $9C, 4, @old_rawaddr);
113
114 if (OniImage_Old.Width[1] <> OniImage_New.Width[1]) or
115 (OniImage_Old.Height[1] <> OniImage_New.Height[1]) then
116 begin
117 if MessageBox(Self.Handle,
118 PChar(
119 'Current image and new image have different size' + CrLf +
120 '(Current: ' + IntToStr(OniImage_Old.Width[1]) + 'x' +
121 IntToStr(OniImage_Old.Height[1]) + ' - New: ' +
122 IntToStr(OniImage_New.Width[1]) + 'x' +
123 IntToStr(OniImage_New.Height[1]) +
124 ')' + CrLf + 'Replace anyway?'),
125 PChar(filelist.Items.Strings[filelist.ItemIndex]), MB_YESNO) = idNo then
126 Exit;
127 end;
128
129 mem := TMemoryStream.Create;
130
131 case OniImage_New.Format of
132 ifX1R5G5B5: new_storetype := 1;
133 ifA1R5G5B5: new_storetype := 2;
134 ifA4R4G4B4: new_storetype := 0;
135 ifA8R8G8B8:
136 begin
137 new_storetype := 8;
138 OniImage_New.Format := ifX8R8G8B8;
139 end;
140 ifX8R8G8B8: new_storetype := 8;
141 ifDXT1: new_storetype := 9;
142 else
143 if OniImage_New.FormatInfo.HasAlphaChannel then
144 ShowMessage('Loaded image has an alpha-channel.' + #13#10 +
145 'Because the format is neither ARGB1555' +#13#10 +
146 'nor ARGB4444 it can not be imported without conversion.' + #13#10 +
147 'It is converted to RGB888, so alpha gets dropped.' + #13#10 +
148 'If you need alpha you have to save your image in' + #13#10 +
149 'one of the previously named formats.');
150 OniImage_New.Format := ifX8R8G8B8;
151 new_storetype := 8;
152 end;
153
154 OniImage_New.SaveDataToStream(check_fading.Checked, TStream(mem));
155
156 newsize := mem.Size;
157 mem.Seek(0, soFromBeginning);
158
159 if (newsize > old_size) and (ConManager.Connection[ConnectionID].Backend = DB_ONI) then
160 new_rawaddr := ConManager.Connection[ConnectionID].AppendRawFile(
161 not (ConManager.Connection[ConnectionID].DataOS = DOS_WIN), mem)
162 else
163 begin
164 new_rawaddr := old_rawaddr;
165 ConManager.Connection[ConnectionID].UpdateRawFile(fileid, $9C, mem);
166 end;
167
168 if check_fading.Checked then
169 oldfading := oldfading or $01
170 else
171 oldfading := oldfading and (not Byte($01));
172 ConManager.Connection[ConnectionID].UpdateDatFilePart(fileid, $88, 1, @datbyte);
173 datbyte := $10;
174// if check_transparency.Checked then
175// datbyte := datbyte or $04;
176 ConManager.Connection[ConnectionID].UpdateDatFilePart(fileid, $89, 1, @datbyte);
177 datbyte := OniImage_New.Width[1];
178 ConManager.Connection[ConnectionID].UpdateDatFilePart(fileid, $8C, 2, @datbyte);
179 datbyte := OniImage_New.Height[1];
180 ConManager.Connection[ConnectionID].UpdateDatFilePart(fileid, $8E, 2, @datbyte);
181 ConManager.Connection[ConnectionID].UpdateDatFilePart(fileid, $90, 1, @new_storetype);
182 if not (ConManager.Connection[ConnectionID].DataOS = DOS_WIN) then
183 ConManager.Connection[ConnectionID].UpdateDatFilePart(fileid, $A0, 4, @new_rawaddr)
184 else
185 ConManager.Connection[ConnectionID].UpdateDatFilePart(fileid, $9C, 4, @new_rawaddr);
186
187 ShowMessage('TXMP-image replaced');
188 Self.listClick(Self);
189 end;
190end;
191
192
193
194
195procedure TForm_TxmpReplace.FormClose(Sender: TObject; var Action: TCloseAction);
196begin
197 OniImage_Old.Free;
198 OniImage_New.Free;
199 inherited;
200end;
201
202
203
204
205procedure TForm_TxmpReplace.FormCreate(Sender: TObject);
206begin
207 inherited;
208 OniImage_Old := TOniImage.Create;
209 OniImage_New := TOniImage.Create;
210 Self.AllowedExts := 'TXMP';
211 Self.OnNewFileSelected := SelectFile;
212 opend.Filter := saved.Filter;
213end;
214
215
216
217
218procedure TForm_TxmpReplace.btn_saveClick(Sender: TObject);
219begin
220 if saved.Execute then
221 OniImage_Old.WriteToFile(saved.FileName);
222end;
223
224begin
225 AddToolListEntry('txmpreplace', 'TXMP Replacer', 'TXMP');
226end.
Note: See TracBrowser for help on using the repository browser.