Subversion Repositories userdetect2

Rev

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

Rev 81 Rev 82
Line 6... Line 6...
6 
{$LEGACYIFEND ON}
 6 
{$LEGACYIFEND ON}
7 
{$IFEND}
 7 
{$IFEND}
8 
 
 8 
 
9 
{$INCLUDE 'UserDetect2.inc'}
 9 
{$INCLUDE 'UserDetect2.inc'}
10 
 
 10 
 
11 
{$WARN UNSAFE_CODE OFF}
 - 
 
12 
{$WARN UNSAFE_TYPE OFF}
 - 
 
13 
{$WARN UNSAFE_CAST OFF}
 - 
 
14 
 
 - 
 
15 
uses
 11 
uses
16 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 12 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
17 
  Dialogs, StdCtrls, Grids, ValEdit, UD2_Obj, ComCtrls, ImgList, ExtCtrls,
 13 
  Dialogs, StdCtrls, Grids, ValEdit, UD2_Obj, ComCtrls, ImgList, ExtCtrls,
18 
  CommCtrl, Menus, VTSListView, VTSCompat;
 14 
  CommCtrl, Menus, VTSListView, VTSCompat;
19 
 
 15 
 
Line 65... Line 61...
65 
    LoadedPluginsPopupMenu: TPopupMenu;
 61 
    LoadedPluginsPopupMenu: TPopupMenu;
66 
    MenuItem1: TMenuItem;
 62 
    MenuItem1: TMenuItem;
67 
    Panel2: TPanel;
 63 
    Panel2: TPanel;
68 
    Image2: TImage;
 64 
    Image2: TImage;
69 
    procedure FormDestroy(Sender: TObject);
 65 
    procedure FormDestroy(Sender: TObject);
70 
    procedure FormShow(Sender: TObject);
 - 
 
71 
    procedure TasksListViewDblClick(Sender: TObject);
 66 
    procedure TasksListViewDblClick(Sender: TObject);
72 
    procedure TasksListViewKeyPress(Sender: TObject; var Key: Char);
 67 
    procedure TasksListViewKeyPress(Sender: TObject; var Key: Char);
73 
    procedure Button1Click(Sender: TObject);
 68 
    procedure Button1Click(Sender: TObject);
74 
    procedure Button2Click(Sender: TObject);
 69 
    procedure Button2Click(Sender: TObject);
75 
    procedure URLLabelClick(Sender: TObject);
 70 
    procedure URLLabelClick(Sender: TObject);
Line 80... Line 75...
80 
    procedure CopyTaskDefinitionExample1Click(Sender: TObject);
 75 
    procedure CopyTaskDefinitionExample1Click(Sender: TObject);
81 
    procedure ListViewCompare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer);
 76 
    procedure ListViewCompare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer);
82 
    procedure Button3Click(Sender: TObject);
 77 
    procedure Button3Click(Sender: TObject);
83 
    procedure LoadedPluginsPopupMenuPopup(Sender: TObject);
 78 
    procedure LoadedPluginsPopupMenuPopup(Sender: TObject);
84 
    procedure MenuItem1Click(Sender: TObject);
 79 
    procedure MenuItem1Click(Sender: TObject);
- 
 
 80 
    procedure FormCreate(Sender: TObject);
85 
  protected
 81 
  protected
86 
    ud2: TUD2;
 82 
    ud2: TUD2;
87 
    procedure LoadTaskList;
 83 
    procedure LoadTaskList;
88 
    procedure LoadDetectedIDs;
 84 
    procedure LoadDetectedIDs;
89 
    procedure LoadINITemplate;
 85 
    procedure LoadINITemplate;
Line 355... Line 351...
355 
  begin
 351 
  begin
356 
    LoadedPluginsListView.Columns.Items[i].Width := LVSCW_AUTOSIZE_USEHEADER;
 352 
    LoadedPluginsListView.Columns.Items[i].Width := LVSCW_AUTOSIZE_USEHEADER;
357 
  end;
 353 
  end;
358 
end;
 354 
end;
359 
 
 355 
 
360 
procedure TUD2MainForm.FormShow(Sender: TObject);
 - 
 
361 
begin
 - 
 
362 
  // To avoid accidental change of the default tab from the IDE VCL Designer
 - 
 
363 
  PageControl1.ActivePage := TasksTabSheet;
 - 
 
364 
end;
 - 
 
365 
 
 - 
 
366 
procedure TUD2MainForm.TasksListViewDblClick(Sender: TObject);
 356 
procedure TUD2MainForm.TasksListViewDblClick(Sender: TObject);
367 
var
 357 
var
368 
  obj: TUD2ListViewEntry;
 358 
  obj: TUD2ListViewEntry;
369 
begin
 359 
begin
370 
  if TasksListView.ItemIndex = -1 then exit;
 360 
  if TasksListView.ItemIndex = -1 then exit;
Line 511... Line 501...
511 
    Close;
 501 
    Close;
512 
    Exit;
 502 
    Exit;
513 
  end;
 503 
  end;
514 
  ud2 := TUD2.Create(LoadedIniFile);
 504 
  ud2 := TUD2.Create(LoadedIniFile);
515 
 
 505 
 
516 
  ud2.HandlePluginDir('',        '*.smp');
 506 
  ud2.HandlePluginDir('',        '*.udp');
517 
  ud2.HandlePluginDir('Plugins', '*.smp');
 507 
  ud2.HandlePluginDir('Plugins', '*.udp');
518 
  ud2.HandlePluginDir('Plugins', '*.dll');
 508 
  ud2.HandlePluginDir('Plugins', '*.dll');
519 
 
 509 
 
520 
  if CheckBoolParam(1, 'C') then
 510 
  if CheckBoolParam(1, 'C') then
521 
  begin
 511 
  begin
522 
    if ud2.FulfilsEverySubterm(ParamStr(2)) then
 512 
    if ud2.FulfilsEverySubterm(ParamStr(2)) then
Line 553... Line 543...
553 
    Visible := true;
 543 
    Visible := true;
554 
    Exit;
 544 
    Exit;
555 
  end;
 545 
  end;
556 
end;
 546 
end;
557 
 
 547 
 
- 
 
 548 
procedure TUD2MainForm.FormCreate(Sender: TObject);
- 
 
 549 
begin
- 
 
 550 
  // To avoid accidental change of the default tab from the IDE VCL Designer
- 
 
 551 
  PageControl1.ActivePage := TasksTabSheet;
- 
 
 552 
end;
- 
 
 553 
 
558 
end.
 554 
end.