unit1.pas

完整的在线更新实现 完整的在线更新实现

unit Unit1;

interface

uses
  TestFramework, frmResTree;

type
  TResTreeTest = class(TTestCase)
  published
    procedure TestResTree;
    procedure TestProjectCollection;
  end;

implementation

uses
  frmProjectCollection;

{ TResTreeTest }

procedure TResTreeTest.TestProjectCollection;
begin
  ShowProjectCollectionForm;
end;

procedure TResTreeTest.TestResTree;
begin
  ShowResTreeForm;
end;

initialization
  TestFramework.RegisterTest('TResTree', TResTreeTest.Suite);

end.