object Form4: TForm4 Left = 309 Top = 163 BorderIcons = [] BorderStyle = bsNone Caption = 'Kopieren' ClientHeight = 424 ClientWidth = 429 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'Arial' Font.Style = [] 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 = clSilver TabOrder = 0 object LMDLabel1: TLMDLabel Left = 8 Top = 16 Width = 60 Height = 392 Bevel.Mode = bmCustom Bevel.StandardStyle = lsSingleLowered Caption = 'Dateien kopieren' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -48 Font.Name = 'Arial' Font.Style = [fsBold] FontFx.ShadowDepth = 2 FontFx.Style = tdRaisedShadow FontFx.Angle = 90 FontFx.PosX = 1 FontFx.PosY = 388 ParentFont = False end object LMDScrollText2: TLMDScrollText Left = 224 Top = 280 Width = 200 Height = 20 Hint = 'Startet das kopierte Programm (z.B. einen Patch)' Lines.Strings = ( 'TLMDScrollText') Bevel.Mode = bmCustom Bevel.StandardStyle = lsSingleLowered 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 TabOrder = 4 object Label1: TLabel Left = 8 Top = 2 Width = 297 Height = 20 AutoSize = False Caption = 'C:\Data\Delphi32\DemoStar' Color = clNavy 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 = clSilver 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 = clGray Font.Charset = DEFAULT_CHARSET Font.Color = clYellow 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 object LMDShapeHint1: TLMDShapeHint Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxWidth = 111 Style = hsNoseRect Left = 329 Top = 89 end object LMDFile1: TLMDFile OnError = LMDFile1Error Options = [foVerifyAction, foNewFileAsActual] Left = 281 Top = 89 end end