[Instantobjects-cvscommit] Demos/PrimerCross Main.pas,1.8,1.9

[Carlo B. <car...@us...>]

Update of /cvsroot/instantobjects/Demos/PrimerCross
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18410/Demos/PrimerCross

Modified Files:
	Main.pas 
Log Message:
InstantConnectionManagerForm added to uses clause.

Index: Main.pas
===================================================================
RCS file: /cvsroot/instantobjects/Demos/PrimerCross/Main.pas,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** Main.pas	10 Feb 2005 23:06:18 -0000	1.8
--- Main.pas	22 Feb 2005 14:56:26 -0000	1.9
***************
*** 19,23 ****
    QMenus, QExtCtrls, QComCtrls, QGrids, QDBGrids, QImgList, QActnList,
  {$ENDIF}
!   InstantPersistence, BasicView, Stopwatch, InstantConnectionManager;
  
  type
--- 19,24 ----
    QMenus, QExtCtrls, QComCtrls, QGrids, QDBGrids, QImgList, QActnList,
  {$ENDIF}
!   InstantPersistence, BasicView, Stopwatch,
!   InstantConnectionManagerForm, InstantConnectionManager;
  
  type
***************
*** 333,337 ****
      end;
      if Confirm('Create random data?') then
!       RandomDataActionExecute(nil); //CB
    finally
      if Assigned(DefaultConnector) then
--- 334,338 ----
      end;
      if Confirm('Create random data?') then
!       RandomDataActionExecute(nil);
    finally
      if Assigned(DefaultConnector) then
***************
*** 357,361 ****
        Result := CreateRandomPerson(Company, Gender);
        if LoadPictures then
!         AssignRandomPicture(Gender=gnMale, TPerson(Result)._Picture); //CB
      end else
      begin
--- 358,362 ----
        Result := CreateRandomPerson(Company, Gender);
        if LoadPictures then
!         AssignRandomPicture(Gender=gnMale, TPerson(Result)._Picture);
      end else
      begin
***************
*** 592,596 ****
  procedure TMainForm.InitSideBar;
  
!   procedure AddShortcut(Form: TBasicViewForm; Index: Integer); //CB was TForm
    begin
      with SideBar.Items.Add do
--- 593,597 ----
  procedure TMainForm.InitSideBar;
  
!   procedure AddShortcut(Form: TBasicViewForm; Index: Integer);
    begin
      with SideBar.Items.Add do