home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / cdspy / f_codes.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-02-26  |  2.4 KB  |  84 lines
  1. VERSION 2.00
  2. Begin Form F_Codes 
  3.    Caption         =   "Projekt-Dateien"
  4.    ClientHeight    =   5400
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   4200
  8.    Height          =   5805
  9.    Icon            =   F_CODES.FRX:0000
  10.    Left            =   1035
  11.    LinkTopic       =   "Form4"
  12.    MDIChild        =   -1  'True
  13.    ScaleHeight     =   5400
  14.    ScaleWidth      =   4200
  15.    Tag             =   "Code"
  16.    Top             =   1140
  17.    Width           =   4320
  18.    Begin FileListBox FilCode 
  19.       Height          =   5100
  20.       Left            =   1440
  21.       Pattern         =   "*.BAS;*.MAK;*.FRM;*.TXT"
  22.       TabIndex        =   0
  23.       Top             =   90
  24.       Width           =   1905
  25.    End
  26.    Begin Label Label1 
  27.       Alignment       =   2  'Center
  28.       Caption         =   "Kein Code vorhanden"
  29.       FontBold        =   0   'False
  30.       FontItalic      =   0   'False
  31.       FontName        =   "MS Sans Serif"
  32.       FontSize        =   8.25
  33.       FontStrikethru  =   0   'False
  34.       FontUnderline   =   0   'False
  35.       Height          =   465
  36.       Left            =   90
  37.       TabIndex        =   1
  38.       Top             =   990
  39.       Width           =   1245
  40.       WordWrap        =   -1  'True
  41.    End
  42. Option Explicit
  43. Option Compare Text
  44. Sub FilCode_DblClick ()
  45.   screen.MousePointer = 11 ' Sanduhr
  46.   PM_ShowToolbox False
  47.   PM_EditFile FM_Verz((FilCode.Path)) & FilCode
  48.   PM_ShowToolbox True
  49. End Sub
  50. Sub FilCode_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  51.   If Button And 2 Then
  52.     Set G_Control = FilCode
  53.     PopupMenu mdicdSpy!MnuSetup
  54.   End If
  55. End Sub
  56. Sub Form_Load ()
  57.   PM_LiesForm Me
  58.   PM_Refresh GCM_ENABLE
  59.   Me.Show
  60.   PM_Refresh GCM_DISABLE
  61. End Sub
  62. Sub Form_Paint ()
  63.   If FM_Refresh() Then
  64.     Me.FilCode.Visible = F_Toolbox!Cmd_Array(GCM_CMD_CODE).Enabled
  65.     Me.FilCode.Path = GM_AktElement.Verzeichnis$
  66.     Me.FilCode.Refresh
  67.   End If
  68. End Sub
  69. Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
  70.   PM_SchreibForm Me
  71. End Sub
  72. Sub Form_Resize ()
  73.     FreezeOn mdicdSpy.hWnd
  74.     If F_CheckFormSize(Me, 3000, 3000) = True Then
  75.         P_ResizeObjectToForm Me, FilCode, 100
  76.         P_ResizeObjectToForm Me, label1, 200
  77.         Me.AutoRedraw = True
  78.         Me.Cls
  79.         Show3d Me
  80.         P_Show3dTwips Me, FilCode, 1
  81.     End If
  82.     FreezeOn 0
  83. End Sub
  84.