125 lines
3.4 KiB
ObjectPascal
125 lines
3.4 KiB
ObjectPascal
unit OptionsFrm;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, ActnList, StdCtrls, JVCLConvertUtils;
|
|
|
|
type
|
|
TfrmOptions = class(TForm)
|
|
btnOK: TButton;
|
|
btnCancel: TButton;
|
|
chkBackup: TCheckBox;
|
|
chkWholeWords: TCheckBox;
|
|
chkReplaceFilenames: TCheckBox;
|
|
chkSimulate: TCheckBox;
|
|
Label1: TLabel;
|
|
cbFileMasks: TComboBox;
|
|
btnDelete: TButton;
|
|
ActionList1: TActionList;
|
|
acDeleteMask: TAction;
|
|
acAddMask: TAction;
|
|
GroupBox1: TGroupBox;
|
|
Label2: TLabel;
|
|
edMaskName: TEdit;
|
|
Label3: TLabel;
|
|
edMask: TEdit;
|
|
btnAddMask: TButton;
|
|
procedure ActionList1Update(Action: TBasicAction;
|
|
var Handled: boolean);
|
|
procedure acDeleteMaskExecute(Sender: TObject);
|
|
procedure acAddMaskExecute(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
function FindPartial(const S: string): integer;
|
|
function ExtractFilemask(const S,Default:string):string;
|
|
public
|
|
{ Public declarations }
|
|
class function Edit(Options:TAppOptions): boolean;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TfrmOptions.ActionList1Update(Action: TBasicAction;
|
|
var Handled: boolean);
|
|
begin
|
|
acDeleteMask.Enabled := cbFileMasks.ItemIndex >= 0;
|
|
acAddMask.Enabled := (edMaskName.Text <> '') and (edMask.Text <> '');
|
|
end;
|
|
|
|
procedure TfrmOptions.acDeleteMaskExecute(Sender: TObject);
|
|
var
|
|
i: integer;
|
|
begin
|
|
with cbFileMasks do
|
|
begin
|
|
i := ItemIndex;
|
|
Items.Delete(ItemIndex);
|
|
ItemIndex := i;
|
|
if ItemIndex = -1 then
|
|
ItemIndex := i - 1;
|
|
end;
|
|
end;
|
|
|
|
class function TfrmOptions.Edit(Options:TAppOptions): boolean;
|
|
var
|
|
frmOptions: TfrmOptions;
|
|
S:string;
|
|
i:integer;
|
|
begin
|
|
frmOptions := Self.Create(Application);
|
|
with frmOptions do
|
|
try
|
|
chkBackup.Checked := Options.Backup;
|
|
chkWholeWords.Checked := Options.WholeWords;
|
|
chkReplaceFilenames.Checked := Options.ReplaceFilenames;
|
|
chkSimulate.Checked := Options.Simulate;
|
|
cbFileMasks.Items.Text := Options.Filemasks;
|
|
S := Format('Current (%s)',[Options.FileMask]);
|
|
cbFileMasks.ItemIndex := cbFileMasks.Items.Add(S);
|
|
Result := ShowModal = mrOK;
|
|
if Result then
|
|
begin
|
|
i := cbFileMasks.Items.IndexOf(S);
|
|
if i > -1 then
|
|
cbFileMasks.Items.Delete(i);
|
|
Options.Backup := chkBackup.Checked;
|
|
Options.WholeWords := chkWholeWords.Checked;
|
|
Options.ReplaceFilenames := chkReplaceFilenames.Checked;
|
|
Options.Simulate := chkSimulate.Checked;
|
|
Options.Filemasks := cbFileMasks.Items.Text;
|
|
Options.FileMask := ExtractFilemask(cbFileMasks.Text,Options.FileMask);
|
|
end;
|
|
finally
|
|
Free;
|
|
end;
|
|
end;
|
|
|
|
function TfrmOptions.FindPartial(const S: string): integer;
|
|
begin
|
|
for Result := 0 to cbFileMasks.Items.Count - 1 do
|
|
if Pos(AnsiLowerCase(S), AnsiLowerCase(cbFileMasks.Items[Result])) > 0 then
|
|
Exit;
|
|
Result := 0;
|
|
end;
|
|
|
|
function TfrmOptions.ExtractFilemask(const S, Default: string): string;
|
|
begin
|
|
Result := Copy(S, Pos('(',S) + 1, MaxInt);
|
|
Result := Copy(Result, 1, Pos(')', Result) - 1);
|
|
if Result = '' then
|
|
Result := Default;
|
|
end;
|
|
|
|
procedure TfrmOptions.acAddMaskExecute(Sender: TObject);
|
|
begin
|
|
with cbFileMasks do
|
|
ItemIndex := Items.Add(Format('%s (%s)', [edMaskName.Text, StringReplace(edMask.Text,',',';',[rfReplaceAll])]));
|
|
end;
|
|
|
|
end.
|
|
|