releases/0.19a/Unit11_extractor.pas

UNIT Unit11_extractor;
INTERFACE
USES
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, StrUtils, ComCtrls;
TYPE
  TForm11 = Class(TForm)
    group_select: TGroupBox;
    panel_extension: TPanel;
    combo_extension: TComboBox;
    list: TListBox;
    group_extract: TGroupBox;
    group_singlefiles: TGroupBox;
    btn_sel_dat: TButton;
    btn_sel_datraw: TButton;
    btn_sel_datraw_convert: TButton;
    btn_all_dat: TButton;
    btn_all_datraw: TButton;
    btn_all_datraw_convert: TButton;
    group_onefile: TGroupBox;
    btn_sel_files_toone: TButton;
    btn_all_files_toone: TButton;
    group_progress: TGroupBox;
    progress: TProgressBar;
    Label1: TLabel;
    Label2: TLabel;
    PROCEDURE FormCreate(Sender: TObject);
    PROCEDURE FormActivate(Sender: TObject);
    PROCEDURE FormClose(Sender: TObject; var Action: TCloseAction);
    PROCEDURE FormResize(Sender: TObject);
    PROCEDURE combo_extensionClick(Sender: TObject);
    PROCEDURE panel_extensionResize(Sender: TObject);
    PROCEDURE Extract(Sender: TObject);
  PRIVATE
  PUBLIC
    PROCEDURE Recreatelist;
  END;

VAR
  Form11: TForm11;

IMPLEMENTATION
{$R *.dfm}
USES Unit1_main, Unit2_functions, Unit3_data;

PROCEDURE TForm11.Recreatelist;
  VAR
    i:LongWord;
  BEGIN
    combo_extension.Items.Clear;
    combo_extension.Items.Add('_All files_ ('+IntToStr(dat_header.Files)+')');
    FOR i:=0 TO dat_header.Extensions-1 DO BEGIN
      WITH dat_extensionsmap[i] DO BEGIN
        combo_extension.Items.Add(
          Extension[3]+Extension[2]+Extension[1]+Extension[0]+' ('+
          IntToStr(ExtCount)+')');
      END;
    END;
    combo_extension.ItemIndex:=0;
    combo_extensionClick(Self);
  END;

PROCEDURE TForm11.panel_extensionResize(Sender: TObject);
  BEGIN
    combo_extension.Width:=panel_extension.Width-5;
  END;

PROCEDURE TForm11.combo_extensionClick(Sender: TObject);
  VAR
    Extension:String[4];
    i:LongWord;
  BEGIN
    Extension:=MidStr(combo_extension.Items.Strings[combo_extension.ItemIndex],1,4);
    list.Items.Clear;
    IF Extension='_All' THEN BEGIN
      FOR i:=0 TO dat_header.Files-1 DO
        IF (dat_files[i].FileType AND $02)=0 THEN
          list.Items.Add(dat_files[i].FileName);
    END ELSE BEGIN
      FOR i:=0 TO dat_header.Files-1 DO
        IF dat_files[i].Extension=Extension THEN
          IF (dat_files[i].FileType AND $02)=0 THEN
            list.Items.Add(dat_files[i].FileName);
    END;
  END;

PROCEDURE TForm11.FormResize(Sender: TObject);
  BEGIN
    IF Self.Width>=450 THEN BEGIN
    END ELSE Self.Width:=450;
    IF Self.Height>=400 THEN BEGIN
      group_progress.Height:=group_extract.Height-293;
    END ELSE Self.Height:=400;
  END;

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

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

PROCEDURE TForm11.FormCreate(Sender: TObject);
  BEGIN
    btn_sel_dat.Caption:=           'Selected files'+CrLf+'(dat contents only)';
    btn_sel_datraw.Caption:=        'Selected files'+CrLf+'(dat+raw contents)';
    btn_sel_datraw_convert.Caption:='Selected files'+CrLf+'(dat+raw contents)'+CrLf+'(with convert if possible)';
    btn_all_dat.Caption:=           'All files in list'+CrLf+'(dat contents only)';
    btn_all_datraw.Caption:=        'All files in list'+CrLf+'(dat+raw contents)';
    btn_all_datraw_convert.Caption:='All files in list'+CrLf+'(dat+raw contents)'+CrLf+'(with convert if possible)';
    btn_sel_files_toone.Caption:=   'Selected files'+CrLf+'(dat contents only)';
    btn_all_files_toone.Caption:=   'All files in list'+CrLf+'(dat contents only)';
  END;

PROCEDURE TForm11.Extract(Sender: TObject);
  VAR
    sel_only:Boolean;
    dat_only:Boolean;
    convert:Boolean;
    one_file:Boolean;
    files:LongWord;
    i:LongWord;
    fs:TFileStream;
    ms:TMemoryStream;
  BEGIN
    sel_only:=Pos('sel',TButton(Sender).Name)>0;
    dat_only:=NOT (Pos('datraw',TButton(Sender).Name)>0);
    convert:=Pos('convert',TButton(Sender).Name)>0;
    one_file:=Pos('toone',TButton(Sender).Name)>0;

    IF sel_only THEN BEGIN
      files:=list.SelCount;
      FOR i:=0 TO list.Count-1 DO BEGIN
        IF list.Selected[i] THEN BEGIN
          BEGIN END;
        END;
      END;
    END ELSE BEGIN
    END; 
  END;

END.
Revision:	21
Committed:	Sat Aug 26 19:11:49 2006 UTC (19 years, 2 months ago) by alloc
Content type:	text/x-pascal
File size:	4574 byte(s)
Log Message:
#	Content
1	UNIT Unit11_extractor;
2	INTERFACE
3	USES
4	Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
5	Dialogs, StdCtrls, ExtCtrls, StrUtils, ComCtrls;
6	TYPE
7	TForm11 = Class(TForm)
8	group_select: TGroupBox;
9	panel_extension: TPanel;
10	combo_extension: TComboBox;
11	list: TListBox;
12	group_extract: TGroupBox;
13	group_singlefiles: TGroupBox;
14	btn_sel_dat: TButton;
15	btn_sel_datraw: TButton;
16	btn_sel_datraw_convert: TButton;
17	btn_all_dat: TButton;
18	btn_all_datraw: TButton;
19	btn_all_datraw_convert: TButton;
20	group_onefile: TGroupBox;
21	btn_sel_files_toone: TButton;
22	btn_all_files_toone: TButton;
23	group_progress: TGroupBox;
24	progress: TProgressBar;
25	Label1: TLabel;
26	Label2: TLabel;
27	PROCEDURE FormCreate(Sender: TObject);
28	PROCEDURE FormActivate(Sender: TObject);
29	PROCEDURE FormClose(Sender: TObject; var Action: TCloseAction);
30	PROCEDURE FormResize(Sender: TObject);
31	PROCEDURE combo_extensionClick(Sender: TObject);
32	PROCEDURE panel_extensionResize(Sender: TObject);
33	PROCEDURE Extract(Sender: TObject);
34	PRIVATE
35	PUBLIC
36	PROCEDURE Recreatelist;
37	END;
38
39	VAR
40	Form11: TForm11;
41
42	IMPLEMENTATION
43	{$R *.dfm}
44	USES Unit1_main, Unit2_functions, Unit3_data;
45
46	PROCEDURE TForm11.Recreatelist;
47	VAR
48	i:LongWord;
49	BEGIN
50	combo_extension.Items.Clear;
51	combo_extension.Items.Add('_All files_ ('+IntToStr(dat_header.Files)+')');
52	FOR i:=0 TO dat_header.Extensions-1 DO BEGIN
53	WITH dat_extensionsmap[i] DO BEGIN
54	combo_extension.Items.Add(
55	Extension[3]+Extension[2]+Extension[1]+Extension[0]+' ('+
56	IntToStr(ExtCount)+')');
57	END;
58	END;
59	combo_extension.ItemIndex:=0;
60	combo_extensionClick(Self);
61	END;
62
63	PROCEDURE TForm11.panel_extensionResize(Sender: TObject);
64	BEGIN
65	combo_extension.Width:=panel_extension.Width-5;
66	END;
67
68	PROCEDURE TForm11.combo_extensionClick(Sender: TObject);
69	VAR
70	Extension:String[4];
71	i:LongWord;
72	BEGIN
73	Extension:=MidStr(combo_extension.Items.Strings[combo_extension.ItemIndex],1,4);
74	list.Items.Clear;
75	IF Extension='_All' THEN BEGIN
76	FOR i:=0 TO dat_header.Files-1 DO
77	IF (dat_files[i].FileType AND $02)=0 THEN
78	list.Items.Add(dat_files[i].FileName);
79	END ELSE BEGIN
80	FOR i:=0 TO dat_header.Files-1 DO
81	IF dat_files[i].Extension=Extension THEN
82	IF (dat_files[i].FileType AND $02)=0 THEN
83	list.Items.Add(dat_files[i].FileName);
84	END;
85	END;
86
87	PROCEDURE TForm11.FormResize(Sender: TObject);
88	BEGIN
89	IF Self.Width>=450 THEN BEGIN
90	END ELSE Self.Width:=450;
91	IF Self.Height>=400 THEN BEGIN
92	group_progress.Height:=group_extract.Height-293;
93	END ELSE Self.Height:=400;
94	END;
95
96	PROCEDURE TForm11.FormClose(Sender: TObject; var Action: TCloseAction);
97	BEGIN
98	Action:=caFree;
99	Form1.close_window(Self.Name);
100	END;
101
102	PROCEDURE TForm11.FormActivate(Sender: TObject);
103	BEGIN
104	Form1.SetActiveWindow(Self.Name);
105	END;
106
107	PROCEDURE TForm11.FormCreate(Sender: TObject);
108	BEGIN
109	btn_sel_dat.Caption:= 'Selected files'+CrLf+'(dat contents only)';
110	btn_sel_datraw.Caption:= 'Selected files'+CrLf+'(dat+raw contents)';
111	btn_sel_datraw_convert.Caption:='Selected files'+CrLf+'(dat+raw contents)'+CrLf+'(with convert if possible)';
112	btn_all_dat.Caption:= 'All files in list'+CrLf+'(dat contents only)';
113	btn_all_datraw.Caption:= 'All files in list'+CrLf+'(dat+raw contents)';
114	btn_all_datraw_convert.Caption:='All files in list'+CrLf+'(dat+raw contents)'+CrLf+'(with convert if possible)';
115	btn_sel_files_toone.Caption:= 'Selected files'+CrLf+'(dat contents only)';
116	btn_all_files_toone.Caption:= 'All files in list'+CrLf+'(dat contents only)';
117	END;
118
119	PROCEDURE TForm11.Extract(Sender: TObject);
120	VAR
121	sel_only:Boolean;
122	dat_only:Boolean;
123	convert:Boolean;
124	one_file:Boolean;
125	files:LongWord;
126	i:LongWord;
127	fs:TFileStream;
128	ms:TMemoryStream;
129	BEGIN
130	sel_only:=Pos('sel',TButton(Sender).Name)>0;
131	dat_only:=NOT (Pos('datraw',TButton(Sender).Name)>0);
132	convert:=Pos('convert',TButton(Sender).Name)>0;
133	one_file:=Pos('toone',TButton(Sender).Name)>0;
134
135	IF sel_only THEN BEGIN
136	files:=list.SelCount;
137	FOR i:=0 TO list.Count-1 DO BEGIN
138	IF list.Selected[i] THEN BEGIN
139	BEGIN END;
140	END;
141	END;
142	END ELSE BEGIN
143	END;
144	END;
145
146	END.