[JVCL-Checkins] dev/DUnit/source JvDocking_Test.pas,NONE,1.1 JVCLTest.dpr,1.3,1.4 - New docking tester

[Remko B. <rem...@us...>]

Update of /cvsroot/jvcl/dev/DUnit/source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9072

Modified Files:
	JVCLTest.dpr 
Added Files:
	JvDocking_Test.pas 
Log Message:
New docking tester


Index: JVCLTest.dpr
===================================================================
RCS file: /cvsroot/jvcl/dev/DUnit/source/JVCLTest.dpr,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** JVCLTest.dpr	16 Jun 2004 09:51:05 -0000	1.3
--- JVCLTest.dpr	20 Mar 2005 21:29:26 -0000	1.4
***************
*** 8,12 ****
    JvOLBar_Test in 'JvOLBar_Test.pas',
    JvWndProcHook_Test in 'JvWndProcHook_Test.pas',
!   DUnit_TestSpell in 'DUnit_TestSpell.pas';
  
  {$R *.res}
--- 8,13 ----
    JvOLBar_Test in 'JvOLBar_Test.pas',
    JvWndProcHook_Test in 'JvWndProcHook_Test.pas',
!   DUnit_TestSpell in 'DUnit_TestSpell.pas',
!   JvDocking_Test in 'JvDocking_Test.pas';
  
  {$R *.res}

--- NEW FILE: JvDocking_Test.pas ---
unit JvDocking_Test;

interface
uses
  Forms, Controls, ContNrs,
  Classes, TestFramework, JvDockControlForm, JvDockVSNetStyle, JvDockVIDStyle,
  JvDockSupportControl;

type
  TClientForm = class(TForm)
  private
    FDockClient: TJvDockClient;
    FOnFormShowCount: Integer;
    FOnFormHideCount: Integer;
    FOnShowCount: Integer;
    FOnHideCount: Integer;

    procedure DockClient1FormHide(Sender: TObject);
    procedure DockClient1FormShow(Sender: TObject);
[...1181 lines suppressed...]
    OwnsObjects := False;
    I := 0;
    while I < Count do
    begin
      if Items[i] is TForm then
      begin
        TForm(Items[i]).Release;
        Delete(I);
      end
      else
        Inc(I);
    end;
  finally
    OwnsObjects := SavedOwnsObjects;
  end;
end;

initialization
  TestFrameWork.RegisterTest('Docking', TJvDockingTestCase.Suite);
end.