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

[Steven M. <sr...@us...>]

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

Modified Files:
	ContactView.pas 
Log Message:
Fix to Primer[External] Demo for Explorer Visibility processing
[Report #1369726 in SF BT]

Index: ContactView.pas
===================================================================
RCS file: /cvsroot/instantobjects/Demos/PrimerCross/ContactView.pas,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** ContactView.pas	20 Oct 2005 22:21:46 -0000	1.8
--- ContactView.pas	1 Dec 2005 03:22:18 -0000	1.9
***************
*** 635,648 ****
  
  procedure TContactViewForm.UpdateExplorer;
- var
-   Contact: TContact;
  begin
!   if not ExplorerVisible then
!     Exit;
!   if ContactSelector.Active then
!   begin
!     Contact := ContactSelector.CurrentObject as TContact;
!     Explorer.RootObject := Contact;
!   end else
      Explorer.Clear;
  end;
--- 635,642 ----
  
  procedure TContactViewForm.UpdateExplorer;
  begin
!   if ExplorerVisible and ContactSelector.Active then
!     Explorer.RootObject := ContactSelector.CurrentObject as TContact
!   else if Assigned(Explorer.RootObject) then
      Explorer.Clear;
  end;