home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / cdspy / f_title.frm < prev    next >
Text File  |  1995-02-27  |  4KB  |  153 lines
  1. VERSION 2.00
  2. Begin Form F_Titletext 
  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_TITLE.FRX:0000
  21.       PictureLeaf     =   F_TITLE.FRX:00E2
  22.       PictureMinus    =   F_TITLE.FRX:01C4
  23.       PictureOpen     =   F_TITLE.FRX:02A6
  24.       PicturePlus     =   F_TITLE.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.   
  76.   Dim cnt&, Res&, ListIndex%
  77.   Me.MousePointer = 11 'Sanduhr
  78.   Show3d Me
  79.   cnt& = 1
  80.   ListIndex% = 0
  81.   Do
  82.     Res& = FM_LiesDB(cnt&)
  83.     If InStr(GM_DB.Bezeichnung$, GM_Searchtext$) And (GM_DB.Code <> 0) Then
  84.       Me!Outline.AddItem GM_DB.Bezeichnung$, ListIndex%
  85.       Me!Outline.ItemData(ListIndex%) = Res&
  86.       Me!Outline.PictureType(ListIndex%) = 2
  87.       Me!Outline.Indent(ListIndex%) = 1
  88.       ListIndex% = ListIndex% + 1
  89.     End If
  90.     cnt& = cnt& + 1
  91.   Loop Until Res& < 1
  92.   If Outline.ListCount = 0 Then
  93.     Me.MousePointer = 0 ' Default
  94.     screen.MousePointer = 0 ' Default
  95.     MsgBox "Das Wort " & GM_Searchtext$ & " kommt in keinem Titel vor!", 48, "Titeltextsuche"
  96.     Unload Me
  97.     Exit Sub
  98.   End If
  99.   Me.Caption = GM_SearchTitle$
  100.   Outline.ListIndex = 0
  101.   Outline_Click
  102.   Me.MousePointer = 0 ' Default
  103. End Sub
  104.  
  105. Sub Form_Resize ()
  106.   If F_CheckFormSize(Me, 3000, 3000) = True Then
  107.     P_ResizeObjectToForm Me, Outline, 100
  108.     Outline.Top = 300
  109.     Outline.Height = FM_Max(Me.ScaleHeight - 600, 200)
  110.     ShpStatusbar.Move 100, Me.ScaleHeight - 250, Me.ScaleWidth - 200, 200
  111.     LblStatusbar.Move 200, Me.ScaleHeight - 250
  112.     If Outline.ListCount = 1 Then
  113.       LblFound = "1 Eintrag gefunden"
  114.     Else
  115.       LblFound = Outline.ListCount & " EintrΣge gefunden"
  116.     End If
  117.     LblFound.Left = Outline.Left
  118.     Show3d Me
  119.   End If
  120. End Sub
  121.  
  122. Sub Outline_Click ()
  123.   Dim Res&
  124.   Dim pos%
  125.   If Outline.ListIndex < 0 Then Exit Sub
  126.   Me.MousePointer = 11
  127.   PM_ReadCDInfo Me.Outline, GL_AktElement
  128.   GM_AktElement = GL_AktElement
  129.   PM_RefreshForms
  130.   GL_ListIndex% = Outline.ListIndex
  131.   Me.LblStatusbar = GM_DB.Verzeichnis$
  132.   Show3d Me
  133.   Me.MousePointer = 0
  134. End Sub
  135.  
  136. Sub Outline_DblClick ()
  137.   Set G_Control = Outline
  138.   PopupMenu MDICDSpy!MnuSetup
  139. End Sub
  140.  
  141. Sub Outline_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  142.   If Button And 2 Then
  143.     Set G_Control = Outline
  144.     PopupMenu MDICDSpy!MnuSetup
  145.   End If
  146. End Sub
  147.  
  148. Sub Outline_PictureClick (ListIndex As Integer)
  149.   Outline.ListIndex = ListIndex
  150.   Outline_Click
  151. End Sub
  152.  
  153.