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 195 by alloc, Sat May 26 18:31:36 2007 UTC vs.
Revision 206 by alloc, Sun May 27 23:31:26 2007 UTC

#	Line 41 | 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
50	–	mem:  TMemoryStream;
50		fadingbyte, depthbyte, storebyte: Byte;
51		begin
52		fileid := fileinfo.ID;
#	Line 79 | Line 78 | begin
78		end;
79
80		procedure TForm_TxmpReplace.btn_loadClick(Sender: TObject);
82	–	var
83	–	mem:   TMemoryStream;
81		begin
82		if opend.Execute then
83		begin
#	Line 101 | Line 98 | var
98		datbyte: Word;
99		mem: TMemoryStream;
100		new_storetype: Byte;
101	<	formatinfo: TImageFormatInfo;
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 111 | 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 129 | Line 150 | begin
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:
#	Line 202 | 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;
#	Line 209 | Line 233 | begin
233		Self.AllowedExts := 'TXMP';
234		Self.OnNewFileSelected := SelectFile;
235		opend.Filter := saved.Filter;
236	+
237	+	TXMP := TFile_TXMP.Create(ConnectionID, 8552);
238	+	TXMP.Free;
239		end;
240
241

Diff Legend

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