home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / cdspy / f_inform.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-02-26  |  1.5 KB  |  57 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. Option Explicit
  28. Option Compare Text
  29. Sub Form_Load ()
  30.   PM_LiesForm Me
  31.   PM_Refresh GCM_ENABLE
  32.   Me.Show
  33.   PM_Refresh GCM_DISABLE
  34. End Sub
  35. Sub Form_Paint ()
  36.   If FM_Refresh() Then
  37.     Me.txtInfo.Text = FM_GetAktInfo()
  38.   End If
  39. End Sub
  40. Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
  41.   PM_SchreibForm Me
  42. End Sub
  43. Sub Form_Resize ()
  44.     FreezeOn mdicdSpy.hWnd
  45.     If F_CheckFormSize(Me, 3000, 3000) = True Then
  46.         P_ResizeObjectToForm Me, txtInfo, 100
  47.         Show3d Me
  48.     End If
  49.     FreezeOn 0
  50. End Sub
  51. Sub txtInfo_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  52.   If Button And 2 Then
  53.     Set G_Control = txtInfo
  54.     PopupMenu mdicdSpy!MnuSetup
  55.   End If
  56. End Sub
  57.