current/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;

  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;
    procedure RecreateList;
    procedure LoadFileNames;
    procedure SelectFileName(filename: String);
    procedure SelectFileID(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);
  private
    FSortBy: TSortType;
    FOnNewFileSelected: TNewFileSelectedEvent;
    FAllowedExts: String;
    FAllowMultiSelect: Boolean;
    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 AllowedExts: String read FAllowedExts write SetAllowedExts;
    property AllowMultiSelect: Boolean read FAllowMultiSelect write SetMultiSelect;
  end;

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

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


procedure TForm_ToolTemplate.RecreateList;
var
  i:    LongWord;
  exts: TStringArray;
f, c1,c2: Int64;
time1,time2,time3: Double;
begin
QueryPerformanceFrequency(f);
QueryPerformanceCounter(c1);
  combo_extension.Items.Clear;
  combo_extension.Items.Add('_All files_ (' +
    IntToStr(OniDataConnection.GetFilesCount) + ')');
  exts := OniDataConnection.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]);
QueryPerformanceCounter(c2);
time1 := (c2 - c1) / f;
  combo_extension.ItemIndex := 0;
  combo_extensionClick(Self);
QueryPerformanceCounter(c1);
time2 := (c1 - c2) / f;
ShowMessage(FloatToStr(time1) +#13+#10+ FloatToStr(time2));
end;


procedure TForm_ToolTemplate.LoadFileNames;
var
  Extension: String;
  no_zero_bytes: Boolean;
  pattern: String;
  files: TStringArray;
  i: LongWord;
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 := OniDataConnection.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;


procedure TForm_ToolTemplate.popup_exportClick(Sender: TObject);
var
  id: Integer;
  ext: String;
begin
  id := OniDataConnection.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(id, exportd.FileName);
end;

procedure TForm_ToolTemplate.popup_importClick(Sender: TObject);
var
  id: Integer;
  finfo: TFileInfo;
  fs: TFileStream;
  data: TData;
begin
  id := OniDataConnection.ExtractFileID(filelist.Items.Strings[filelist.ItemIndex]);
  finfo := OniDataConnection.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);
      OniDataConnection.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 := OniDataConnection.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, id);
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;
  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 := OniDataConnection.ExtractFileID(
          filelist.Items.Strings[filelist.ItemIndex]);
    if Assigned(FOnNewFileSelected) then
      FOnNewFileSelected(OniDataConnection.GetFileInfo(fileid));
  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(id: Integer);
var
  i: Integer;
begin
  filelist.ItemIndex := -1;
  if filelist.Items.Count > 0 then
    for i := 0 to filelist.Items.Count - 1 do
      if OniDataConnection.ExtractFileID(filelist.Items.Strings[i]) = id then
      begin
        filelist.ItemIndex := i;
        Break;
      end;
  Self.listClick(Self);
end;

procedure TForm_ToolTemplate.SelectFileName(filename: String);
var
  i: Integer;
begin
  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;
  RecreateList;
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;
  FAllowedExts := '';
  FAllowMultiSelect := False;
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:	51
Committed:	Sat Dec 23 22:16:42 2006 UTC (18 years, 9 months ago) by alloc
Content type:	text/x-pascal
File size:	12041 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
13	TForm_ToolTemplate = class(TForm)
14	panel_files: TPanel;
15	filelist: TListBox;
16	panel_extension: TPanel;
17	label_ext: TLabel;
18	combo_extension: TComboBox;
19	check_zerobyte: TCheckBox;
20	edit_filtername: TEdit;
21	check_filtername: TCheckBox;
22	Splitter1: TSplitter;
23	content: TPanel;
24	filepopup: TPopupMenu;
25	popup_import: TMenuItem;
26	popup_export: TMenuItem;
27	popup_separator: TMenuItem;
28	importd: TOpenDialog;
29	exportd: TSaveDialog;
30	btn_sort_id_asc: TSpeedButton;
31	btn_sort_id_desc: TSpeedButton;
32	btn_sort_name_asc: TSpeedButton;
33	btn_sort_name_desc: TSpeedButton;
34	btn_sort_ext_asc: TSpeedButton;
35	btn_sort_ext_desc: TSpeedButton;
36	Label1: TLabel;
37	Label2: TLabel;
38	procedure RecreateList;
39	procedure LoadFileNames;
40	procedure SelectFileName(filename: String);
41	procedure SelectFileID(id: Integer);
42	procedure check_filternameClick(Sender: TObject);
43	procedure check_zerobyteClick(Sender: TObject);
44	procedure combo_extensionClick(Sender: TObject);
45	procedure listClick(Sender: TObject);
46	procedure listMouseDown(Sender: TObject; Button: TMouseButton;
47	Shift: TShiftState; X, Y: Integer);
48
49	procedure FormResize(Sender: TObject);
50	procedure FormCreate(Sender: TObject);
51	procedure FormClose(Sender: TObject; var Action: TCloseAction);
52	procedure popup_importClick(Sender: TObject);
53	procedure popup_exportClick(Sender: TObject);
54	procedure popup_opentool(Sender: TObject);
55	procedure filepopupPopup(Sender: TObject);
56	procedure btn_sortClick(Sender: TObject);
57	private
58	FSortBy: TSortType;
59	FOnNewFileSelected: TNewFileSelectedEvent;
60	FAllowedExts: String;
61	FAllowMultiSelect: Boolean;
62	procedure SetAllowedExts(exts: String);
63	procedure SetMultiSelect(allow: Boolean);
64	public
65	constructor Create(AOwner: TComponent); override;
66	procedure SetFileFilters(pattern, extension: String; zerobytes: Boolean);
67	published
68	property OnNewFileSelected: TNewFileSelectedEvent read FOnNewFileSelected write FOnNewFileSelected;
69	property AllowedExts: String read FAllowedExts write SetAllowedExts;
70	property AllowMultiSelect: Boolean read FAllowMultiSelect write SetMultiSelect;
71	end;
72
73	var
74	ToolList: TToolList;
75	procedure AddToolListEntry(context, name, exts: String);
76
77	implementation
78	{$R *.dfm}
79	uses Main, Exporters;
80
81
82	procedure TForm_ToolTemplate.RecreateList;
83	var
84	i: LongWord;
85	exts: TStringArray;
86	f, c1,c2: Int64;
87	time1,time2,time3: Double;
88	begin
89	QueryPerformanceFrequency(f);
90	QueryPerformanceCounter(c1);
91	combo_extension.Items.Clear;
92	combo_extension.Items.Add('_All files_ (' +
93	IntToStr(OniDataConnection.GetFilesCount) + ')');
94	exts := OniDataConnection.GetExtensionsList;
95	for i := 0 to High(exts) do
96	if Length(FAllowedExts) > 0 then
97	begin
98	if Pos(MidStr(exts[i],1,4), FAllowedExts) > 0 then
99	begin
100	combo_extension.Items.Add(exts[i]);
101	end;
102	end else
103	combo_extension.Items.Add(exts[i]);
104	QueryPerformanceCounter(c2);
105	time1 := (c2 - c1) / f;
106	combo_extension.ItemIndex := 0;
107	combo_extensionClick(Self);
108	QueryPerformanceCounter(c1);
109	time2 := (c1 - c2) / f;
110	ShowMessage(FloatToStr(time1) +#13+#10+ FloatToStr(time2));
111	end;
112
113
114
115
116	procedure TForm_ToolTemplate.LoadFileNames;
117	var
118	Extension: String;
119	no_zero_bytes: Boolean;
120	pattern: String;
121	files: TStringArray;
122	i: LongWord;
123	begin
124	Extension := MidStr(combo_extension.Items.Strings[combo_extension.ItemIndex], 1, 4);
125	no_zero_bytes := not check_zerobyte.Checked;
126	pattern := '';
127	if check_filtername.Checked then
128	pattern := edit_filtername.Text;
129	if Extension = '_All' then
130	if Length(FAllowedExts) > 0 then
131	Extension := FAllowedExts
132	else
133	Extension := '';
134
135	files := OniDataConnection.GetFilesList(extension, pattern, no_zero_bytes, FSortBy);
136
137	filelist.Visible := False;
138	filelist.Items.Clear;
139	if Length(files) > 0 then
140	for i := 0 to High(files) do
141	filelist.Items.Add(files[i]);
142	filelist.Visible := True;
143	end;
144
145
146	procedure TForm_ToolTemplate.popup_exportClick(Sender: TObject);
147	var
148	id: Integer;
149	ext: String;
150	begin
151	id := OniDataConnection.ExtractFileID(filelist.Items.Strings[filelist.ItemIndex]);
152	ext := RightStr(filelist.Items.Strings[filelist.ItemIndex], 4);
153	exportd.Filter := 'Files of matching extension (.' + ext + ')\|.' + ext + '\|All files\|.';
154	exportd.DefaultExt := ext;
155	if exportd.Execute then
156	ExportDatFile(id, exportd.FileName);
157	end;
158
159	procedure TForm_ToolTemplate.popup_importClick(Sender: TObject);
160	var
161	id: Integer;
162	finfo: TFileInfo;
163	fs: TFileStream;
164	data: TData;
165	begin
166	id := OniDataConnection.ExtractFileID(filelist.Items.Strings[filelist.ItemIndex]);
167	finfo := OniDataConnection.GetFileInfo(id);
168
169	importd.Filter := 'Files of matching extension (.' + finfo.Extension + ')\|.' +
170	finfo.Extension + '\|All files\|.';
171	if importd.Execute then
172	begin
173	fs := TFileStream.Create(importd.FileName, fmOpenRead);
174	if fs.Size <> finfo.Size then
175	ShowMessage('Can''t import ' + ExtractFilename(importd.FileName) +
176	', file has to have same size as file in .dat.' + CrLf +
177	'Size of file in .dat: ' + FormatFileSize(finfo.Size) + CrLf +
178	'Size of chosen file: ' + FormatFileSize(fs.Size))
179	else begin
180	SetLength(data, fs.Size);
181	fs.Read(data[0], fs.Size);
182	OniDataConnection.UpdateDatFile(id, data);
183	Self.listClick(Self);
184	end;
185	fs.Free;
186	end;
187	end;
188
189	procedure TForm_ToolTemplate.popup_opentool(Sender: TObject);
190	var
191	sender_name, context: String;
192	id: Integer;
193	begin
194	sender_name := TComponent(Sender).Name;
195	id := OniDataConnection.ExtractFileID(filelist.Items.Strings[filelist.ItemIndex]);
196	context := MidStr(sender_name, Pos('_', sender_name) + 1, Length(sender_name) - Pos('_', sender_name));
197	Form_Main.open_child(context, id);
198	end;
199
200	procedure TForm_ToolTemplate.combo_extensionClick(Sender: TObject);
201	begin
202	LoadFileNames;
203	end;
204
205
206	constructor TForm_ToolTemplate.Create(AOwner: TComponent);
207	var
208	i: Integer;
209	item: TMenuItem;
210	begin
211	inherited;
212	RecreateList;
213	if Length(ToolList) > 0 then
214	begin
215	for i := 0 to High(ToolList) do
216	begin
217	item := TMenuItem.Create(filepopup);
218	item.Name := 'popup_' + ToolList[i].context;
219	item.Caption := 'Open with ' + ToolList[i].name;
220	item.OnClick := Self.popup_opentool;
221	filepopup.Items.Insert(i, item);
222	end;
223	end;
224	end;
225
226	procedure TForm_ToolTemplate.filepopupPopup(Sender: TObject);
227	var
228	ext: String;
229	i: Integer;
230	begin
231	ext := RightStr(filelist.Items.Strings[filelist.ItemIndex], 4);
232	for i := 0 to High(ToolList) do
233	begin
234	filepopup.Items.Items[i].Enabled := True;
235	if Length(ToolList[i].exts) > 0 then
236	if Pos(ext, ToolList[i].exts) = 0 then
237	filepopup.Items.Items[i].Enabled := False;
238	end;
239	end;
240
241	procedure TForm_ToolTemplate.check_zerobyteClick(Sender: TObject);
242	begin
243	LoadFileNames;
244	end;
245
246	procedure TForm_ToolTemplate.btn_sortClick(Sender: TObject);
247	begin
248	if btn_sort_id_asc.Down then
249	FSortBy := stIDAsc
250	else if btn_sort_id_desc.Down then
251	FSortBy := stIDDesc
252	else if btn_sort_name_asc.Down then
253	FSortBy := stNameAsc
254	else if btn_sort_name_desc.Down then
255	FSortBy := stNameDesc
256	else if btn_sort_ext_asc.Down then
257	FSortBy := stExtAsc
258	else if btn_sort_ext_desc.Down then
259	FSortBy := stExtDesc;
260	LoadFileNames;
261	end;
262
263	procedure TForm_ToolTemplate.check_filternameClick(Sender: TObject);
264	begin
265	edit_filtername.Enabled := not check_filtername.Checked;
266	LoadFileNames;
267	end;
268
269	procedure TForm_ToolTemplate.listClick(Sender: TObject);
270	var
271	fileid: Integer;
272	begin
273	if filelist.ItemIndex > -1 then
274	begin
275	fileid := OniDataConnection.ExtractFileID(
276	filelist.Items.Strings[filelist.ItemIndex]);
277	if Assigned(FOnNewFileSelected) then
278	FOnNewFileSelected(OniDataConnection.GetFileInfo(fileid));
279	end;
280	end;
281
282	procedure TForm_ToolTemplate.listMouseDown(Sender: TObject; Button: TMouseButton;
283	Shift: TShiftState; X, Y: Integer);
284	var
285	pt: TPoint;
286	begin
287	pt.X := x;
288	pt.Y := y;
289	filelist.ItemIndex := filelist.ItemAtPos(pt, true);
290	Self.listClick(Self);
291	end;
292
293
294
295	procedure TForm_ToolTemplate.SelectFileID(id: Integer);
296	var
297	i: Integer;
298	begin
299	filelist.ItemIndex := -1;
300	if filelist.Items.Count > 0 then
301	for i := 0 to filelist.Items.Count - 1 do
302	if OniDataConnection.ExtractFileID(filelist.Items.Strings[i]) = id then
303	begin
304	filelist.ItemIndex := i;
305	Break;
306	end;
307	Self.listClick(Self);
308	end;
309
310	procedure TForm_ToolTemplate.SelectFileName(filename: String);
311	var
312	i: Integer;
313	begin
314	filelist.ItemIndex := -1;
315	if filelist.Items.Count > 0 then
316	for i := 0 to filelist.Items.Count - 1 do
317	if filelist.Items.Strings[i] = filename then
318	filelist.ItemIndex := i;
319	Self.listClick(Self);
320	end;
321
322	procedure TForm_ToolTemplate.SetAllowedExts(exts: String);
323	begin
324	FAllowedExts := exts;
325	RecreateList;
326	end;
327
328	procedure TForm_ToolTemplate.SetFileFilters(pattern, extension: String;
329	zerobytes: Boolean);
330	var
331	i: Integer;
332	begin
333	if Length(pattern) > 0 then
334	Self.edit_filtername.Text := pattern;
335	Self.check_filtername.Checked := Length(pattern) > 0;
336	if Length(extension) > 0 then
337	begin
338	for i := 0 to Self.combo_extension.Items.Count - 1 do
339	if Pos(extension, Self.combo_extension.Items.Strings[i]) > 0 then
340	Break;
341	if i < Self.combo_extension.Items.Count then
342	Self.combo_extension.ItemIndex := i
343	else
344	Self.combo_extension.ItemIndex := -1;
345	end;
346	Self.check_zerobyte.Checked := zerobytes;
347	Self.LoadFileNames;
348	end;
349
350	procedure TForm_ToolTemplate.SetMultiSelect(allow: Boolean);
351	begin
352	FAllowMultiSelect := allow;
353	filelist.MultiSelect := allow;
354	end;
355
356
357	procedure TForm_ToolTemplate.FormResize(Sender: TObject);
358	begin
359	if Self.Width < 300 then
360	Self.Width := 300;
361	if Self.Height < 200 then
362	Self.Height := 200;
363	end;
364
365
366
367	procedure TForm_ToolTemplate.FormCreate(Sender: TObject);
368	begin
369	Self.Width := 260;
370	Self.Height := 300;
371	FOnNewFileSelected := nil;
372	FAllowedExts := '';
373	FAllowMultiSelect := False;
374	end;
375
376	procedure TForm_ToolTemplate.FormClose(Sender: TObject; var Action: TCloseAction);
377	begin
378	Action := caFree;
379	end;
380
381
382	procedure AddToolListEntryExt(context, ext: String);
383	var
384	i: Integer;
385	begin
386	for i := 0 to High(ToolList) do
387	if ToolList[i].context = context then
388	begin
389	if Pos(ext, ToolList[i].exts) = 0 then
390	begin
391	if Length(ToolList[i].exts) = 0 then
392	ToolList[i].exts := ext
393	else
394	ToolList[i].exts := ToolList[i].exts + ',' + ext;
395	end;
396	Exit;
397	end;
398	end;
399
400	procedure AddToolListEntry(context, name, exts: String);
401	var
402	i: Integer;
403	begin
404	if Length(ToolList) > 0 then
405	begin
406	for i := 0 to High(ToolList) do
407	if ToolList[i].context = context then
408	begin
409	if (Length(ToolList[i].name) = 0) and (Length(name) > 0) then
410	ToolList[i].name := name;
411	if Length(exts) > 0 then
412	AddToolListEntryExt(context, exts);
413	Exit;
414	end;
415	end;
416	SetLength(ToolList, Length(ToolList) + 1);
417	for i := High(ToolList) downto 1 do
418	if ToolList[i - 1].name > name then
419	ToolList[i] := ToolList[i - 1]
420	else
421	Break;
422	ToolList[i].context := context;
423	ToolList[i].name := name;
424	ToolList[i].exts := exts;
425	end;
426
427	end.