home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / cdspy / f_inform.frm < prev    next >
Text File  |  1995-02-26  |  2KB  |  64 lines
  1. VERSION 2.00
  2. Begin Form F_Inform 
  3.    Caption         =   "Info"
  4.    ClientHeight    =   4230
  5.    ClientLeft      =   2490
  6.    ClientTop       =   1470
  7.    ClientWidth     =   5130
  8.    Height          =   4635
  9.    Icon            =   F_INFORM.FRX:0000
  10.    Left            =   2430
  11.    LinkTopic       =   "Form3"
  12.    MDIChild        =   -1  'True
  13.    ScaleHeight     =   4230
  14.    ScaleWidth      =   5130
  15.    Tag             =   "Info"
  16.    Top             =   1125
  17.    Width           =   5250
  18.    Begin TextBox txtInfo 
  19.       Height          =   3795
  20.       Left            =   90
  21.       MultiLine       =   -1  'True
  22.       ScrollBars      =   2  'Vertical
  23.       TabIndex        =   0
  24.       Top             =   90
  25.       Width           =   1455
  26.    End
  27. End
  28. Option Explicit
  29. Option Compare Text
  30.  
  31. Sub Form_Load ()
  32.   PM_LiesForm Me
  33.   PM_Refresh GCM_ENABLE
  34.   Me.Show
  35.   PM_Refresh GCM_DISABLE
  36. End Sub
  37.  
  38. Sub Form_Paint ()
  39.   If FM_Refresh() Then
  40.     Me.txtInfo.Text = FM_GetAktInfo()
  41.   End If
  42. End Sub
  43.  
  44. Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
  45.   PM_SchreibForm Me
  46. End Sub
  47.  
  48. Sub Form_Resize ()
  49.     FreezeOn mdicdSpy.hWnd
  50.     If F_CheckFormSize(Me, 3000, 3000) = True Then
  51.         P_ResizeObjectToForm Me, txtInfo, 100
  52.         Show3d Me
  53.     End If
  54.     FreezeOn 0
  55. End Sub
  56.  
  57. Sub txtInfo_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  58.   If Button And 2 Then
  59.     Set G_Control = txtInfo
  60.     PopupMenu mdicdSpy!MnuSetup
  61.   End If
  62. End Sub
  63.  
  64.