home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / cdspy / f_stich.frm < prev    next >
Text File  |  1995-02-27  |  4KB  |  139 lines
  1. VERSION 2.00
  2. Begin Form F_Stichtext 
  3.    ClientHeight    =   4590
  4.    ClientLeft      =   3180
  5.    ClientTop       =   1605
  6.    ClientWidth     =   3405
  7.    Height          =   4995
  8.    Left            =   3120
  9.    LinkTopic       =   "Form2"
  10.    MDIChild        =   -1  'True
  11.    ScaleHeight     =   4590
  12.    ScaleWidth      =   3405
  13.    Tag             =   "Titletext"
  14.    Top             =   1260
  15.    Visible         =   0   'False
  16.    Width           =   3525
  17.    Begin Outline Outline 
  18.       Height          =   3615
  19.       Left            =   90
  20.       PictureClosed   =   F_STICH.FRX:0000
  21.       PictureLeaf     =   F_STICH.FRX:00E2
  22.       PictureMinus    =   F_STICH.FRX:01C4
  23.       PictureOpen     =   F_STICH.FRX:02A6
  24.       PicturePlus     =   F_STICH.FRX:0388
  25.       TabIndex        =   0
  26.       Tag             =   "Outline"
  27.       Top             =   360
  28.       Width           =   3075
  29.    End
  30.    Begin Label LblFound 
  31.       FontBold        =   0   'False
  32.       FontItalic      =   0   'False
  33.       FontName        =   "MS Sans Serif"
  34.       FontSize        =   8.25
  35.       FontStrikethru  =   0   'False
  36.       FontUnderline   =   0   'False
  37.       Height          =   255
  38.       Left            =   90
  39.       TabIndex        =   2
  40.       Top             =   60
  41.       Width           =   2775
  42.    End
  43.    Begin Shape ShpStatusbar 
  44.       Height          =   255
  45.       Left            =   120
  46.       Top             =   4080
  47.       Width           =   3255
  48.    End
  49.    Begin Label LblStatusbar 
  50.       AutoSize        =   -1  'True
  51.       FontBold        =   0   'False
  52.       FontItalic      =   0   'False
  53.       FontName        =   "MS Sans Serif"
  54.       FontSize        =   8.25
  55.       FontStrikethru  =   0   'False
  56.       FontUnderline   =   0   'False
  57.       Height          =   195
  58.       Left            =   120
  59.       TabIndex        =   1
  60.       Top             =   4080
  61.       Width           =   45
  62.    End
  63. End
  64. Option Explicit
  65. Option Compare Text
  66. Dim GL_ListIndex%
  67. Dim GL_AktElement As TM_AktElement
  68.  
  69. Sub Form_Activate ()
  70.   GM_AktElement = GL_AktElement
  71.   PM_RefreshForms
  72. End Sub
  73.  
  74. Sub Form_Load ()
  75.   Dim cnt&, Res&, ListIndex%
  76.   Me.MousePointer = 11 'Sanduhr
  77.   Show3d Me
  78.   If Not FM_StichwortSuche(GM_Searchtext$, Me.Outline) Then
  79.     Me.MousePointer = 0 ' Default
  80.     screen.MousePointer = 0 ' Default
  81.     MsgBox "Das Wort " & GM_Searchtext$ & " kommt nicht vor!", 48, "Stichwortsuche"
  82.     Unload Me
  83.     Exit Sub
  84.   End If
  85.   Me.Caption = GM_SearchTitle$
  86.   Outline.ListIndex = 0
  87.   Outline_Click
  88.   Me.MousePointer = 0 ' Default
  89. End Sub
  90.  
  91. Sub Form_Resize ()
  92.   If F_CheckFormSize(Me, 3000, 3000) = True Then
  93.     P_ResizeObjectToForm Me, Outline, 100
  94.     Outline.Top = 300
  95.     Outline.Height = FM_Max(Me.ScaleHeight - 600, 200)
  96.     ShpStatusbar.Move 100, Me.ScaleHeight - 250, Me.ScaleWidth - 200, 200
  97.     LblStatusbar.Move 200, Me.ScaleHeight - 250
  98.     If Outline.ListCount = 1 Then
  99.       LblFound = "1 Eintrag gefunden"
  100.     Else
  101.       LblFound = Outline.ListCount & " EintrΣge gefunden"
  102.     End If
  103.     LblFound.Left = Outline.Left
  104.     Show3d Me
  105.   End If
  106. End Sub
  107.  
  108. Sub Outline_Click ()
  109.   Dim Res&
  110.   Dim pos%
  111.   If Outline.ListIndex < 0 Then Exit Sub
  112.   Me.MousePointer = 11
  113.   PM_ReadCDInfo Me.Outline, GL_AktElement
  114.   GM_AktElement = GL_AktElement
  115.   PM_RefreshForms
  116.   GL_ListIndex% = Outline.ListIndex
  117.   Me.LblStatusbar = GM_DB.Verzeichnis$
  118.   Show3d Me
  119.   Me.MousePointer = 0
  120. End Sub
  121.  
  122. Sub Outline_DblClick ()
  123.   Set G_Control = Outline
  124.   PopupMenu MDICDSpy!MnuSetup
  125. End Sub
  126.  
  127. Sub Outline_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  128.   If Button And 2 Then
  129.     Set G_Control = Outline
  130.     PopupMenu MDICDSpy!MnuSetup
  131.   End If
  132. End Sub
  133.  
  134. Sub Outline_PictureClick (ListIndex As Integer)
  135.   Outline.ListIndex = ListIndex
  136.   Outline_Click
  137. End Sub
  138.  
  139.