home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / cdspy / f_codes.frm < prev    next >
Text File  |  1995-02-26  |  2KB  |  92 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. End
  43. Option Explicit
  44. Option Compare Text
  45.  
  46. Sub FilCode_DblClick ()
  47.   screen.MousePointer = 11 ' Sanduhr
  48.   PM_ShowToolbox False
  49.   PM_EditFile FM_Verz((FilCode.Path)) & FilCode
  50.   PM_ShowToolbox True
  51. End Sub
  52.  
  53. Sub FilCode_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  54.   If Button And 2 Then
  55.     Set G_Control = FilCode
  56.     PopupMenu mdicdSpy!MnuSetup
  57.   End If
  58. End Sub
  59.  
  60. Sub Form_Load ()
  61.   PM_LiesForm Me
  62.   PM_Refresh GCM_ENABLE
  63.   Me.Show
  64.   PM_Refresh GCM_DISABLE
  65. End Sub
  66.  
  67. Sub Form_Paint ()
  68.   If FM_Refresh() Then
  69.     Me.FilCode.Visible = F_Toolbox!Cmd_Array(GCM_CMD_CODE).Enabled
  70.     Me.FilCode.Path = GM_AktElement.Verzeichnis$
  71.     Me.FilCode.Refresh
  72.   End If
  73. End Sub
  74.  
  75. Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
  76.   PM_SchreibForm Me
  77. End Sub
  78.  
  79. Sub Form_Resize ()
  80.     FreezeOn mdicdSpy.hWnd
  81.     If F_CheckFormSize(Me, 3000, 3000) = True Then
  82.         P_ResizeObjectToForm Me, FilCode, 100
  83.         P_ResizeObjectToForm Me, label1, 200
  84.         Me.AutoRedraw = True
  85.         Me.Cls
  86.         Show3d Me
  87.         P_Show3dTwips Me, FilCode, 1
  88.     End If
  89.     FreezeOn 0
  90. End Sub
  91.  
  92.