object Form4: TForm4 Left = 207 Top = 262 BorderIcons = [] BorderStyle = bsNone Caption = 'Kopieren' ClientHeight = 424 ClientWidth = 429 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'Arial' Font.Style = [] Icon.Data = {} OldCreateOrder = True Position = poScreenCenter Scaled = False OnShow = FormShow PixelsPerInch = 96 TextHeight = 22 object Panel1: TPanel Left = 0 Top = 0 Width = 429 Height = 424 Align = alClient BevelWidth = 4 BorderWidth = 1 BorderStyle = bsSingle Color = 6570558 TabOrder = 0 object LMDLabel1: TLMDLabel Left = 8 Top = 16 Width = 60 Height = 392 Bevel.BorderColor = 6570558 Bevel.LightColor = 16119285 Bevel.Mode = bmCustom Bevel.ShadowColor = 4259841 Bevel.StandardStyle = lsSingleLowered FontFX.ShadowDepth = 2 FontFX.ShadowColor = 4259841 FontFX.Style = tdRaisedShadow FontFX.Angle = 90 FontFX.PosX = 1 FontFX.PosY = 388 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -48 Font.Name = 'Arial' Font.Style = [fsBold] Options = [] ParentFont = False Caption = 'Dateien kopieren' end object Button2: TButton Left = 304 Top = 254 Width = 105 Height = 31 Caption = 'Schlie�en' TabOrder = 4 OnClick = Button2Click end object GroupBox1: TGroupBox Left = 72 Top = 16 Width = 337 Height = 225 Caption = 'Zielverzeichnis ausw�hlen:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 0 object FileListBox1: TFileListBox Left = 144 Top = 80 Width = 161 Height = 97 TabStop = False ItemHeight = 16 TabOrder = 6 end object DriveComboBox2: TDriveComboBox Left = 16 Top = 192 Width = 305 Height = 22 Color = clWhite DirList = DirectoryListBox2 TabOrder = 1 OnClick = DriveComboBox2Click end object ListBox1: TListBox Left = 160 Top = 64 Width = 113 Height = 65 ItemHeight = 16 TabOrder = 3 end object DirectoryListBox2: TDirectoryListBox Left = 16 Top = 54 Width = 305 Height = 131 Color = clWhite Ctl3D = True DirLabel = Label1 ItemHeight = 16 ParentCtl3D = False TabOrder = 2 OnClick = DirectoryListBox2Click end object Panel2: TPanel Left = 16 Top = 22 Width = 305 Height = 22 BevelOuter = bvLowered Color = 16119285 TabOrder = 4 object Label1: TLabel Left = 8 Top = 2 Width = 297 Height = 20 AutoSize = False Caption = 'E:\Data\Delphi5\GS2000' Color = 16119285 Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = False ParentFont = False Transparent = True Visible = False end end object Memo1: TMemo Left = 16 Top = 54 Width = 305 Height = 160 Alignment = taCenter Color = 16119285 Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False ReadOnly = True TabOrder = 5 end object Button4: TButton Left = 144 Top = 182 Width = 49 Height = 24 Caption = 'Ok' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 0 OnClick = Button4Click end end object Button1: TButton Left = 72 Top = 254 Width = 97 Height = 31 Hint = 'Kopiert die Datei(en) in das oben eingestellte (Spiele-) Verzeic' + 'hnis' Caption = 'Kopieren' Enabled = False ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = Button1Click end object GroupBox2: TGroupBox Left = 72 Top = 296 Width = 335 Height = 108 Caption = 'Verarbeitete Dateien:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 3 object Memo2: TMemo Left = 16 Top = 24 Width = 305 Height = 72 TabStop = False Color = 4259841 Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -9 Font.Name = 'Arial' Font.Pitch = fpVariable Font.Style = [fsBold] ParentFont = False ReadOnly = True ScrollBars = ssVertical TabOrder = 0 WordWrap = False end end object Button3: TButton Left = 184 Top = 254 Width = 105 Height = 31 Hint = 'Startet die kopierte Programmdatei (z.B. einen Patch)' Caption = 'Ausf�hren' Enabled = False ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = Button3Click end end end