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;
|
