home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / cdspy / haupt.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-02-27  |  21.5 KB  |  644 lines
  1. VERSION 2.00
  2. Begin Form haupt 
  3.    Caption         =   "CD-Spy"
  4.    ClientHeight    =   4470
  5.    ClientLeft      =   2580
  6.    ClientTop       =   4290
  7.    ClientWidth     =   9000
  8.    Height          =   5160
  9.    Left            =   2520
  10.    LinkTopic       =   "Form1"
  11.    MDIChild        =   -1  'True
  12.    ScaleHeight     =   298
  13.    ScaleMode       =   3  'Pixel
  14.    ScaleWidth      =   600
  15.    Top             =   3660
  16.    Width           =   9120
  17.    Begin PictureBox Pic_Statusbar 
  18.       Align           =   2  'Align Bottom
  19.       BackColor       =   &H00C0C0C0&
  20.       BorderStyle     =   0  'None
  21.       Height          =   285
  22.       Left            =   0
  23.       ScaleHeight     =   19
  24.       ScaleMode       =   3  'Pixel
  25.       ScaleWidth      =   600
  26.       TabIndex        =   10
  27.       TabStop         =   0   'False
  28.       Top             =   4185
  29.       Width           =   9000
  30.       Begin TextBox Txt_Status2 
  31.          BackColor       =   &H00C0C0C0&
  32.          BorderStyle     =   0  'None
  33.          FontBold        =   0   'False
  34.          FontItalic      =   0   'False
  35.          FontName        =   "MS Sans Serif"
  36.          FontSize        =   8.25
  37.          FontStrikethru  =   0   'False
  38.          FontUnderline   =   0   'False
  39.          Height          =   195
  40.          Left            =   4380
  41.          MousePointer    =   1  'Arrow
  42.          TabIndex        =   13
  43.          Text            =   " NM/ag"
  44.          Top             =   60
  45.          Width           =   4425
  46.       End
  47.       Begin TextBox Txt_Status1 
  48.          BackColor       =   &H00C0C0C0&
  49.          BorderStyle     =   0  'None
  50.          FontBold        =   0   'False
  51.          FontItalic      =   0   'False
  52.          FontName        =   "MS Sans Serif"
  53.          FontSize        =   8.25
  54.          FontStrikethru  =   0   'False
  55.          FontUnderline   =   0   'False
  56.          Height          =   195
  57.          Left            =   90
  58.          MousePointer    =   1  'Arrow
  59.          TabIndex        =   12
  60.          Text            =   " NM/ag"
  61.          Top             =   60
  62.          Width           =   4065
  63.       End
  64.    End
  65.    Begin PictureBox Pic_Toolbar 
  66.       BackColor       =   &H00C0C0C0&
  67.       BorderStyle     =   0  'None
  68.       Height          =   4965
  69.       Left            =   7380
  70.       ScaleHeight     =   4965
  71.       ScaleWidth      =   1500
  72.       TabIndex        =   0
  73.       TabStop         =   0   'False
  74.       Top             =   300
  75.       Width           =   1500
  76.       Begin CommandButton Cmd_Array 
  77.          BackColor       =   &H00C0C0C0&
  78.          Caption         =   "Start"
  79.          Enabled         =   0   'False
  80.          Height          =   525
  81.          Index           =   8
  82.          Left            =   0
  83.          TabIndex        =   19
  84.          Top             =   495
  85.          Width           =   1500
  86.       End
  87.       Begin CommandButton Cmd_Array 
  88.          BackColor       =   &H00C0C0C0&
  89.          Caption         =   "Readme"
  90.          Enabled         =   0   'False
  91.          Height          =   525
  92.          Index           =   7
  93.          Left            =   0
  94.          TabIndex        =   18
  95.          Top             =   3555
  96.          Width           =   1500
  97.       End
  98.       Begin CommandButton Cmd_Array 
  99.          BackColor       =   &H00C0C0C0&
  100.          Caption         =   "Dummy"
  101.          Enabled         =   0   'False
  102.          Height          =   525
  103.          Index           =   6
  104.          Left            =   0
  105.          TabIndex        =   14
  106.          Top             =   4320
  107.          Visible         =   0   'False
  108.          Width           =   1500
  109.       End
  110.       Begin CommandButton Cmd_Array 
  111.          BackColor       =   &H00C0C0C0&
  112.          Caption         =   "Hilfedatei"
  113.          Enabled         =   0   'False
  114.          Height          =   525
  115.          Index           =   5
  116.          Left            =   0
  117.          TabIndex        =   6
  118.          Top             =   3045
  119.          Width           =   1500
  120.       End
  121.       Begin CommandButton Cmd_Array 
  122.          BackColor       =   &H00C0C0C0&
  123.          Caption         =   "Code"
  124.          Enabled         =   0   'False
  125.          Height          =   525
  126.          Index           =   4
  127.          Left            =   0
  128.          TabIndex        =   5
  129.          Top             =   2535
  130.          Width           =   1500
  131.       End
  132.       Begin CommandButton Cmd_Array 
  133.          BackColor       =   &H00C0C0C0&
  134.          Caption         =   "Installieren"
  135.          Enabled         =   0   'False
  136.          Height          =   525
  137.          Index           =   3
  138.          Left            =   0
  139.          TabIndex        =   4
  140.          Top             =   2025
  141.          Width           =   1500
  142.       End
  143.       Begin CommandButton Cmd_Array 
  144.          BackColor       =   &H00C0C0C0&
  145.          Caption         =   "Kopieren"
  146.          Enabled         =   0   'False
  147.          Height          =   525
  148.          Index           =   2
  149.          Left            =   0
  150.          TabIndex        =   3
  151.          Top             =   1515
  152.          Width           =   1500
  153.       End
  154.       Begin CommandButton Cmd_Array 
  155.          BackColor       =   &H00C0C0C0&
  156.          Caption         =   "Demo"
  157.          Enabled         =   0   'False
  158.          Height          =   525
  159.          Index           =   1
  160.          Left            =   0
  161.          TabIndex        =   2
  162.          Top             =   1005
  163.          Width           =   1500
  164.       End
  165.       Begin CommandButton Cmd_Array 
  166.          BackColor       =   &H00C0C0C0&
  167.          Caption         =   "Info"
  168.          Enabled         =   0   'False
  169.          Height          =   525
  170.          Index           =   0
  171.          Left            =   0
  172.          TabIndex        =   1
  173.          Top             =   0
  174.          Width           =   1500
  175.       End
  176.    End
  177.    Begin PictureBox Pic_Buttonbar 
  178.       Align           =   1  'Align Top
  179.       BackColor       =   &H00C0C0C0&
  180.       BorderStyle     =   0  'None
  181.       Height          =   405
  182.       Left            =   0
  183.       ScaleHeight     =   27
  184.       ScaleMode       =   3  'Pixel
  185.       ScaleWidth      =   600
  186.       TabIndex        =   11
  187.       TabStop         =   0   'False
  188.       Top             =   0
  189.       Width           =   9000
  190.    End
  191.    Begin PictureBox Pic_Splitbar 
  192.       BackColor       =   &H00C0C0C0&
  193.       BorderStyle     =   0  'None
  194.       Height          =   4845
  195.       Left            =   2520
  196.       MousePointer    =   9  'Size W E
  197.       ScaleHeight     =   323
  198.       ScaleMode       =   3  'Pixel
  199.       ScaleWidth      =   7
  200.       TabIndex        =   8
  201.       TabStop         =   0   'False
  202.       Top             =   540
  203.       Width           =   105
  204.    End
  205.    Begin Outline Outline 
  206.       BorderStyle     =   0  'None
  207.       Height          =   4695
  208.       Left            =   90
  209.       PictureClosed   =   HAUPT.FRX:0000
  210.       PictureLeaf     =   HAUPT.FRX:00E2
  211.       PictureMinus    =   HAUPT.FRX:01C4
  212.       PictureOpen     =   HAUPT.FRX:02A6
  213.       PicturePlus     =   HAUPT.FRX:0388
  214.       TabIndex        =   7
  215.       Tag             =   "Outline"
  216.       Top             =   630
  217.       Width           =   3075
  218.    End
  219.    Begin PictureBox Pic_Anzeige 
  220.       BackColor       =   &H00C0C0C0&
  221.       BorderStyle     =   0  'None
  222.       Height          =   4695
  223.       Left            =   3390
  224.       ScaleHeight     =   313
  225.       ScaleMode       =   3  'Pixel
  226.       ScaleWidth      =   259
  227.       TabIndex        =   9
  228.       TabStop         =   0   'False
  229.       Top             =   570
  230.       Width           =   3885
  231.       Begin VScrollBar VSc_Anzeige 
  232.          Height          =   4725
  233.          Left            =   3630
  234.          TabIndex        =   17
  235.          Top             =   -30
  236.          Visible         =   0   'False
  237.          Width           =   255
  238.       End
  239.       Begin FileListBox Fil_Projekt 
  240.          Height          =   1980
  241.          Left            =   1050
  242.          Pattern         =   "*.MAK;*.BAS;*.FRM"
  243.          TabIndex        =   16
  244.          Top             =   -30
  245.          Visible         =   0   'False
  246.          Width           =   1665
  247.       End
  248.       Begin Label Lbl_Info 
  249.          AutoSize        =   -1  'True
  250.          BackColor       =   &H00FFFFFF&
  251.          Height          =   3555
  252.          Left            =   30
  253.          TabIndex        =   15
  254.          Tag             =   "Info"
  255.          Top             =   30
  256.          Width           =   975
  257.          WordWrap        =   -1  'True
  258.       End
  259.    End
  260.    Begin Shape Shp_BS 
  261.       Height          =   4815
  262.       Left            =   30
  263.       Top             =   540
  264.       Width           =   7395
  265.    End
  266.    Begin Menu Datei 
  267.       Caption         =   "&Datei"
  268.       Begin Menu MnuDatei 
  269.          Caption         =   "Einlesen"
  270.          Index           =   0
  271.       End
  272.       Begin Menu MnuDatei 
  273.          Caption         =   "-"
  274.          Index           =   1
  275.       End
  276.       Begin Menu MnuDatei 
  277.          Caption         =   "Ende"
  278.          Index           =   2
  279.       End
  280.    End
  281.    Begin Menu Mnu_HSuche 
  282.       Caption         =   "&Suchen"
  283.       Begin Menu Mnu_Suche 
  284.          Caption         =   "Titeltext"
  285.          Index           =   0
  286.       End
  287.       Begin Menu Mnu_Suche 
  288.          Caption         =   "Stichworte"
  289.          Index           =   1
  290.       End
  291.       Begin Menu Mnu_Suche 
  292.          Caption         =   "Codesequenz"
  293.          Index           =   2
  294.       End
  295.    End
  296.    Begin Menu MnuSetup 
  297.       Caption         =   "Setup"
  298.       Visible         =   0   'False
  299.       Begin Menu MnuSubSetup 
  300.          Caption         =   "&Einstellungen"
  301.       End
  302.    End
  303. ' --------------------------------------------------------
  304. '   Haupt
  305. ' --------------------------------------------------------
  306. ' Hauptformular des CD-Spy's.
  307. ' --------------------------------------------------------
  308. ' Autor   : NM/ag
  309. ' Datum   :
  310. ' Version :
  311. ' --------------------------------------------------------
  312. Option Explicit
  313. Dim GL_ListIndex%
  314. Const LC_MIN_TXT_STATUS2 = 20
  315. Sub Cmd_Array_Click (Index As Integer)
  316.   Dim i%
  317.   Dim L_Verz$
  318.   On Error GoTo Err_Cmd_Array_Click
  319.   If Index = GCM_CMD_INFO Or Index = GCM_CMD_CODE Then PM_ChangeCmdState (Index)
  320.   Select Case Index
  321.     Case Is = GCM_CMD_INFO
  322.       Lbl_Info.Visible = True
  323.       Fil_Projekt.Visible = False
  324.     Case Is = GCM_CMD_START
  325.       Cmd_Array(Index).Enabled = False
  326.       ' Aktuelles Verzeichnis und Laufwerk sichern
  327.       L_Verz$ = CurDir$
  328.       ' Aktuelles Verzeichnis und Laufwerk setzen
  329.       ChDrive (GM_DB.Verzeichnis)
  330.       ChDir (GM_DB.Verzeichnis)
  331.       PM_ShellAndWait (FM_Verz$(GM_DB.Verzeichnis) & Cmd_Array(Index).Tag)
  332.       ' Urspr
  333. ngliches Verzeichnis und Laufwerk wiederherstellen
  334.       ChDrive L_Verz$
  335.       ChDir L_Verz$
  336.       Cmd_Array(Index).Enabled = True
  337.       Cmd_Array(Index).SetFocus
  338.       Exit Sub
  339.     Case Is = GCM_CMD_DEMO
  340.       Cmd_Array(Index).Enabled = False
  341.       PM_ShellAndWait (FM_Verz$(GM_DB.Verzeichnis) & Cmd_Array(Index).Tag)
  342.       Cmd_Array(Index).Enabled = True
  343.       Cmd_Array(Index).SetFocus
  344.       Exit Sub
  345.     Case Is = GCM_CMD_INSTALL
  346.       Cmd_Array(Index).Enabled = False
  347.       PM_ShellAndWait (FM_Verz$(GM_DB.Verzeichnis) & Cmd_Array(Index).Tag)
  348.       Cmd_Array(Index).Enabled = True
  349.       Cmd_Array(Index).SetFocus
  350.       Exit Sub
  351.     Case Is = GCM_CMD_CODE
  352.       Lbl_Info.Visible = False
  353.       Fil_Projekt.Path = Cmd_Array(Index).Tag
  354.       Fil_Projekt.Visible = True
  355.     Case Is = GCM_CMD_HILFE
  356.       Cmd_Array(Index).Enabled = False
  357.       PM_ShellAndWait (Cmd_Array(Index).Tag)
  358.       Cmd_Array(Index).Enabled = True
  359.       Cmd_Array(Index).SetFocus
  360.     Case Is = GCM_CMD_README
  361.       'PM_EditFile FM_Verz$(GM_DB.Verzeichnis$) & CMD_Array(Index).Tag
  362.       PM_LookforExt FM_Verz$(GM_DB.Verzeichnis$) & Cmd_Array(Index).Tag
  363.     Case Is = GCM_CMD_COPY
  364.       F_Kopie.Show 1
  365.       If G_CopyFiles$ <> "" Then
  366.         PM_CopyFiles
  367.       End If
  368.   End Select
  369.   Exit Sub
  370. Err_Cmd_Array_Click:
  371.   Select Case Err
  372.     Case Is = GCM_OWNER_ERROR
  373.       If Index = GCM_CMD_README Then
  374.         MsgBox "Die Datei " & Cmd_Array(Index).Tag & " kann nicht betrachtet werden, weil die Verkn
  375. pfung fehlt!", 48, "Fehler"
  376.       End If
  377.     Case Else
  378.       MsgBox "Die Funktion kann leider nicht ausgef
  379. hrt werden.", 48, "Fehler"
  380.   End Select
  381.   Exit Sub
  382. End Sub
  383. Sub Cmd_Array_KeyUp (Index As Integer, KeyCode As Integer, Shift As Integer)
  384.   If Index = GCM_CMD_INFO Or Index = GCM_CMD_CODE Then
  385.     PM_ChangeCmdState (Index)
  386.     KeyCode = 0
  387.   End If
  388. End Sub
  389. Sub Fil_Projekt_DblClick ()
  390.   PM_EditFile FM_Verz$((Fil_Projekt.Path)) & Fil_Projekt
  391. End Sub
  392. Sub Fil_Projekt_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  393.   If Button And 2 Then
  394.     Set G_Control = Fil_Projekt
  395.     PopupMenu MnuSetup
  396.   End If
  397. End Sub
  398. Sub Form_Load ()
  399.   Dim L_Res&
  400.   PM_LiesForm Me
  401.   Haupt!Pic_Splitbar.Left = Val(F_GetPrivatIni("Einstellungen", GCM_SPLITT))
  402.   PM_LiesControl Lbl_Info
  403.   PM_LiesControl Outline
  404.   'PM_ReadItems 0, -1, 1
  405.   If Outline.ListCount > 0 Then Outline.Expand(0) = True
  406.   Outline_Click
  407.   ' Textfelder im Statusbar auf readonly setzen
  408.   L_Res& = SendMessage(Txt_Status1.hWnd, &H400 + 31, -1, "")
  409.   L_Res& = SendMessage(Txt_status2.hWnd, &H400 + 31, -1, "")
  410.   Me.Show
  411. End Sub
  412. Sub Form_Resize ()
  413.   On Error Resume Next
  414.   screen.MousePointer = 11 ' Sanduhr
  415.   freezeOn Me.hWnd
  416.   Shp_BS.Top = Pic_Buttonbar.Height + 2
  417.   Pic_Toolbar.Top = Shp_BS.Top - 3
  418.   Pic_Statusbar.Top = Me.ScaleHeight - Pic_Statusbar.Height
  419.   Shp_BS.Width = FM_Max(Me.ScaleWidth - Pic_Toolbar.Width - 4, 0)
  420.   Pic_Splitbar.Left = FM_Min((Pic_Splitbar.Left), Shp_BS.Width - Pic_Splitbar.Width)
  421.   Shp_BS.Height = FM_Max(Me.ScaleHeight - Pic_Statusbar.Height - Pic_Buttonbar.Height - 2, 0)
  422.   Pic_Toolbar.Left = FM_Max(Me.ScaleWidth - Pic_Toolbar.Width, 0)
  423.   Lbl_Info.Visible = False
  424.   Pic_Splitbar.Visible = False
  425.   Pic_Anzeige.Visible = False
  426.   Pic_Toolbar.Visible = False
  427.   Me.Cls
  428.   PM_show3d Me
  429.   Pic_Toolbar.Visible = True
  430.   Pic_Anzeige.Visible = True
  431.   Pic_Splitbar.Visible = True
  432.   Lbl_Info.Visible = True
  433.   Pic_Splitbar.Refresh
  434.   PM_RefreshAnzeige
  435.   FreezeOff
  436.   screen.MousePointer = 0 ' Standard
  437. End Sub
  438. Sub Form_Unload (Cancel As Integer)
  439.   PM_SchreibForm Me
  440.   P_WritePrivatInit "Einstellungen", GCM_SPLITT, Haupt!Pic_Splitbar.Left
  441.   Cancel = False
  442.   End
  443. End Sub
  444. Sub Lbl_Info_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  445.   If Button And 2 Then
  446.     Set G_Control = Lbl_Info
  447.     PopupMenu MnuSetup
  448.   End If
  449. End Sub
  450. Sub Mnu_Suche_Click (Index As Integer)
  451.   Select Case Index
  452.     Case Is = 0
  453.     Case Is = 1 ' Stichwortsuche
  454.       F_Search.Show
  455.       F_Search.Caption = "Stichwortsuche"
  456.       P_SetWindowTop F_Search
  457.     Case Is = 2
  458.   End Select
  459. End Sub
  460. Sub MnuDatei_Click (Index As Integer)
  461.   Dim i&
  462.   Select Case Index
  463.     Case Is = 0
  464.       Me.MousePointer = 11 ' Sanduhr
  465.       PM_GenerateDB "N:\CD"
  466.       Me.MousePointer = 0 ' Standard
  467.     Case Is = 2
  468.       Unload Me
  469.   End Select
  470. End Sub
  471. Sub MnuSubSetup_Click ()
  472.   screen.MousePointer = 11 'Sanduhr
  473.   F_Setup.Show 1
  474.   Set G_Control = Nothing
  475. End Sub
  476. Sub Outline_Click ()
  477.   Dim Res&
  478.   Dim pos%
  479.   If Outline.ListIndex < 0 Then Exit Sub
  480.   Me.MousePointer = 11
  481.   'PM_ReadCDInfo
  482.   Txt_Status1 = " " & GM_DB.Verzeichnis
  483.   GL_ListIndex% = Outline.ListIndex
  484.   Me.MousePointer = 0
  485. End Sub
  486. Sub Outline_Collapse (ListIndex As Integer)
  487.   Dim i%
  488.   On Error Resume Next
  489.   Me.MousePointer = 11' Sanduhr
  490.     i% = Haupt.Outline.Indent(ListIndex% + 1)
  491.     If Err <> 0 Or Haupt.Outline.Indent(ListIndex) >= i% Then
  492.       Haupt.Outline.AddItem "Hilfs", ListIndex% + 1
  493.       Exit Do
  494.     Else
  495.       Haupt.Outline.RemoveItem ListIndex% + 1
  496.     End If
  497.   Loop
  498.   Haupt.Outline.List(ListIndex% + 1) = "Hilfs"
  499.   Haupt.Outline.Indent(ListIndex% + 1) = Haupt.Outline.Indent(ListIndex%) + 1
  500.   Haupt.Outline.ListIndex = GL_ListIndex%
  501.   Me.MousePointer = 0' Default
  502. End Sub
  503. Sub Outline_Expand (ListIndex As Integer)
  504.   On Error GoTo Err_Outline_Expand
  505.   Static working%
  506.   Dim tmp%
  507.   Dim i%
  508.   Dim Indent%
  509.   Dim ID&
  510.   If working% Or Not Haupt.Outline.HasSubItems(ListIndex%) Then
  511.     Haupt.Outline.Refresh
  512.     Exit Sub
  513.   End If
  514.   On Error Resume Next
  515.   working% = True
  516.   Me.MousePointer = 11 'Sanduhr
  517.   Indent% = Haupt.Outline.Indent(ListIndex%)
  518.   ID& = Haupt.Outline.ItemData(ListIndex%)
  519. '  For i% = 0 To Haupt.Outline.ListCount - 1
  520. '    If Haupt.Outline.Indent(i%) >= Indent% And Haupt.Outline.IsItemVisible(i%) And Haupt.Outline.HasSubItems(i%) Then
  521. '    If Err <> 0 Then Exit For
  522. '      Outline_Collapse i%
  523. '    End If
  524. '  Next i%
  525.   For i% = 0 To Haupt.Outline.ListCount - 1
  526.     If Haupt.Outline.ItemData(i%) = ID& Then
  527.       ListIndex% = i%
  528.       Exit For
  529.     End If
  530.   Next i%
  531.   tmp% = ListIndex
  532.   'PM_ReadItems Haupt.Outline.ItemData(ListIndex%), ListIndex%, Haupt.Outline.Indent(ListIndex%) + 1
  533.   Haupt.Outline.Expand(tmp%) = True
  534.   Haupt.Outline.ListIndex = tmp%
  535.   working% = False
  536.   Me.MousePointer = 0 ' default
  537.   Exit Sub
  538. Err_Outline_Expand:
  539.   working% = False
  540.   Me.MousePointer = 0' default
  541.   MsgBox "Der Speicher ist voll! Bitte schliessen Sie mindestens eine Gliederungsebene bevor Sie weitere Ebenen 
  542. ffnen.", 48, "Fehler"
  543.   Exit Sub
  544. End Sub
  545. Sub Outline_KeyUp (KeyCode As Integer, Shift As Integer)
  546.   If Outline.ListIndex <> GL_ListIndex% Then
  547.     Outline_Click
  548.   End If
  549. End Sub
  550. Sub Outline_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
  551.   If Outline.ListIndex <> GL_ListIndex% Then
  552.     Outline_Click
  553.   End If
  554.   If Button And 2 Then
  555.     Set G_Control = Outline
  556.     PopupMenu MnuSetup
  557.   End If
  558. End Sub
  559. Sub Pic_ButtonBar_Paint ()
  560.   Pic_Buttonbar.Line (0, 0)-(Me.ScaleWidth, 0), &HFFFFFF
  561.   Pic_Buttonbar.Line (0, Pic_Buttonbar.ScaleHeight - 2)-(Me.ScaleWidth, Pic_Buttonbar.ScaleHeight - 2), &H808080
  562.   Pic_Buttonbar.Line (0, Pic_Buttonbar.ScaleHeight - 1)-(Me.ScaleWidth, Pic_Buttonbar.ScaleHeight - 1), 0
  563. End Sub
  564. Sub Pic_Splitbar_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  565.   Pic_Splitbar.Tag = X
  566. End Sub
  567. Sub Pic_Splitbar_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  568.   Static working%
  569.   Dim PosX As Single
  570.   If working% Then Exit Sub
  571.   working% = True
  572.   If Button And 1 Then
  573.     PosX! = Pic_Splitbar.Left + (X - Val(Pic_Splitbar.Tag))
  574.     If PosX! < Shp_BS.Left Then PosX! = Shp_BS.Left
  575.     If PosX! > Shp_BS.Left + Shp_BS.Width - Pic_Splitbar.Width Then PosX! = Shp_BS.Left + Shp_BS.Width - Pic_Splitbar.Width
  576.     Pic_Splitbar.Left = PosX!
  577.   End If
  578.   working% = False
  579. End Sub
  580. Sub Pic_Splitbar_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
  581.   Pic_Splitbar.Refresh
  582.   PM_RefreshAnzeige
  583. End Sub
  584. Sub Pic_Splitbar_Paint ()
  585.   Dim Wert&, WertX&, WertY&
  586.   Pic_Splitbar.Height = Shp_BS.Height - 2
  587.   Pic_Splitbar.Top = Shp_BS.Top + 1
  588.   Pic_Splitbar.Line (0, 0)-(0, Pic_Splitbar.ScaleHeight), 0
  589.   Pic_Splitbar.Line (1, 0)-(1, Pic_Splitbar.ScaleHeight), &HFFFFFF
  590.   Pic_Splitbar.Line (Pic_Splitbar.ScaleWidth - 1, 0)-(Pic_Splitbar.ScaleWidth - 1, Pic_Splitbar.ScaleHeight), &H808080
  591.   Pic_Splitbar.Line (Pic_Splitbar.ScaleWidth - 1, 0)-(Pic_Splitbar.ScaleWidth - 1, Pic_Splitbar.ScaleHeight), 0
  592.   WertX& = Shp_BS.Left + 1
  593.   WertY& = Shp_BS.Top + 1
  594.   If Outline.Left <> WertX& Or Outline.Top <> WertY& Then
  595.     Outline.Move WertX&, WertY&
  596.   End If
  597.   Wert& = FM_Max(Pic_Splitbar.Left - Shp_BS.Left, 0)
  598.   If Outline.Width <> Wert& Then
  599.     Outline.Width = Wert&
  600.   End If
  601.   Wert& = FM_Max(Pic_Splitbar.Height - 1, 0)
  602.   If Outline.Height <> Wert& Then
  603.     Outline.Height = Wert&
  604.   End If
  605.   WertX& = Pic_Splitbar.Left + Pic_Splitbar.Width - 1
  606.   WertY& = Shp_BS.Top + 1
  607.   If Pic_Anzeige.Left <> WertX& Or Pic_Anzeige.Top <> WertY& Then
  608.     Pic_Anzeige.Move WertX&, WertY&
  609.   End If
  610.   Wert& = FM_Max(Shp_BS.Width - Pic_Splitbar.Left - Pic_Splitbar.Width + 2, 0)
  611.   If Pic_Anzeige.Width <> Wert& Then
  612.     Pic_Anzeige.Width = Wert&
  613.   End If
  614.   Wert& = Pic_Splitbar.Height - 1
  615.   If Pic_Anzeige.Height <> Wert& Then
  616.     Pic_Anzeige.Height = Wert& 'Outline.Height
  617.   End If
  618. End Sub
  619. Sub Pic_Statusbar_Paint ()
  620.   Const BLACK = &H0&
  621.   Const WHITE = &HFFFFFF
  622.   Const GRAY = &HC0C0C0
  623.   Const DGRAY = &H808080
  624.   Pic_Statusbar.Line (0, 0)-(Me.ScaleWidth, 0)
  625.   Pic_Statusbar.Line (0, 1)-(Me.ScaleWidth, 1), &HFFFFFF
  626.   Txt_status2.Left = Txt_Status1.Left + Txt_Status1.Width + 6
  627.   Txt_status2.Width = FM_Max(Me.ScaleWidth - Txt_status2.Left - 6, LC_MIN_TXT_STATUS2)
  628.   Pic_Statusbar.Line (Txt_Status1.Left + 1, Txt_Status1.Top + 1)-(Txt_Status1.Width + 0 + Txt_Status1.Left, Txt_Status1.Top + Txt_Status1.Height), WHITE, B
  629.   Pic_Statusbar.Line (Txt_Status1.Left - 1, Txt_Status1.Top - 1)-(Txt_Status1.Width + 1 + Txt_Status1.Left, Txt_Status1.Top + Txt_Status1.Height + 1), DGRAY, B
  630.   Pic_Statusbar.Line (Txt_Status1.Left - 2, Txt_Status1.Top - 2)-(Txt_Status1.Width + Txt_Status1.Left + 1, Txt_Status1.Top + Txt_Status1.Height + 1), GRAY, B
  631.   Pic_Statusbar.Line (Txt_status2.Left + 1, Txt_status2.Top + 1)-(Txt_status2.Width + 0 + Txt_status2.Left, Txt_Status1.Top + Txt_Status1.Height), WHITE, B
  632.   Pic_Statusbar.Line (Txt_status2.Left - 1, Txt_status2.Top - 1)-(Txt_status2.Width + 1 + Txt_status2.Left, Txt_Status1.Top + Txt_Status1.Height + 1), DGRAY, B
  633.   Pic_Statusbar.Line (Txt_status2.Left - 2, Txt_status2.Top - 2)-(Txt_status2.Width + Txt_status2.Left + 1, Txt_Status1.Top + Txt_Status1.Height + 1), GRAY, B
  634. End Sub
  635. Sub Txt_Status1_GotFocus ()
  636.   SendKeys "{TAB}", 0
  637. End Sub
  638. Sub Txt_Status2_GotFocus ()
  639.   SendKeys "{TAB}", 0
  640. End Sub
  641. Sub VSc_Anzeige_Change ()
  642.   Haupt!Lbl_Info.Top = -Haupt!VSc_Anzeige.Value * Haupt!Pic_Anzeige.TextHeight("@")
  643. End Sub
  644.