WDR Computer Club Digital 1996 October/CLUB10_96.BIN/share95/95kalend/kalender.exe/0/RCDATA/TPICFORM1/TPICFORM1.txt

Text File | 1996-06-23 | 5KB | 240 lines

object PicForm1: TPicForm1
  Left = 37
  Top = 109
  Width = 567
  Height = 345
  ActiveControl = FileEdit
  Caption = 'Grafik einf�gen'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 16
  object Label1: TLabel
    Left = 8
    Top = 2
    Width = 69
    Height = 16
    Caption = '&Dateiname:'
    FocusControl = FileEdit
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 160
    Top = 4
    Width = 87
    Height = 16
    Caption = '&Verzeichnisse:'
    FocusControl = DirectoryListBox1
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 160
    Top = 26
    Width = 149
    Height = 16
    AutoSize = False
    Caption = ' '
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 160
    Top = 226
    Width = 64
    Height = 16
    Caption = '&Laufwerke:'
    FocusControl = DriveComboBox1
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 8
    Top = 267
    Width = 50
    Height = 16
    Caption = 'Dateit&yp'
    FocusControl = FilterComboBox1
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object FileEdit: TEdit
    Left = 6
    Top = 23
    Width = 139
    Height = 24
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    Text = '*.bmp;*.wmf;'
  end
  object FileListBox1: TFileListBox
    Left = 6
    Top = 51
    Width = 139
    Height = 214
    FileEdit = FileEdit
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    Mask = '*.bmp;*.wmf;'
    ParentFont = False
    ShowGlyphs = True
    TabOrder = 1
    OnClick = FileListBox1Click
    OnDblClick = FileListBox1DblClick
  end
  object FilterComboBox1: TFilterComboBox
    Left = 6
    Top = 285
    Width = 304
    Height = 24
    FileList = FileListBox1
    Filter =
      'Image Files (*.bmp, *.wmf)|*.bmp;*.wmf;|Bitmap Files (*.bmp)|*.b' +
      'mp|Metafiles (*.wmf)|*.wmf;'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
  end
  object DirectoryListBox1: TDirectoryListBox
    Left = 160
    Top = 48
    Width = 148
    Height = 164
    FileList = FileListBox1
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    IntegralHeight = True
    ItemHeight = 16
    ParentFont = False
    TabOrder = 3
    OnChange = DirectoryListBox1Change
  end
  object DriveComboBox1: TDriveComboBox
    Left = 161
    Top = 244
    Width = 148
    Height = 22
    DirList = DirectoryListBox1
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
  end
  object GroupBox1: TGroupBox
    Left = 320
    Top = 7
    Width = 233
    Height = 222
    Caption = 'Vorschau'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    object Image1: TImage
      Left = 8
      Top = 16
      Width = 218
      Height = 198
    end
  end
  object StretchCheck: TCheckBox
    Left = 325
    Top = 250
    Width = 64
    Height = 17
    Caption = '&Stretch'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    OnClick = StretchCheckClick
  end
  object vs: TCheckBox
    Left = 325
    Top = 282
    Width = 148
    Height = 17
    Caption = 'V&orschau'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    State = cbChecked
    TabOrder = 7
    OnClick = vsClick
  end
  object OKBtn: TBitBtn
    Left = 476
    Top = 243
    Width = 77
    Height = 27
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 8
    OnClick = BitBtn1Click
    Kind = bkOK
    Margin = 2
    Spacing = -1
    IsControl = True
  end
  object CancelBtn: TBitBtn
    Left = 476
    Top = 280
    Width = 77
    Height = 27
    Caption = 'Abbruch'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 9
    OnClick = BitBtn2Click
    Kind = bkCancel
    Margin = 2
    Spacing = -1
    IsControl = True
  end
end