home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / po7_win / object10 / grapha.frm < prev    next >
Text File  |  1994-11-10  |  1KB  |  51 lines
  1. VERSION 2.00
  2. Begin Form frmGraphA 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   3720
  5.    ClientLeft      =   1230
  6.    ClientTop       =   2205
  7.    ClientWidth     =   8370
  8.    Height          =   4125
  9.    Left            =   1170
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   3720
  12.    ScaleWidth      =   8370
  13.    Top             =   1860
  14.    Width           =   8490
  15.    Begin GRAPH Graph1 
  16.       AsciiExtra      =   "0"
  17.       AutoInc         =   0  'Off
  18.       Height          =   3495
  19.       Left            =   120
  20.       TabIndex        =   0
  21.       TabStop         =   0   'False
  22.       Top             =   120
  23.       Width           =   8115
  24.    End
  25. End
  26.  
  27. Sub Form_Load ()
  28.  
  29.  graph1.Height = frmGraphA.Height - 650
  30.  graph1.Width = frmGraphA.Width - 300
  31.  graph1.Left = 100
  32.  
  33. End Sub
  34.  
  35. Sub Form_Resize ()
  36.  
  37.  If (frmGraphA.Height > 700) And (frmGraphA.Width > 350) Then
  38.   graph1.Height = frmGraphA.Height - 650
  39.   graph1.Width = frmGraphA.Width - 300
  40.   graph1.Left = 100
  41.  End If
  42.  
  43. End Sub
  44.  
  45. Sub Graph1_DblClick ()
  46.  
  47.  Unload frmGraphA
  48.  
  49. End Sub
  50.  
  51.