releases/0.29a2/Unit7_txmpreplace.pas

UNIT Unit7_txmpreplace;
INTERFACE
USES
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, StrUtils, Unit2_functions, Unit3_data;

TYPE
  TForm7 = Class(TForm)
    panel_12: TPanel;
    group_txmpselect: TGroupBox;
    splitter_txmp: TSplitter;
    list_txmp: TListBox;
    Splitter1: TSplitter;
    group_bmpselect: TGroupBox;
    panel_load: TPanel;
    btn_load: TButton;
    image_bmppreview: TImage;
    opend: TOpenDialog;
    group_options: TGroupBox;
    btn_replace: TButton;
    check_transparency: TCheckBox;
    check_fading: TCheckBox;
    check_32bit: TCheckBox;
    panel_txmppreview: TPanel;
    btn_save: TButton;
    image_txmppreview: TImage;
    saved: TSaveDialog;
    PROCEDURE btn_saveClick(Sender: TObject);
    PROCEDURE FormActivate(Sender: TObject);
    PROCEDURE FormClose(Sender: TObject; var Action: TCloseAction);
    PROCEDURE btn_replaceClick(Sender: TObject);
    PROCEDURE btn_loadClick(Sender: TObject);
    PROCEDURE list_txmpClick(Sender: TObject);
    PROCEDURE FormResize(Sender: TObject);
    PROCEDURE Recreatelist;
  PRIVATE
  PUBLIC
  END;

VAR
  Form7: TForm7;

IMPLEMENTATION
USES Unit1_main, Unit6_imgfuncs;
{$R *.dfm}
VAR
  actual_bmpdata:Tdata;

PROCEDURE TForm7.Recreatelist;
  VAR
    files:TStringList;
    i:LongWord;
  BEGIN
    list_txmp.Items.Clear;
    files:=GetFilesList('TXMP','',True);
    IF Length(files)>0 THEN
      FOR i:=0 TO High(files) DO
        list_txmp.Items.Add(files[i]);
    group_bmpselect.Enabled:=False;
    check_transparency.Checked:=False;
    check_fading.Checked:=False;
  END;

  
PROCEDURE TForm7.FormResize(Sender: TObject);
  BEGIN
    IF Self.Width>=400 THEN BEGIN
    END ELSE Self.Width:=400;
    IF Self.Height>=350 THEN BEGIN
    END ELSE Self.Height:=350;
  END;

PROCEDURE TForm7.list_txmpClick(Sender: TObject);
  VAR
    id:LongWord;
    data:Tdata;
    img:TImgPackage;
    mem:TMemoryStream;
    fadingbyte,depthbyte,storebyte:Byte;
  BEGIN
    id:=GetFileIDByName(list_txmp.Items.Strings[list_txmp.ItemIndex]);

    LoadDatFilePart(id,$88,SizeOf(fadingbyte),@fadingbyte);
    LoadDatFilePart(id,$89,SizeOf(depthbyte),@depthbyte);
    LoadDatFilePart(id,$90,SizeOf(storebyte),@storebyte);
    check_fading.Checked:=(fadingbyte AND $01)>0;
    check_transparency.Checked:=(depthbyte AND $04)>0;
    check_32bit.Checked:=(storebyte=8);

    img:=LoadImgData(id);
    data:=ImgdataToBmp(img.imgx,img.imgy,img.imgdepth,img.storetype,img.imgdata);

    mem:=TMemoryStream.Create;
    mem.Write(data[0],Length(data));
    mem.Seek(0,soFromBeginning);
    image_txmppreview.Picture.Bitmap.LoadFromStream(mem);
    mem.Free;

    group_bmpselect.Enabled:=True;
  END;

PROCEDURE TForm7.btn_loadClick(Sender: TObject);
  VAR
    bmpfile:TFileStream;
    mem:TMemoryStream;
  BEGIN
    IF opend.Execute THEN BEGIN
      bmpfile:=TFileStream.Create(opend.FileName, fmOpenRead);
      SetLength(actual_bmpdata,bmpfile.Size);
      bmpfile.Read(actual_bmpdata[0],bmpfile.Size);
      bmpfile.Free;

      mem:=TMemoryStream.Create;
      mem.Write(actual_bmpdata[0],Length(actual_bmpdata));
      mem.Seek(0,soFromBeginning);
      image_bmppreview.Picture.Bitmap.LoadFromStream(mem);
      mem.Free;

      group_options.Enabled:=True;
    END;
  END;

PROCEDURE TForm7.btn_replaceClick(Sender: TObject);
  VAR
    id:LongWord;
    imgpkg:TImgPackage;
    rawfile:TFileStream;
    dataddr:LongWord;
    old_rawaddr,new_rawaddr:LongWord;
    oldwidth,oldheight:Word;
    oldstore,olddepth,oldfading:Byte;
    oldsize:LongWord;
    newsize:LongWord;
    datbyte:Word;
  BEGIN
    IF list_txmp.ItemIndex>=0 THEN BEGIN
      imgpkg:=BmpToImgdata(actual_bmpdata,check_32bit.Checked);

      id:=GetFileIDByName(list_txmp.Items.Strings[list_txmp.ItemIndex]);
      LoadDatFilePart(id,$8C,2,@oldwidth);
      LoadDatFilePart(id,$8E,2,@oldheight);
      LoadDatFilePart(id,$88,1,@oldfading);
      LoadDatFilePart(id,$89,1,@olddepth);
      LoadDatFilePart(id,$90,1,@oldstore);
      LoadDatFilePart(id,$9C,4,@old_rawaddr);
      IF (oldwidth<>imgpkg.imgx) OR (oldheight<>imgpkg.imgy) THEN BEGIN
        IF MessageBox(Self.Handle,
                    PChar('Current image and new image have different size'+CrLf+
                            '(Current: '+IntToStr(oldwidth)+'x'+IntToStr(oldheight)+
                            ' - New: '+IntToStr(imgpkg.imgx)+'x'+IntToStr(imgpkg.imgy)+')'+CrLf+
                            'Replace anyways?'),
                    PChar(list_txmp.Items.Strings[list_txmp.ItemIndex]),
                    MB_YESNO)=IDNO THEN Exit;
      END;

      rawfile:=TFileStream.Create(raw_filename,fmOpenReadWrite);

      CASE oldstore OF
        9: oldsize:=GetImageDataSize(oldwidth,oldheight,8,(oldfading AND $01)>0);
        0,1,2: oldsize:=GetImageDataSize(oldwidth,oldheight,16,(oldfading AND $01)>0);
        8: oldsize:=GetImageDataSize(oldwidth,oldheight,32,(oldfading AND $01)>0);
      ELSE
        oldsize:=0;
      END;
      IF check_32bit.Checked THEN
        newsize:=GetImageDataSize(imgpkg.imgx,imgpkg.imgy,32,check_fading.Checked)
      ELSE
        newsize:=GetImageDataSize(imgpkg.imgx,imgpkg.imgy,16,check_fading.Checked);

      IF newsize<=oldsize THEN
        new_rawaddr:=old_rawaddr
      ELSE
        new_rawaddr:=rawfile.Size;

      datbyte:=$00;
      IF check_fading.Checked THEN datbyte:=datbyte OR $01;
      UpdateDatFilePart(id,$88,1,@datbyte);
      datbyte:=$10;
      IF check_transparency.Checked THEN datbyte:=datbyte OR $04;
      UpdateDatFilePart(id,$89,1,@datbyte);
      UpdateDatFilePart(id,$8C,2,@imgpkg.imgx);
      UpdateDatFilePart(id,$8E,2,@imgpkg.imgy);
      IF check_32bit.Checked THEN
        datbyte:=$08
      ELSE
        datbyte:=$01;
      UpdateDatFilePart(id,$90,1,@datbyte);
      UpdateDatFilePart(id,$9C,4,@new_rawaddr);

      IF check_fading.Checked THEN BEGIN
        imgpkg.imgdata:=CreateFadedImage(imgpkg);
      END;

      rawfile.Seek(new_rawaddr,soFromBeginning);
      rawfile.Write(imgpkg.imgdata[0],Length(imgpkg.imgdata));
      rawfile.Free;
      
      ShowMessage('TXMP-image replaced');
    END;
  END;

PROCEDURE TForm7.FormClose(Sender: TObject; var Action: TCloseAction);
  BEGIN
    Action:=caFree;
    Form1.close_window(Self.Name);
  END;

PROCEDURE TForm7.FormActivate(Sender: TObject);
  BEGIN
    Form1.SetActiveWindow(Self.Name);
  END;

PROCEDURE TForm7.btn_saveClick(Sender: TObject);
  VAR
    filestream:TFileStream;
    img:TImgPackage;
  BEGIN
    IF saved.Execute THEN BEGIN
      img:=LoadImgData(GetFileIDByName(list_txmp.Items.Strings[list_txmp.ItemIndex]));
      img.imgdata:=ImgdataToBMP(img.imgx,img.imgy,img.imgdepth,img.storetype,img.imgdata);
      filestream:=TFileStream.Create(saved.FileName,fmCreate);
      filestream.Write(img.imgdata[0],Length(img.imgdata));
      filestream.Free;
    END;
  END;

END.
Revision:	30
Committed:	Sat Aug 26 19:17:54 2006 UTC (19 years, 1 month ago) by alloc
Content type:	text/x-pascal
File size:	7110 byte(s)
Log Message:
#	Content
1	UNIT Unit7_txmpreplace;
2	INTERFACE
3	USES
4	Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
5	Dialogs, ExtCtrls, StdCtrls, StrUtils, Unit2_functions, Unit3_data;
6
7	TYPE
8	TForm7 = Class(TForm)
9	panel_12: TPanel;
10	group_txmpselect: TGroupBox;
11	splitter_txmp: TSplitter;
12	list_txmp: TListBox;
13	Splitter1: TSplitter;
14	group_bmpselect: TGroupBox;
15	panel_load: TPanel;
16	btn_load: TButton;
17	image_bmppreview: TImage;
18	opend: TOpenDialog;
19	group_options: TGroupBox;
20	btn_replace: TButton;
21	check_transparency: TCheckBox;
22	check_fading: TCheckBox;
23	check_32bit: TCheckBox;
24	panel_txmppreview: TPanel;
25	btn_save: TButton;
26	image_txmppreview: TImage;
27	saved: TSaveDialog;
28	PROCEDURE btn_saveClick(Sender: TObject);
29	PROCEDURE FormActivate(Sender: TObject);
30	PROCEDURE FormClose(Sender: TObject; var Action: TCloseAction);
31	PROCEDURE btn_replaceClick(Sender: TObject);
32	PROCEDURE btn_loadClick(Sender: TObject);
33	PROCEDURE list_txmpClick(Sender: TObject);
34	PROCEDURE FormResize(Sender: TObject);
35	PROCEDURE Recreatelist;
36	PRIVATE
37	PUBLIC
38	END;
39
40	VAR
41	Form7: TForm7;
42
43	IMPLEMENTATION
44	USES Unit1_main, Unit6_imgfuncs;
45	{$R *.dfm}
46	VAR
47	actual_bmpdata:Tdata;
48
49	PROCEDURE TForm7.Recreatelist;
50	VAR
51	files:TStringList;
52	i:LongWord;
53	BEGIN
54	list_txmp.Items.Clear;
55	files:=GetFilesList('TXMP','',True);
56	IF Length(files)>0 THEN
57	FOR i:=0 TO High(files) DO
58	list_txmp.Items.Add(files[i]);
59	group_bmpselect.Enabled:=False;
60	check_transparency.Checked:=False;
61	check_fading.Checked:=False;
62	END;
63
64
65	PROCEDURE TForm7.FormResize(Sender: TObject);
66	BEGIN
67	IF Self.Width>=400 THEN BEGIN
68	END ELSE Self.Width:=400;
69	IF Self.Height>=350 THEN BEGIN
70	END ELSE Self.Height:=350;
71	END;
72
73	PROCEDURE TForm7.list_txmpClick(Sender: TObject);
74	VAR
75	id:LongWord;
76	data:Tdata;
77	img:TImgPackage;
78	mem:TMemoryStream;
79	fadingbyte,depthbyte,storebyte:Byte;
80	BEGIN
81	id:=GetFileIDByName(list_txmp.Items.Strings[list_txmp.ItemIndex]);
82
83	LoadDatFilePart(id,$88,SizeOf(fadingbyte),@fadingbyte);
84	LoadDatFilePart(id,$89,SizeOf(depthbyte),@depthbyte);
85	LoadDatFilePart(id,$90,SizeOf(storebyte),@storebyte);
86	check_fading.Checked:=(fadingbyte AND $01)>0;
87	check_transparency.Checked:=(depthbyte AND $04)>0;
88	check_32bit.Checked:=(storebyte=8);
89
90	img:=LoadImgData(id);
91	data:=ImgdataToBmp(img.imgx,img.imgy,img.imgdepth,img.storetype,img.imgdata);
92
93	mem:=TMemoryStream.Create;
94	mem.Write(data[0],Length(data));
95	mem.Seek(0,soFromBeginning);
96	image_txmppreview.Picture.Bitmap.LoadFromStream(mem);
97	mem.Free;
98
99	group_bmpselect.Enabled:=True;
100	END;
101
102	PROCEDURE TForm7.btn_loadClick(Sender: TObject);
103	VAR
104	bmpfile:TFileStream;
105	mem:TMemoryStream;
106	BEGIN
107	IF opend.Execute THEN BEGIN
108	bmpfile:=TFileStream.Create(opend.FileName, fmOpenRead);
109	SetLength(actual_bmpdata,bmpfile.Size);
110	bmpfile.Read(actual_bmpdata[0],bmpfile.Size);
111	bmpfile.Free;
112
113	mem:=TMemoryStream.Create;
114	mem.Write(actual_bmpdata[0],Length(actual_bmpdata));
115	mem.Seek(0,soFromBeginning);
116	image_bmppreview.Picture.Bitmap.LoadFromStream(mem);
117	mem.Free;
118
119	group_options.Enabled:=True;
120	END;
121	END;
122
123	PROCEDURE TForm7.btn_replaceClick(Sender: TObject);
124	VAR
125	id:LongWord;
126	imgpkg:TImgPackage;
127	rawfile:TFileStream;
128	dataddr:LongWord;
129	old_rawaddr,new_rawaddr:LongWord;
130	oldwidth,oldheight:Word;
131	oldstore,olddepth,oldfading:Byte;
132	oldsize:LongWord;
133	newsize:LongWord;
134	datbyte:Word;
135	BEGIN
136	IF list_txmp.ItemIndex>=0 THEN BEGIN
137	imgpkg:=BmpToImgdata(actual_bmpdata,check_32bit.Checked);
138
139	id:=GetFileIDByName(list_txmp.Items.Strings[list_txmp.ItemIndex]);
140	LoadDatFilePart(id,$8C,2,@oldwidth);
141	LoadDatFilePart(id,$8E,2,@oldheight);
142	LoadDatFilePart(id,$88,1,@oldfading);
143	LoadDatFilePart(id,$89,1,@olddepth);
144	LoadDatFilePart(id,$90,1,@oldstore);
145	LoadDatFilePart(id,$9C,4,@old_rawaddr);
146	IF (oldwidth<>imgpkg.imgx) OR (oldheight<>imgpkg.imgy) THEN BEGIN
147	IF MessageBox(Self.Handle,
148	PChar('Current image and new image have different size'+CrLf+
149	'(Current: '+IntToStr(oldwidth)+'x'+IntToStr(oldheight)+
150	' - New: '+IntToStr(imgpkg.imgx)+'x'+IntToStr(imgpkg.imgy)+')'+CrLf+
151	'Replace anyways?'),
152	PChar(list_txmp.Items.Strings[list_txmp.ItemIndex]),
153	MB_YESNO)=IDNO THEN Exit;
154	END;
155
156	rawfile:=TFileStream.Create(raw_filename,fmOpenReadWrite);
157
158	CASE oldstore OF
159	9: oldsize:=GetImageDataSize(oldwidth,oldheight,8,(oldfading AND $01)>0);
160	0,1,2: oldsize:=GetImageDataSize(oldwidth,oldheight,16,(oldfading AND $01)>0);
161	8: oldsize:=GetImageDataSize(oldwidth,oldheight,32,(oldfading AND $01)>0);
162	ELSE
163	oldsize:=0;
164	END;
165	IF check_32bit.Checked THEN
166	newsize:=GetImageDataSize(imgpkg.imgx,imgpkg.imgy,32,check_fading.Checked)
167	ELSE
168	newsize:=GetImageDataSize(imgpkg.imgx,imgpkg.imgy,16,check_fading.Checked);
169
170	IF newsize<=oldsize THEN
171	new_rawaddr:=old_rawaddr
172	ELSE
173	new_rawaddr:=rawfile.Size;
174
175	datbyte:=$00;
176	IF check_fading.Checked THEN datbyte:=datbyte OR $01;
177	UpdateDatFilePart(id,$88,1,@datbyte);
178	datbyte:=$10;
179	IF check_transparency.Checked THEN datbyte:=datbyte OR $04;
180	UpdateDatFilePart(id,$89,1,@datbyte);
181	UpdateDatFilePart(id,$8C,2,@imgpkg.imgx);
182	UpdateDatFilePart(id,$8E,2,@imgpkg.imgy);
183	IF check_32bit.Checked THEN
184	datbyte:=$08
185	ELSE
186	datbyte:=$01;
187	UpdateDatFilePart(id,$90,1,@datbyte);
188	UpdateDatFilePart(id,$9C,4,@new_rawaddr);
189
190	IF check_fading.Checked THEN BEGIN
191	imgpkg.imgdata:=CreateFadedImage(imgpkg);
192	END;
193
194	rawfile.Seek(new_rawaddr,soFromBeginning);
195	rawfile.Write(imgpkg.imgdata[0],Length(imgpkg.imgdata));
196	rawfile.Free;
197
198	ShowMessage('TXMP-image replaced');
199	END;
200	END;
201
202	PROCEDURE TForm7.FormClose(Sender: TObject; var Action: TCloseAction);
203	BEGIN
204	Action:=caFree;
205	Form1.close_window(Self.Name);
206	END;
207
208	PROCEDURE TForm7.FormActivate(Sender: TObject);
209	BEGIN
210	Form1.SetActiveWindow(Self.Name);
211	END;
212
213	PROCEDURE TForm7.btn_saveClick(Sender: TObject);
214	VAR
215	filestream:TFileStream;
216	img:TImgPackage;
217	BEGIN
218	IF saved.Execute THEN BEGIN
219	img:=LoadImgData(GetFileIDByName(list_txmp.Items.Strings[list_txmp.ItemIndex]));
220	img.imgdata:=ImgdataToBMP(img.imgx,img.imgy,img.imgdepth,img.storetype,img.imgdata);
221	filestream:=TFileStream.Create(saved.FileName,fmCreate);
222	filestream.Write(img.imgdata[0],Length(img.imgdata));
223	filestream.Free;
224	END;
225	END;
226
227	END.