ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/current/Tools/TxmpReplace.pas

Comparing oup/current/Tools/TxmpReplace.pas (file contents):
Revision 192 by alloc, Thu May 24 17:48:18 2007 UTC vs.
Revision 209 by alloc, Mon Jun 4 22:07:29 2007 UTC

#	Line 27 | Line 27 | type
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;
#	Line 40 | Line 41 | var
41
42		implementation
43		{$R *.dfm}
44	<	uses Main, ConnectionManager, ImagingTypes;
44	>	uses Main, ConnectionManager, ImagingTypes, TXMP;
45
46
47
48		procedure TForm_TxmpReplace.SelectFile(fileinfo: TFileInfo);
49		var
49	–	mem:  TMemoryStream;
50		fadingbyte, depthbyte, storebyte: Byte;
51		begin
52		fileid := fileinfo.ID;
#	Line 56 | Line 56 | begin
56
57		OniImage_Old.LoadFromTXMP(ConnectionID, fileid);
58		old_size := OniImage_Old.GetImageSize(True);
59	<	OniImage_Old.DrawOnCanvas(image_txmppreview.Canvas, 0);
59	>	OniImage_Old.DrawOnCanvas(image_txmppreview.Canvas, 1);
60
61		check_fading.Checked := OniImage_Old.HasMipMaps;
62		//  check_transparency.Checked := (depthbyte and $04) > 0;
#	Line 66 | Line 66 | begin
66		end;
67
68
69	+	procedure TForm_TxmpReplace.Splitter1Moved(Sender: TObject);
70	+	begin
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);
78	+	end;
79	+
80		procedure TForm_TxmpReplace.btn_loadClick(Sender: TObject);
70	–	var
71	–	mem:   TMemoryStream;
81		begin
82		if opend.Execute then
83		begin
84		OniImage_New.LoadFromFile(opend.FileName);
85	<	OniImage_New.DrawOnCanvas(image_bmppreview.Canvas, 0);
85	>	OniImage_New.DrawOnCanvas(image_bmppreview.Canvas, 1);
86		group_options.Enabled := True;
87		end;
88		end;
#	Line 88 | Line 97 | var
97		oldfading: Byte;
98		datbyte: Word;
99		mem: TMemoryStream;
100	+	new_storetype: Byte;
101	+	i: Integer;
102	+	const
103	+	powers: array[0..8] of Integer = (1, 2, 4, 8, 16, 32, 64, 128, 256);
104		begin
105		if filelist.ItemIndex >= 0 then
106		begin
#	Line 97 | Line 110 | begin
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
#	Line 114 | Line 149 | begin
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;
#	Line 121 | Line 179 | begin
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),
125	<	mem.Size, mem)
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
132	–	datbyte := $00;
189		if check_fading.Checked then
190	<	datbyte := datbyte or $01;
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
#	Line 141 | Line 199 | begin
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	<	case OniImage_New.Format of
145	<	ifA1R5G5B5: datbyte := 2;
146	<	ifA4R4G4B4: datbyte := 0;
147	<	ifA8R8G8B8:
148	<	begin
149	<	datbyte := 8;
150	<	OniImage_New.Format := ifX8R8G8B8;
151	<	end;
152	<	ifX8R8G8B8: datbyte := 8;
153	<	ifDXT1: datbyte := 9;
154	<	else
155	<	OniImage_New.Format := ifX8R8G8B8;
156	<	datbyte := 8;
157	<	end;
158	<	ConManager.Connection[ConnectionID].UpdateDatFilePart(fileid, $90, 1, @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;
211		end;
212
#	Line 179 | Line 224 | end;
224
225
226		procedure TForm_TxmpReplace.FormCreate(Sender: TObject);
227	+	var
228	+	TXMP: TFile_TXMP;
229		begin
230		inherited;
231		OniImage_Old := TOniImage.Create;

Diff Legend

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