home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
code
/
cdspy
/
f_inform.frm
< prev
next >
Wrap
Text File
|
1995-02-26
|
2KB
|
64 lines
VERSION 2.00
Begin Form F_Inform
Caption = "Info"
ClientHeight = 4230
ClientLeft = 2490
ClientTop = 1470
ClientWidth = 5130
Height = 4635
Icon = F_INFORM.FRX:0000
Left = 2430
LinkTopic = "Form3"
MDIChild = -1 'True
ScaleHeight = 4230
ScaleWidth = 5130
Tag = "Info"
Top = 1125
Width = 5250
Begin TextBox txtInfo
Height = 3795
Left = 90
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 0
Top = 90
Width = 1455
End
End
Option Explicit
Option Compare Text
Sub Form_Load ()
PM_LiesForm Me
PM_Refresh GCM_ENABLE
Me.Show
PM_Refresh GCM_DISABLE
End Sub
Sub Form_Paint ()
If FM_Refresh() Then
Me.txtInfo.Text = FM_GetAktInfo()
End If
End Sub
Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
PM_SchreibForm Me
End Sub
Sub Form_Resize ()
FreezeOn mdicdSpy.hWnd
If F_CheckFormSize(Me, 3000, 3000) = True Then
P_ResizeObjectToForm Me, txtInfo, 100
Show3d Me
End If
FreezeOn 0
End Sub
Sub txtInfo_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button And 2 Then
Set G_Control = txtInfo
PopupMenu mdicdSpy!MnuSetup
End If
End Sub