Subversion Repositories userdetect2

Rev

Rev 73 | Rev 81 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 73 Rev 80
Line 70... Line 70...
70 
    procedure TasksPopupMenuPopup(Sender: TObject);
 70 
    procedure TasksPopupMenuPopup(Sender: TObject);
71 
    procedure Run1Click(Sender: TObject);
 71 
    procedure Run1Click(Sender: TObject);
72 
    procedure Properties1Click(Sender: TObject);
 72 
    procedure Properties1Click(Sender: TObject);
73 
    procedure IdentificationsPopupMenuPopup(Sender: TObject);
 73 
    procedure IdentificationsPopupMenuPopup(Sender: TObject);
74 
    procedure CopyTaskDefinitionExample1Click(Sender: TObject);
 74 
    procedure CopyTaskDefinitionExample1Click(Sender: TObject);
75 
    procedure ListViewCompare(Sender: TObject; Item1, Item2: TListItem;
 75 
    procedure ListViewCompare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer);
76 
      Data: Integer; var Compare: Integer);
 - 
 
77 
    procedure Button3Click(Sender: TObject);
 76 
    procedure Button3Click(Sender: TObject);
78 
    procedure LoadedPluginsPopupMenuPopup(Sender: TObject);
 77 
    procedure LoadedPluginsPopupMenuPopup(Sender: TObject);
79 
    procedure MenuItem1Click(Sender: TObject);
 78 
    procedure MenuItem1Click(Sender: TObject);
80 
  protected
 79 
  protected
81 
    ud2: TUD2;
 80 
    ud2: TUD2;
Line 233... Line 232...
233 
 
 232 
 
234 
    for i := 0 to slCmds.Count-1 do
 233 
    for i := 0 to slCmds.Count-1 do
235 
    begin
 234 
    begin
236 
      cmd := slCmds.Strings[i];
 235 
      cmd := slCmds.Strings[i];
237 
      if cmd = '' then continue;
 236 
      if cmd = '' then continue;
238 
      UD2_RunCMD(cmd, SW_NORMAL); // IDEA: let SW_NORMAL be configurable?
 237 
      UD2_RunCMD(cmd, SW_NORMAL); // Idea: let SW_NORMAL be configurable by the user?
239 
    end;
 238 
    end;
240 
  finally
 239 
  finally
241 
    slCmds.Free;
 240 
    slCmds.Free;
242 
  end;
 241 
  end;
243 
end;
 242 
end;
Line 377... Line 376...
377 
    Close;
 376 
    Close;
378 
    Exit;
 377 
    Exit;
379 
  end;
 378 
  end;
380 
  ud2 := TUD2.Create(LoadedIniFile);
 379 
  ud2 := TUD2.Create(LoadedIniFile);
381 
 
 380 
 
- 
 
 381 
  ud2.HandlePluginDir('',        '*.smp');
- 
 
 382 
  ud2.HandlePluginDir('Plugins', '*.smp');
382 
  ud2.HandlePluginDir('Plugins\');
 383 
  ud2.HandlePluginDir('Plugins', '*.dll');
383 
 
 384 
 
384 
  if ParamCount >= 2 then
 385 
  if ParamCount >= 2 then
385 
  begin
 386 
  begin
386 
    DoRun(ParamStr(2));
 387 
    DoRun(ParamStr(2));
387 
    Close;
 388 
    Close;