home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / cdspy / f_auswah.frm < prev    next >
Text File  |  1995-02-27  |  4KB  |  136 lines
  1. VERSION 2.00
  2. Begin Form F_Auswahl 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Zu kopierende Dateien"
  5.    ClientHeight    =   3435
  6.    ClientLeft      =   2025
  7.    ClientTop       =   2625
  8.    ClientWidth     =   3705
  9.    Height          =   3840
  10.    Left            =   1965
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   229
  15.    ScaleMode       =   3  'Pixel
  16.    ScaleWidth      =   247
  17.    Top             =   2280
  18.    Width           =   3825
  19.    Begin CommandButton CmdAbbruch 
  20.       BackColor       =   &H00C0C0C0&
  21.       Caption         =   "Abbruch"
  22.       FontBold        =   0   'False
  23.       FontItalic      =   0   'False
  24.       FontName        =   "Arial"
  25.       FontSize        =   9.75
  26.       FontStrikethru  =   0   'False
  27.       FontUnderline   =   0   'False
  28.       Height          =   330
  29.       Left            =   2250
  30.       TabIndex        =   4
  31.       Top             =   735
  32.       Width           =   1320
  33.    End
  34.    Begin CommandButton Cmd_Ansicht 
  35.       BackColor       =   &H00C0C0C0&
  36.       Caption         =   "Ansicht"
  37.       Enabled         =   0   'False
  38.       FontBold        =   0   'False
  39.       FontItalic      =   0   'False
  40.       FontName        =   "Arial"
  41.       FontSize        =   9.75
  42.       FontStrikethru  =   0   'False
  43.       FontUnderline   =   0   'False
  44.       Height          =   330
  45.       Left            =   2250
  46.       TabIndex        =   2
  47.       Top             =   1300
  48.       Visible         =   0   'False
  49.       Width           =   1320
  50.    End
  51.    Begin CommandButton Cmd_OK 
  52.       BackColor       =   &H00C0C0C0&
  53.       Caption         =   "OK"
  54.       Default         =   -1  'True
  55.       Enabled         =   0   'False
  56.       FontBold        =   0   'False
  57.       FontItalic      =   0   'False
  58.       FontName        =   "Arial"
  59.       FontSize        =   9.75
  60.       FontStrikethru  =   0   'False
  61.       FontUnderline   =   0   'False
  62.       Height          =   330
  63.       Left            =   2250
  64.       TabIndex        =   1
  65.       Top             =   360
  66.       Width           =   1320
  67.    End
  68.    Begin FileListBox Fil_Auswahl 
  69.       FontBold        =   0   'False
  70.       FontItalic      =   0   'False
  71.       FontName        =   "Arial"
  72.       FontSize        =   9.75
  73.       FontStrikethru  =   0   'False
  74.       FontUnderline   =   0   'False
  75.       Height          =   2910
  76.       Left            =   180
  77.       MultiSelect     =   1  'Simple
  78.       TabIndex        =   0
  79.       Top             =   360
  80.       Width           =   1905
  81.    End
  82.    Begin Label Label1 
  83.       BackStyle       =   0  'Transparent
  84.       Caption         =   "Quelldateien"
  85.       FontBold        =   -1  'True
  86.       FontItalic      =   0   'False
  87.       FontName        =   "Arial"
  88.       FontSize        =   9.75
  89.       FontStrikethru  =   0   'False
  90.       FontUnderline   =   0   'False
  91.       Height          =   195
  92.       Left            =   180
  93.       TabIndex        =   3
  94.       Top             =   120
  95.       Width           =   1395
  96.    End
  97. End
  98. Option Explicit
  99. Option Compare Text
  100.  
  101. Sub Cmd_Ansicht_Click ()
  102.   PM_EditFile FM_Verz$(GM_DB.Verzeichnis$) & Fil_Auswahl
  103. End Sub
  104.  
  105. Sub Cmd_OK_Click ()
  106.   Dim i%
  107.   For i% = 0 To Fil_Auswahl.ListCount - 1
  108.     If Fil_Auswahl.Selected(i%) Then
  109.       G_CopyFiles$ = G_CopyFiles$ + Fil_Auswahl.List(i%) + ","
  110.     End If
  111.   Next i%
  112.   Unload Me
  113. End Sub
  114.  
  115. Sub CmdAbbruch_Click ()
  116.   Unload Me
  117. End Sub
  118.  
  119. Sub Fil_Auswahl_Click ()
  120.   Cmd_Ansicht.Enabled = True
  121.   Cmd_OK.Enabled = True
  122. End Sub
  123.  
  124. Sub Fil_Auswahl_DblClick ()
  125.   Fil_Auswahl.Selected(Fil_Auswahl.ListIndex) = Not Fil_Auswahl.Selected(Fil_Auswahl.ListIndex)
  126. End Sub
  127.  
  128. Sub Form_Load ()
  129.   Me.Move (screen.Width - Me.Width) / 2, (screen.Height - Me.Height) / 3
  130.   PM_Show3d Me
  131.   P_Show3dObjectPixel Me, Fil_Auswahl, 1
  132.   Fil_Auswahl = GM_DB.Verzeichnis$
  133.   Fil_Auswahl.Refresh
  134. End Sub
  135.  
  136.