Subversion Repositories delphiutils

Rev

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

Rev 68 Rev 69
Line 8... Line 8...
8 
// TODO (idee): argumente an die DLL stellen, z.B. FileAge(Letter.doc):20=calc.exe
 8 
// TODO (idee): argumente an die DLL stellen, z.B. FileAge(Letter.doc):20=calc.exe
9 
// TODO: example ini file entwerfen
 9 
// TODO: example ini file entwerfen
10 
// TODO: geticon funktion in ud2_obj.pas?
 10 
// TODO: geticon funktion in ud2_obj.pas?
11 
// TODO (idee): ein plugin kann mehrere methodnames haben?
 11 
// TODO (idee): ein plugin kann mehrere methodnames haben?
12 
// TODO: möglichkeit, Task Definition File neu zu laden, nach änderungen die man durchgeführt hat
 12 
// TODO: möglichkeit, Task Definition File neu zu laden, nach änderungen die man durchgeführt hat
- 
 
 13 
// TODO (idee): lahme DLLs abschießen beim start (per GUI)
- 
 
 14 
// TODO: splash screen wegen DLL load
- 
 
 15 
// TODO: nt4 compat
13 
 
 16 
 
14 
interface
 17 
interface
15 
 
 18 
 
16 
{$IF CompilerVersion >= 25.0}
 19 
{$IF CompilerVersion >= 25.0}
17 
{$LEGACYIFEND ON}
 20 
{$LEGACYIFEND ON}
Line 99... Line 102...
99 
implementation
 102 
implementation
100 
 
 103 
 
101 
{$R *.dfm}
 104 
{$R *.dfm}
102 
 
 105 
 
103 
uses
 106 
uses
104 
  ShellAPI, Clipbrd, UD2_Utils, UD2_TaskProperties;
 107 
  ShellAPI, Clipbrd, Math, AlphaNumSort, UD2_Utils, UD2_TaskProperties;
105 
 
 108 
 
106 
type
 109 
type
107 
  TUD2ListViewEntry = class(TObject)
 110 
  TUD2ListViewEntry = class(TObject)
108 
    ShortTaskName: string;
 111 
    ShortTaskName: string;
109 
    CloseAfterLaunching: boolean;
 112 
    CloseAfterLaunching: boolean;
Line 322... Line 325...
322 
    end;
 325 
    end;
323 
  end;
 326 
  end;
324 
end;
 327 
end;
325 
 
 328 
 
326 
procedure TUD2MainForm.LoadLoadedPluginList;
 329 
procedure TUD2MainForm.LoadLoadedPluginList;
- 
 
 330 
resourcestring
- 
 
 331 
  LNG_MS = '%dms';
327 
var
 332 
var
328 
  i: integer;
 333 
  i: integer;
329 
  pl: TUD2Plugin;
 334 
  pl: TUD2Plugin;
330 
begin
 335 
begin
331 
  ListView2.Clear;
 336 
  ListView2.Clear;
Line 337... Line 342...
337 
      Caption := pl.PluginDLL;
 342 
      Caption := pl.PluginDLL;
338 
      SubItems.Add(pl.PluginVendor);
 343 
      SubItems.Add(pl.PluginVendor);
339 
      SubItems.Add(pl.PluginName);
 344 
      SubItems.Add(pl.PluginName);
340 
      SubItems.Add(pl.PluginVersion);
 345 
      SubItems.Add(pl.PluginVersion);
341 
      SubItems.Add(pl.IdentificationMethodName);
 346 
      SubItems.Add(pl.IdentificationMethodName);
- 
 
 347 
      SubItems.Add(Format(LNG_MS, [Max(1,pl.time)])); // at least show 1ms, otherwise it would be unloggical
342 
      SubItems.Add(pl.PluginGUIDString);
 348 
      SubItems.Add(pl.PluginGUIDString);
343 
    end;
 349 
    end;
344 
  end;
 350 
  end;
345 
 
 351 
 
346 
  for i := 0 to ListView2.Columns.Count-1 do
 352 
  for i := 0 to ListView2.Columns.Count-1 do
Line 481... Line 487...
481 
  ListView: TVTSListView;
 487 
  ListView: TVTSListView;
482 
begin
 488 
begin
483 
  ListView := Sender as TVTSListView;
 489 
  ListView := Sender as TVTSListView;
484 
  if ListView.CurSortedColumn = 0 then
 490 
  if ListView.CurSortedColumn = 0 then
485 
  begin
 491 
  begin
486 
    Compare := CompareText(Item1.Caption, Item2.Caption);
 492 
    Compare := AlphaNumCompare(Item1.Caption, Item2.Caption);
487 
  end
 493 
  end
488 
  else
 494 
  else
489 
  begin
 495 
  begin
490 
    Compare := CompareText(Item1.SubItems[ListView.CurSortedColumn-1],
 496 
    Compare := AlphaNumCompare(Item1.SubItems[ListView.CurSortedColumn-1],
491 
                           Item2.SubItems[ListView.CurSortedColumn-1]);
 497 
                               Item2.SubItems[ListView.CurSortedColumn-1]);
492 
  end;
 498 
  end;
493 
  if ListView.CurSortedDesc then Compare := -Compare;
 499 
  if ListView.CurSortedDesc then Compare := -Compare;
494 
end;
 500 
end;
495 
 
 501