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