home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / crystal / extras / crpedemo / child.frm < prev    next >
Text File  |  1994-12-14  |  2KB  |  72 lines
  1. VERSION 2.00
  2. Begin Form Child 
  3.    Caption         =   "MDIChild"
  4.    ClientHeight    =   4020
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   3480
  8.    Height          =   4425
  9.    Left            =   1035
  10.    LinkTopic       =   "Child"
  11.    MDIChild        =   -1  'True
  12.    ScaleHeight     =   268
  13.    ScaleMode       =   3  'Pixel
  14.    ScaleWidth      =   232
  15.    Top             =   1140
  16.    Width           =   3600
  17. End
  18. ' It is important to ensure that the ScaleMode of this
  19. ' Form be set to the same ScaleMode of CRYSTAL.VBX, Twips.
  20.  
  21. Sub Form_Activate ()
  22.  
  23.     'Main!StatusBar.Caption = " Active Window :- " & Me.Caption
  24.  
  25. End Sub
  26.  
  27. Sub Form_Load ()
  28. Main!MenuFileClose.Enabled = True
  29.  
  30. End Sub
  31.  
  32. Sub Form_Paint ()
  33.     
  34.     hWndChild = GetWindow(hWnd, GW_CHILD)
  35.     If (hWndChild <> 0) Then
  36.        MoveWindow hWndChild, ScaleLeft, ScaleTop, ScaleWidth, ScaleHeight, 1
  37.     End If
  38.  
  39. End Sub
  40.  
  41. Sub Form_Resize ()
  42.     
  43.     hWndChild = GetWindow(hWnd, GW_CHILD)
  44.     If (hWndChild <> 0) Then
  45.        MoveWindow hWndChild, ScaleLeft, ScaleTop, ScaleWidth, ScaleHeight, 1
  46.     End If
  47.  
  48. End Sub
  49.  
  50. Sub Form_Unload (Cancel As Integer)
  51.     'Hide print Controls when closing Child Window
  52.  
  53.      Main.Command3D13.Visible = False
  54.      Main.Command3D14.Visible = False
  55.      Main.Command3D15.Visible = False
  56.      Main.Command3D16.Visible = False
  57.      Main.Command3D17.Visible = False
  58.      Main.Panel3D1.Visible = False
  59.      
  60.      
  61.  
  62.     ' Window may be unloaded from SystemMenu or F4
  63.     ' so Main MenuFileClose needs to be updated
  64.     If Forms.Count = 2 Then
  65.         Main!MenuFileClose.Enabled = False
  66.         Main!StatusBar.Caption = " Ready"
  67.     End If
  68.     Unload Me
  69.  
  70. End Sub
  71.  
  72.