_old_/Tools/Template.pas

unit Template;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, StrUtils,
  OniDataClass, Functions, Data, Menus, Buttons;

type
  TNewFileSelectedEvent = procedure(fileinfo: TFileInfo) of object;
  TNewConnectionEvent = procedure(connection: TOniData) of object;

  TForm_ToolTemplate = class(TForm)
    panel_files: TPanel;
    filelist: TListBox;
    panel_extension: TPanel;
    label_ext: TLabel;
    combo_extension: TComboBox;
    check_zerobyte: TCheckBox;
    edit_filtername: TEdit;
    check_filtername: TCheckBox;
    Splitter1: TSplitter;
    content: TPanel;
    filepopup: TPopupMenu;
    popup_import: TMenuItem;
    popup_export: TMenuItem;
    popup_separator: TMenuItem;
    importd: TOpenDialog;
    exportd: TSaveDialog;
    btn_sort_id_asc: TSpeedButton;
    btn_sort_id_desc: TSpeedButton;
    btn_sort_name_asc: TSpeedButton;
    btn_sort_name_desc: TSpeedButton;
    btn_sort_ext_asc: TSpeedButton;
    btn_sort_ext_desc: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    combo_connection: TComboBox;
    Bevel1: TBevel;
    procedure RecreateList;
    procedure UpdateList;
    procedure RecreateExtList;
    procedure LoadFileNames;
    procedure SelectFileName(connection: TOniData; filename: String);
    procedure SelectFileID(connection: TOniData; id: Integer);
    procedure check_filternameClick(Sender: TObject);
    procedure check_zerobyteClick(Sender: TObject);
    procedure combo_extensionClick(Sender: TObject);
    procedure listClick(Sender: TObject);
    procedure listMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);

    procedure FormResize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure popup_importClick(Sender: TObject);
    procedure popup_exportClick(Sender: TObject);
    procedure popup_opentool(Sender: TObject);
    procedure filepopupPopup(Sender: TObject);
    procedure btn_sortClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure combo_connectionChange(Sender: TObject);
  private
    FSortBy: TSortType;
    FOnNewFileSelected: TNewFileSelectedEvent;
    FOnNewConnection: TNewConnectionEvent;
    FAllowedExts: String;
    FAllowMultiSelect: Boolean;
    FSelectedFile: TFileInfo;
    FConnection: TOniData;
    procedure SetAllowedExts(exts: String);
    procedure SetMultiSelect(allow: Boolean);
  public
    constructor Create(AOwner: TComponent); override;
    procedure SetFileFilters(pattern, extension: String; zerobytes: Boolean);
  published
    property OnNewFileSelected: TNewFileSelectedEvent read FOnNewFileSelected write FOnNewFileSelected;
    property OnNewConnection: TNewConnectionEvent read FOnNewConnection write FOnNewConnection;
    property AllowedExts: String read FAllowedExts write SetAllowedExts;
    property AllowMultiSelect: Boolean read FAllowMultiSelect write SetMultiSelect;
    property SelectedFile: TFileInfo read FSelectedFile;
    property Connection: TOniData read FConnection;
  end;

var
  ToolList: TToolList;
procedure AddToolListEntry(context, name, exts: String);

implementation
{$R *.dfm}
uses Main, Exporters;


procedure TForm_ToolTemplate.UpdateList;
var
  i: Integer;
  fn, datatype, boxstring: String;
  level: Integer;
  oldcon: String;
begin
  oldcon := combo_connection.Items.Strings[combo_connection.ItemIndex];
  combo_connection.ItemIndex := -1;
  combo_connection.Items.Clear;
  if Length(DataConnections) > 0 then
  begin
    for i := 0 to High(DataConnections) do
    begin
      level := DataConnections[i].LevelInfo.LevelNumber;
      fn := ExtractFileName(DataConnections[i].FileName);
      if DataConnections[i].Backend = ODB_Dat then
        datatype := 'ONI-.dat: '
      else if DataConnections[i].Backend = ODB_ADB then
        datatype := 'OUP-DB: '
      else
        datatype := 'Unknown: ';
      boxstring := datatype + fn + ' (Level: ' + IntToStr(level) + ')';
      combo_connection.Items.Add(boxstring);
      if oldcon = boxstring then
        combo_connection.ItemIndex := combo_connection.Items.Count - 1;
    end;
    if combo_connection.ItemIndex = -1 then
    begin
      combo_connection.ItemIndex := 0;
      combo_connectionChange(Self);
    end;
  end
  else
  begin
    FConnection := nil;
    filelist.Items.Clear;
    combo_extension.Items.Clear;
    combo_connectionChange(Self);
    FSelectedFile := GetEmptyFileInfo;
    if Assigned(FOnNewFileSelected) then
      FOnNewFileSelected(FSelectedFile);
  end;
end;

procedure TForm_ToolTemplate.RecreateList;
var
  i: Integer;
  fn, datatype: String;
  level: Integer;
begin
  combo_connection.Items.Clear;
  if Length(DataConnections) > 0 then
  begin
    for i := 0 to High(DataConnections) do
    begin
      level := DataConnections[i].LevelInfo.LevelNumber;
      fn := ExtractFileName(DataConnections[i].FileName);
      if DataConnections[i].Backend = ODB_Dat then
        datatype := 'ONI-.dat: '
      else if DataConnections[i].Backend = ODB_ADB then
        datatype := 'OUP-DB: '
      else
        datatype := 'Unknown: ';
      combo_connection.Items.Add(datatype + fn + ' (Level: ' + IntToStr(level) + ')');
    end;
    FConnection := DataConnections[0];
    combo_connection.ItemIndex := 0;
    combo_connectionChange(Self);
  end
  else
  begin
    FConnection := nil;
    filelist.Items.Clear;
    combo_extension.Items.Clear;
    combo_connectionChange(Self);
  end;
end;

procedure TForm_ToolTemplate.RecreateExtList;
var
  i:    LongWord;
  exts: TStringArray;
begin
  combo_extension.Items.Clear;
  if FConnection <> nil then
  begin
    combo_extension.Items.Add('_All files_ (' +
      IntToStr(FConnection.GetFilesCount) + ')');
    exts := FConnection.GetExtensionsList;
    for i := 0 to High(exts) do
      if Length(FAllowedExts) > 0 then
      begin
        if Pos(MidStr(exts[i],1,4), FAllowedExts) > 0 then
        begin
          combo_extension.Items.Add(exts[i]);
        end;
      end else
        combo_extension.Items.Add(exts[i]);
    combo_extension.ItemIndex := 0;
    combo_extensionClick(Self);
  end;
end;


procedure TForm_ToolTemplate.LoadFileNames;
var
  Extension: String;
  no_zero_bytes: Boolean;
  pattern: String;
  files: TStringArray;
  i: LongWord;
begin
  if FConnection <> nil then
  begin
    Extension := MidStr(combo_extension.Items.Strings[combo_extension.ItemIndex], 1, 4);
    no_zero_bytes := not check_zerobyte.Checked;
    pattern := '';
    if check_filtername.Checked then
      pattern := edit_filtername.Text;
    if Extension = '_All' then
      if Length(FAllowedExts) > 0 then
        Extension := FAllowedExts
      else
        Extension := '';

    files := FConnection.GetFilesList(extension, pattern, no_zero_bytes, FSortBy);

    filelist.Visible := False;
    filelist.Items.Clear;
    if Length(files) > 0 then
      for i := 0 to High(files) do
        filelist.Items.Add(files[i]);
    filelist.Visible := True;
  end;
end;


procedure TForm_ToolTemplate.popup_exportClick(Sender: TObject);
var
  id: Integer;
  ext: String;
begin
  id := FConnection.ExtractFileID(filelist.Items.Strings[filelist.ItemIndex]);
  ext := RightStr(filelist.Items.Strings[filelist.ItemIndex], 4);
  exportd.Filter := 'Files of matching extension (*.' + ext + ')|*.' + ext + '|All files|*.*';
  exportd.DefaultExt := ext;
  if exportd.Execute then
    ExportDatFile(FConnection, id, exportd.FileName);
end;

procedure TForm_ToolTemplate.popup_importClick(Sender: TObject);
var
  id: Integer;
  finfo: TFileInfo;
  fs: TFileStream;
  data: TData;
begin
  id := FConnection.ExtractFileID(filelist.Items.Strings[filelist.ItemIndex]);
  finfo := FConnection.GetFileInfo(id);

  importd.Filter := 'Files of matching extension (*.' + finfo.Extension + ')|*.' +
        finfo.Extension + '|All files|*.*';
  if importd.Execute then
  begin
    fs := TFileStream.Create(importd.FileName, fmOpenRead);
    if fs.Size <> finfo.Size then
      ShowMessage('Can''t import ' + ExtractFilename(importd.FileName) +
        ', file has to have same size as file in .dat.' + CrLf +
        'Size of file in .dat: ' + FormatFileSize(finfo.Size) + CrLf +
        'Size of chosen file: ' + FormatFileSize(fs.Size))
    else begin
      SetLength(data, fs.Size);
      fs.Read(data[0], fs.Size);
      FConnection.UpdateDatFile(id, data);
      Self.listClick(Self);
    end;
    fs.Free;
  end;
end;

procedure TForm_ToolTemplate.popup_opentool(Sender: TObject);
var
  sender_name, context: String;
  id: Integer;
begin
  sender_name := TComponent(Sender).Name;
  id := FConnection.ExtractFileID(filelist.Items.Strings[filelist.ItemIndex]);
  context := MidStr(sender_name, Pos('_', sender_name) + 1, Length(sender_name) - Pos('_', sender_name));
  Form_Main.open_child(context, FConnection, id);
end;

procedure TForm_ToolTemplate.combo_connectionChange(Sender: TObject);
var
  name: String;
  nstart, nend: Integer;
  i: Integer;
begin
  if combo_connection.ItemIndex >= 0 then
  begin
    name := combo_connection.Items.Strings[combo_connection.ItemIndex];
    nstart := Pos(' ', name) + 1;
    nend := Pos('(', name) - 1;
    name := MidStr(name, nstart, nend - nstart);

    for i := 0 to High(DataConnections) do
    begin
      if ExtractFileName(DataConnections[i].FileName) = name then
      begin
        FConnection := DataConnections[i];
        Break;
      end;
    end;
    if i = Length(DataConnections) then
      FConnection := nil;

    RecreateExtList;
    if Assigned(FOnNewConnection) then
      FOnNewConnection(FConnection);
  end;
end;

procedure TForm_ToolTemplate.combo_extensionClick(Sender: TObject);
begin
  LoadFileNames;
end;


constructor TForm_ToolTemplate.Create(AOwner: TComponent);
var
  i: Integer;
  item: TMenuItem;
begin
  inherited;
  RecreateList;
  FSelectedFile := GetEmptyFileInfo;
  if Length(ToolList) > 0 then
  begin
    for i := 0 to High(ToolList) do
    begin
      item := TMenuItem.Create(filepopup);
      item.Name := 'popup_' + ToolList[i].context;
      item.Caption := 'Open with ' + ToolList[i].name;
      item.OnClick := Self.popup_opentool;
      filepopup.Items.Insert(i, item);
    end;
  end;
end;

procedure TForm_ToolTemplate.filepopupPopup(Sender: TObject);
var
  ext: String;
  i: Integer;
begin
  ext := RightStr(filelist.Items.Strings[filelist.ItemIndex], 4);
  for i := 0 to High(ToolList) do
  begin
    filepopup.Items.Items[i].Enabled := True;
    if Length(ToolList[i].exts) > 0 then
      if Pos(ext, ToolList[i].exts) = 0 then
        filepopup.Items.Items[i].Enabled := False;
  end;
end;

procedure TForm_ToolTemplate.check_zerobyteClick(Sender: TObject);
begin
  LoadFileNames;
end;

procedure TForm_ToolTemplate.btn_sortClick(Sender: TObject);
begin
  if btn_sort_id_asc.Down then
    FSortBy := stIDAsc
  else if btn_sort_id_desc.Down then
    FSortBy := stIDDesc
  else if btn_sort_name_asc.Down then
    FSortBy := stNameAsc
  else if btn_sort_name_desc.Down then
    FSortBy := stNameDesc
  else if btn_sort_ext_asc.Down then
    FSortBy := stExtAsc
  else if btn_sort_ext_desc.Down then
    FSortBy := stExtDesc;
  LoadFileNames;
end;

procedure TForm_ToolTemplate.check_filternameClick(Sender: TObject);
begin
  edit_filtername.Enabled := not check_filtername.Checked;
  LoadFileNames;
end;

procedure TForm_ToolTemplate.listClick(Sender: TObject);
var
  fileid: Integer;
begin
  if filelist.ItemIndex > -1 then
  begin
    fileid := FConnection.ExtractFileID(
          filelist.Items.Strings[filelist.ItemIndex]);
    FSelectedFile := FConnection.GetFileInfo(fileid);
    if Assigned(FOnNewFileSelected) then
      FOnNewFileSelected(FSelectedFile);
  end;
end;

procedure TForm_ToolTemplate.listMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  pt: TPoint;
begin
  pt.X := x;
  pt.Y := y;
//  filelist.ItemIndex := filelist.ItemAtPos(pt, true);
//  Self.listClick(Self);
end;


procedure TForm_ToolTemplate.SelectFileID(connection: TOniData; id: Integer);
var
  i: Integer;
  name: String;
  nstart, nend: Integer;
begin
  for i := 0 to combo_connection.Items.Count - 1 do
  begin
    name := combo_connection.Items.Strings[i];
    nstart := Pos(' ', name) + 1;
    nend := Pos('(', name) - 1;
    name := MidStr(name, nstart, nend - nstart);

    if ExtractFileName(connection.FileName) = name then
    begin
      combo_connection.ItemIndex := i;
      combo_connectionChange(Self);
    end;
  end;

  filelist.ItemIndex := -1;
  if filelist.Items.Count > 0 then
    for i := 0 to filelist.Items.Count - 1 do
      if FConnection.ExtractFileID(filelist.Items.Strings[i]) = id then
      begin
        filelist.ItemIndex := i;
        Break;
      end;
  Self.listClick(Self);
end;

procedure TForm_ToolTemplate.SelectFileName(connection: TOniData; filename: String);
var
  i: Integer;
  name: String;
  nstart, nend: Integer;
begin
  for i := 0 to combo_connection.Items.Count - 1 do
  begin
    name := combo_connection.Items.Strings[i];
    nstart := Pos(' ', name) + 1;
    nend := Pos('(', name) - 1;
    name := MidStr(name, nstart, nend - nstart);

    if ExtractFileName(connection.FileName) = name then
    begin
      combo_connection.ItemIndex := i;
      combo_connectionChange(Self);
    end;
  end;

  filelist.ItemIndex := -1;
  if filelist.Items.Count > 0 then
    for i := 0 to filelist.Items.Count - 1 do
      if filelist.Items.Strings[i] = filename then
        filelist.ItemIndex := i;
  Self.listClick(Self);
end;

procedure TForm_ToolTemplate.SetAllowedExts(exts: String);
begin
  FAllowedExts := exts;
  RecreateExtList;
end;

procedure TForm_ToolTemplate.SetFileFilters(pattern, extension: String;
  zerobytes: Boolean);
var
  i: Integer;
begin
  if Length(pattern) > 0 then
    Self.edit_filtername.Text := pattern;
  Self.check_filtername.Checked := Length(pattern) > 0;
  if Length(extension) > 0 then
  begin
    for i := 0 to Self.combo_extension.Items.Count - 1 do
      if Pos(extension, Self.combo_extension.Items.Strings[i]) > 0 then
        Break;
    if i < Self.combo_extension.Items.Count then
      Self.combo_extension.ItemIndex := i
    else
      Self.combo_extension.ItemIndex := -1;
  end;
  Self.check_zerobyte.Checked := zerobytes;
  Self.LoadFileNames;
end;

procedure TForm_ToolTemplate.SetMultiSelect(allow: Boolean);
begin
  FAllowMultiSelect := allow;
  filelist.MultiSelect := allow;
end;


procedure TForm_ToolTemplate.FormResize(Sender: TObject);
begin
  if Self.Width < 300 then
    Self.Width := 300;
  if Self.Height < 200 then
    Self.Height := 200;
end;


procedure TForm_ToolTemplate.FormCreate(Sender: TObject);
begin
  Self.Width  := 260;
  Self.Height := 300;
  FOnNewFileSelected := nil;
  FOnNewConnection := nil;
  FAllowedExts := '';
  FAllowMultiSelect := False;
end;

procedure TForm_ToolTemplate.FormActivate(Sender: TObject);
begin
  if edit_filtername.CanFocus then
    edit_filtername.SetFocus
  else
    if content.CanFocus then
      content.SetFocus;
end;

procedure TForm_ToolTemplate.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;


procedure AddToolListEntryExt(context, ext: String);
var
  i: Integer;
begin
  for i := 0 to High(ToolList) do
    if ToolList[i].context = context then
    begin
      if Pos(ext, ToolList[i].exts) = 0 then
      begin
        if Length(ToolList[i].exts) = 0 then
          ToolList[i].exts := ext
        else
          ToolList[i].exts := ToolList[i].exts + ',' + ext;
      end;
      Exit;
    end;
end;

procedure AddToolListEntry(context, name, exts: String);
var
  i: Integer;
begin
  if Length(ToolList) > 0 then
  begin
    for i := 0 to High(ToolList) do
      if ToolList[i].context = context then
      begin
        if (Length(ToolList[i].name) = 0) and (Length(name) > 0) then
          ToolList[i].name := name;
        if Length(exts) > 0 then
          AddToolListEntryExt(context, exts);
        Exit;
      end;
  end;
  SetLength(ToolList, Length(ToolList) + 1);
  for i := High(ToolList) downto 1 do
    if ToolList[i - 1].name > name then
      ToolList[i] := ToolList[i - 1]
    else
      Break;
  ToolList[i].context := context;
  ToolList[i].name := name;
  ToolList[i].exts := exts;
end;

end.
Revision:	108
Committed:	Wed Feb 21 03:11:59 2007 UTC (18 years, 7 months ago) by alloc
Content type:	text/x-pascal
File size:	16918 byte(s)
Log Message:
#	Content
1	unit Template;
2
3	interface
4
5	uses
6	Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7	Dialogs, ExtCtrls, StdCtrls, StrUtils,
8	OniDataClass, Functions, Data, Menus, Buttons;
9
10	type
11	TNewFileSelectedEvent = procedure(fileinfo: TFileInfo) of object;
12	TNewConnectionEvent = procedure(connection: TOniData) of object;
13
14	TForm_ToolTemplate = class(TForm)
15	panel_files: TPanel;
16	filelist: TListBox;
17	panel_extension: TPanel;
18	label_ext: TLabel;
19	combo_extension: TComboBox;
20	check_zerobyte: TCheckBox;
21	edit_filtername: TEdit;
22	check_filtername: TCheckBox;
23	Splitter1: TSplitter;
24	content: TPanel;
25	filepopup: TPopupMenu;
26	popup_import: TMenuItem;
27	popup_export: TMenuItem;
28	popup_separator: TMenuItem;
29	importd: TOpenDialog;
30	exportd: TSaveDialog;
31	btn_sort_id_asc: TSpeedButton;
32	btn_sort_id_desc: TSpeedButton;
33	btn_sort_name_asc: TSpeedButton;
34	btn_sort_name_desc: TSpeedButton;
35	btn_sort_ext_asc: TSpeedButton;
36	btn_sort_ext_desc: TSpeedButton;
37	Label1: TLabel;
38	Label2: TLabel;
39	Label3: TLabel;
40	combo_connection: TComboBox;
41	Bevel1: TBevel;
42	procedure RecreateList;
43	procedure UpdateList;
44	procedure RecreateExtList;
45	procedure LoadFileNames;
46	procedure SelectFileName(connection: TOniData; filename: String);
47	procedure SelectFileID(connection: TOniData; id: Integer);
48	procedure check_filternameClick(Sender: TObject);
49	procedure check_zerobyteClick(Sender: TObject);
50	procedure combo_extensionClick(Sender: TObject);
51	procedure listClick(Sender: TObject);
52	procedure listMouseDown(Sender: TObject; Button: TMouseButton;
53	Shift: TShiftState; X, Y: Integer);
54
55	procedure FormResize(Sender: TObject);
56	procedure FormCreate(Sender: TObject);
57	procedure FormClose(Sender: TObject; var Action: TCloseAction);
58	procedure popup_importClick(Sender: TObject);
59	procedure popup_exportClick(Sender: TObject);
60	procedure popup_opentool(Sender: TObject);
61	procedure filepopupPopup(Sender: TObject);
62	procedure btn_sortClick(Sender: TObject);
63	procedure FormActivate(Sender: TObject);
64	procedure combo_connectionChange(Sender: TObject);
65	private
66	FSortBy: TSortType;
67	FOnNewFileSelected: TNewFileSelectedEvent;
68	FOnNewConnection: TNewConnectionEvent;
69	FAllowedExts: String;
70	FAllowMultiSelect: Boolean;
71	FSelectedFile: TFileInfo;
72	FConnection: TOniData;
73	procedure SetAllowedExts(exts: String);
74	procedure SetMultiSelect(allow: Boolean);
75	public
76	constructor Create(AOwner: TComponent); override;
77	procedure SetFileFilters(pattern, extension: String; zerobytes: Boolean);
78	published
79	property OnNewFileSelected: TNewFileSelectedEvent read FOnNewFileSelected write FOnNewFileSelected;
80	property OnNewConnection: TNewConnectionEvent read FOnNewConnection write FOnNewConnection;
81	property AllowedExts: String read FAllowedExts write SetAllowedExts;
82	property AllowMultiSelect: Boolean read FAllowMultiSelect write SetMultiSelect;
83	property SelectedFile: TFileInfo read FSelectedFile;
84	property Connection: TOniData read FConnection;
85	end;
86
87	var
88	ToolList: TToolList;
89	procedure AddToolListEntry(context, name, exts: String);
90
91	implementation
92	{$R *.dfm}
93	uses Main, Exporters;
94
95
96	procedure TForm_ToolTemplate.UpdateList;
97	var
98	i: Integer;
99	fn, datatype, boxstring: String;
100	level: Integer;
101	oldcon: String;
102	begin
103	oldcon := combo_connection.Items.Strings[combo_connection.ItemIndex];
104	combo_connection.ItemIndex := -1;
105	combo_connection.Items.Clear;
106	if Length(DataConnections) > 0 then
107	begin
108	for i := 0 to High(DataConnections) do
109	begin
110	level := DataConnections[i].LevelInfo.LevelNumber;
111	fn := ExtractFileName(DataConnections[i].FileName);
112	if DataConnections[i].Backend = ODB_Dat then
113	datatype := 'ONI-.dat: '
114	else if DataConnections[i].Backend = ODB_ADB then
115	datatype := 'OUP-DB: '
116	else
117	datatype := 'Unknown: ';
118	boxstring := datatype + fn + ' (Level: ' + IntToStr(level) + ')';
119	combo_connection.Items.Add(boxstring);
120	if oldcon = boxstring then
121	combo_connection.ItemIndex := combo_connection.Items.Count - 1;
122	end;
123	if combo_connection.ItemIndex = -1 then
124	begin
125	combo_connection.ItemIndex := 0;
126	combo_connectionChange(Self);
127	end;
128	end
129	else
130	begin
131	FConnection := nil;
132	filelist.Items.Clear;
133	combo_extension.Items.Clear;
134	combo_connectionChange(Self);
135	FSelectedFile := GetEmptyFileInfo;
136	if Assigned(FOnNewFileSelected) then
137	FOnNewFileSelected(FSelectedFile);
138	end;
139	end;
140
141	procedure TForm_ToolTemplate.RecreateList;
142	var
143	i: Integer;
144	fn, datatype: String;
145	level: Integer;
146	begin
147	combo_connection.Items.Clear;
148	if Length(DataConnections) > 0 then
149	begin
150	for i := 0 to High(DataConnections) do
151	begin
152	level := DataConnections[i].LevelInfo.LevelNumber;
153	fn := ExtractFileName(DataConnections[i].FileName);
154	if DataConnections[i].Backend = ODB_Dat then
155	datatype := 'ONI-.dat: '
156	else if DataConnections[i].Backend = ODB_ADB then
157	datatype := 'OUP-DB: '
158	else
159	datatype := 'Unknown: ';
160	combo_connection.Items.Add(datatype + fn + ' (Level: ' + IntToStr(level) + ')');
161	end;
162	FConnection := DataConnections[0];
163	combo_connection.ItemIndex := 0;
164	combo_connectionChange(Self);
165	end
166	else
167	begin
168	FConnection := nil;
169	filelist.Items.Clear;
170	combo_extension.Items.Clear;
171	combo_connectionChange(Self);
172	end;
173	end;
174
175	procedure TForm_ToolTemplate.RecreateExtList;
176	var
177	i: LongWord;
178	exts: TStringArray;
179	begin
180	combo_extension.Items.Clear;
181	if FConnection <> nil then
182	begin
183	combo_extension.Items.Add('_All files_ (' +
184	IntToStr(FConnection.GetFilesCount) + ')');
185	exts := FConnection.GetExtensionsList;
186	for i := 0 to High(exts) do
187	if Length(FAllowedExts) > 0 then
188	begin
189	if Pos(MidStr(exts[i],1,4), FAllowedExts) > 0 then
190	begin
191	combo_extension.Items.Add(exts[i]);
192	end;
193	end else
194	combo_extension.Items.Add(exts[i]);
195	combo_extension.ItemIndex := 0;
196	combo_extensionClick(Self);
197	end;
198	end;
199
200
201
202
203	procedure TForm_ToolTemplate.LoadFileNames;
204	var
205	Extension: String;
206	no_zero_bytes: Boolean;
207	pattern: String;
208	files: TStringArray;
209	i: LongWord;
210	begin
211	if FConnection <> nil then
212	begin
213	Extension := MidStr(combo_extension.Items.Strings[combo_extension.ItemIndex], 1, 4);
214	no_zero_bytes := not check_zerobyte.Checked;
215	pattern := '';
216	if check_filtername.Checked then
217	pattern := edit_filtername.Text;
218	if Extension = '_All' then
219	if Length(FAllowedExts) > 0 then
220	Extension := FAllowedExts
221	else
222	Extension := '';
223
224	files := FConnection.GetFilesList(extension, pattern, no_zero_bytes, FSortBy);
225
226	filelist.Visible := False;
227	filelist.Items.Clear;
228	if Length(files) > 0 then
229	for i := 0 to High(files) do
230	filelist.Items.Add(files[i]);
231	filelist.Visible := True;
232	end;
233	end;
234
235
236	procedure TForm_ToolTemplate.popup_exportClick(Sender: TObject);
237	var
238	id: Integer;
239	ext: String;
240	begin
241	id := FConnection.ExtractFileID(filelist.Items.Strings[filelist.ItemIndex]);
242	ext := RightStr(filelist.Items.Strings[filelist.ItemIndex], 4);
243	exportd.Filter := 'Files of matching extension (.' + ext + ')\|.' + ext + '\|All files\|.';
244	exportd.DefaultExt := ext;
245	if exportd.Execute then
246	ExportDatFile(FConnection, id, exportd.FileName);
247	end;
248
249	procedure TForm_ToolTemplate.popup_importClick(Sender: TObject);
250	var
251	id: Integer;
252	finfo: TFileInfo;
253	fs: TFileStream;
254	data: TData;
255	begin
256	id := FConnection.ExtractFileID(filelist.Items.Strings[filelist.ItemIndex]);
257	finfo := FConnection.GetFileInfo(id);
258
259	importd.Filter := 'Files of matching extension (.' + finfo.Extension + ')\|.' +
260	finfo.Extension + '\|All files\|.';
261	if importd.Execute then
262	begin
263	fs := TFileStream.Create(importd.FileName, fmOpenRead);
264	if fs.Size <> finfo.Size then
265	ShowMessage('Can''t import ' + ExtractFilename(importd.FileName) +
266	', file has to have same size as file in .dat.' + CrLf +
267	'Size of file in .dat: ' + FormatFileSize(finfo.Size) + CrLf +
268	'Size of chosen file: ' + FormatFileSize(fs.Size))
269	else begin
270	SetLength(data, fs.Size);
271	fs.Read(data[0], fs.Size);
272	FConnection.UpdateDatFile(id, data);
273	Self.listClick(Self);
274	end;
275	fs.Free;
276	end;
277	end;
278
279	procedure TForm_ToolTemplate.popup_opentool(Sender: TObject);
280	var
281	sender_name, context: String;
282	id: Integer;
283	begin
284	sender_name := TComponent(Sender).Name;
285	id := FConnection.ExtractFileID(filelist.Items.Strings[filelist.ItemIndex]);
286	context := MidStr(sender_name, Pos('_', sender_name) + 1, Length(sender_name) - Pos('_', sender_name));
287	Form_Main.open_child(context, FConnection, id);
288	end;
289
290	procedure TForm_ToolTemplate.combo_connectionChange(Sender: TObject);
291	var
292	name: String;
293	nstart, nend: Integer;
294	i: Integer;
295	begin
296	if combo_connection.ItemIndex >= 0 then
297	begin
298	name := combo_connection.Items.Strings[combo_connection.ItemIndex];
299	nstart := Pos(' ', name) + 1;
300	nend := Pos('(', name) - 1;
301	name := MidStr(name, nstart, nend - nstart);
302
303	for i := 0 to High(DataConnections) do
304	begin
305	if ExtractFileName(DataConnections[i].FileName) = name then
306	begin
307	FConnection := DataConnections[i];
308	Break;
309	end;
310	end;
311	if i = Length(DataConnections) then
312	FConnection := nil;
313
314	RecreateExtList;
315	if Assigned(FOnNewConnection) then
316	FOnNewConnection(FConnection);
317	end;
318	end;
319
320	procedure TForm_ToolTemplate.combo_extensionClick(Sender: TObject);
321	begin
322	LoadFileNames;
323	end;
324
325
326	constructor TForm_ToolTemplate.Create(AOwner: TComponent);
327	var
328	i: Integer;
329	item: TMenuItem;
330	begin
331	inherited;
332	RecreateList;
333	FSelectedFile := GetEmptyFileInfo;
334	if Length(ToolList) > 0 then
335	begin
336	for i := 0 to High(ToolList) do
337	begin
338	item := TMenuItem.Create(filepopup);
339	item.Name := 'popup_' + ToolList[i].context;
340	item.Caption := 'Open with ' + ToolList[i].name;
341	item.OnClick := Self.popup_opentool;
342	filepopup.Items.Insert(i, item);
343	end;
344	end;
345	end;
346
347	procedure TForm_ToolTemplate.filepopupPopup(Sender: TObject);
348	var
349	ext: String;
350	i: Integer;
351	begin
352	ext := RightStr(filelist.Items.Strings[filelist.ItemIndex], 4);
353	for i := 0 to High(ToolList) do
354	begin
355	filepopup.Items.Items[i].Enabled := True;
356	if Length(ToolList[i].exts) > 0 then
357	if Pos(ext, ToolList[i].exts) = 0 then
358	filepopup.Items.Items[i].Enabled := False;
359	end;
360	end;
361
362	procedure TForm_ToolTemplate.check_zerobyteClick(Sender: TObject);
363	begin
364	LoadFileNames;
365	end;
366
367	procedure TForm_ToolTemplate.btn_sortClick(Sender: TObject);
368	begin
369	if btn_sort_id_asc.Down then
370	FSortBy := stIDAsc
371	else if btn_sort_id_desc.Down then
372	FSortBy := stIDDesc
373	else if btn_sort_name_asc.Down then
374	FSortBy := stNameAsc
375	else if btn_sort_name_desc.Down then
376	FSortBy := stNameDesc
377	else if btn_sort_ext_asc.Down then
378	FSortBy := stExtAsc
379	else if btn_sort_ext_desc.Down then
380	FSortBy := stExtDesc;
381	LoadFileNames;
382	end;
383
384	procedure TForm_ToolTemplate.check_filternameClick(Sender: TObject);
385	begin
386	edit_filtername.Enabled := not check_filtername.Checked;
387	LoadFileNames;
388	end;
389
390	procedure TForm_ToolTemplate.listClick(Sender: TObject);
391	var
392	fileid: Integer;
393	begin
394	if filelist.ItemIndex > -1 then
395	begin
396	fileid := FConnection.ExtractFileID(
397	filelist.Items.Strings[filelist.ItemIndex]);
398	FSelectedFile := FConnection.GetFileInfo(fileid);
399	if Assigned(FOnNewFileSelected) then
400	FOnNewFileSelected(FSelectedFile);
401	end;
402	end;
403
404	procedure TForm_ToolTemplate.listMouseDown(Sender: TObject; Button: TMouseButton;
405	Shift: TShiftState; X, Y: Integer);
406	var
407	pt: TPoint;
408	begin
409	pt.X := x;
410	pt.Y := y;
411	// filelist.ItemIndex := filelist.ItemAtPos(pt, true);
412	// Self.listClick(Self);
413	end;
414
415
416
417	procedure TForm_ToolTemplate.SelectFileID(connection: TOniData; id: Integer);
418	var
419	i: Integer;
420	name: String;
421	nstart, nend: Integer;
422	begin
423	for i := 0 to combo_connection.Items.Count - 1 do
424	begin
425	name := combo_connection.Items.Strings[i];
426	nstart := Pos(' ', name) + 1;
427	nend := Pos('(', name) - 1;
428	name := MidStr(name, nstart, nend - nstart);
429
430	if ExtractFileName(connection.FileName) = name then
431	begin
432	combo_connection.ItemIndex := i;
433	combo_connectionChange(Self);
434	end;
435	end;
436
437	filelist.ItemIndex := -1;
438	if filelist.Items.Count > 0 then
439	for i := 0 to filelist.Items.Count - 1 do
440	if FConnection.ExtractFileID(filelist.Items.Strings[i]) = id then
441	begin
442	filelist.ItemIndex := i;
443	Break;
444	end;
445	Self.listClick(Self);
446	end;
447
448	procedure TForm_ToolTemplate.SelectFileName(connection: TOniData; filename: String);
449	var
450	i: Integer;
451	name: String;
452	nstart, nend: Integer;
453	begin
454	for i := 0 to combo_connection.Items.Count - 1 do
455	begin
456	name := combo_connection.Items.Strings[i];
457	nstart := Pos(' ', name) + 1;
458	nend := Pos('(', name) - 1;
459	name := MidStr(name, nstart, nend - nstart);
460
461	if ExtractFileName(connection.FileName) = name then
462	begin
463	combo_connection.ItemIndex := i;
464	combo_connectionChange(Self);
465	end;
466	end;
467
468	filelist.ItemIndex := -1;
469	if filelist.Items.Count > 0 then
470	for i := 0 to filelist.Items.Count - 1 do
471	if filelist.Items.Strings[i] = filename then
472	filelist.ItemIndex := i;
473	Self.listClick(Self);
474	end;
475
476	procedure TForm_ToolTemplate.SetAllowedExts(exts: String);
477	begin
478	FAllowedExts := exts;
479	RecreateExtList;
480	end;
481
482	procedure TForm_ToolTemplate.SetFileFilters(pattern, extension: String;
483	zerobytes: Boolean);
484	var
485	i: Integer;
486	begin
487	if Length(pattern) > 0 then
488	Self.edit_filtername.Text := pattern;
489	Self.check_filtername.Checked := Length(pattern) > 0;
490	if Length(extension) > 0 then
491	begin
492	for i := 0 to Self.combo_extension.Items.Count - 1 do
493	if Pos(extension, Self.combo_extension.Items.Strings[i]) > 0 then
494	Break;
495	if i < Self.combo_extension.Items.Count then
496	Self.combo_extension.ItemIndex := i
497	else
498	Self.combo_extension.ItemIndex := -1;
499	end;
500	Self.check_zerobyte.Checked := zerobytes;
501	Self.LoadFileNames;
502	end;
503
504	procedure TForm_ToolTemplate.SetMultiSelect(allow: Boolean);
505	begin
506	FAllowMultiSelect := allow;
507	filelist.MultiSelect := allow;
508	end;
509
510
511	procedure TForm_ToolTemplate.FormResize(Sender: TObject);
512	begin
513	if Self.Width < 300 then
514	Self.Width := 300;
515	if Self.Height < 200 then
516	Self.Height := 200;
517	end;
518
519
520
521	procedure TForm_ToolTemplate.FormCreate(Sender: TObject);
522	begin
523	Self.Width := 260;
524	Self.Height := 300;
525	FOnNewFileSelected := nil;
526	FOnNewConnection := nil;
527	FAllowedExts := '';
528	FAllowMultiSelect := False;
529	end;
530
531	procedure TForm_ToolTemplate.FormActivate(Sender: TObject);
532	begin
533	if edit_filtername.CanFocus then
534	edit_filtername.SetFocus
535	else
536	if content.CanFocus then
537	content.SetFocus;
538	end;
539
540	procedure TForm_ToolTemplate.FormClose(Sender: TObject; var Action: TCloseAction);
541	begin
542	Action := caFree;
543	end;
544
545
546	procedure AddToolListEntryExt(context, ext: String);
547	var
548	i: Integer;
549	begin
550	for i := 0 to High(ToolList) do
551	if ToolList[i].context = context then
552	begin
553	if Pos(ext, ToolList[i].exts) = 0 then
554	begin
555	if Length(ToolList[i].exts) = 0 then
556	ToolList[i].exts := ext
557	else
558	ToolList[i].exts := ToolList[i].exts + ',' + ext;
559	end;
560	Exit;
561	end;
562	end;
563
564	procedure AddToolListEntry(context, name, exts: String);
565	var
566	i: Integer;
567	begin
568	if Length(ToolList) > 0 then
569	begin
570	for i := 0 to High(ToolList) do
571	if ToolList[i].context = context then
572	begin
573	if (Length(ToolList[i].name) = 0) and (Length(name) > 0) then
574	ToolList[i].name := name;
575	if Length(exts) > 0 then
576	AddToolListEntryExt(context, exts);
577	Exit;
578	end;
579	end;
580	SetLength(ToolList, Length(ToolList) + 1);
581	for i := High(ToolList) downto 1 do
582	if ToolList[i - 1].name > name then
583	ToolList[i] := ToolList[i - 1]
584	else
585	Break;
586	ToolList[i].context := context;
587	ToolList[i].name := name;
588	ToolList[i].exts := exts;
589	end;
590
591	end.