object SuchPage: TSuchPage Left = 359 Top = 131 BorderIcons = [] BorderStyle = bsToolWindow Caption = 'Auswahl-Modul' ClientHeight = 217 ClientWidth = 115 Color = 16119285 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] FormStyle = fsStayOnTop Icon.Data = {} OldCreateOrder = True Position = poScreenCenter Scaled = False OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 16 object Image3: TImage Left = 0 Top = 0 Width = 115 Height = 217 AutoSize = True Picture.Data = {} end object Image1: TImage Left = 62 Top = 179 Width = 45 Height = 27 Cursor = crHandPoint AutoSize = True OnClick = Image1Click end object Image2: TImage Left = 8 Top = 179 Width = 48 Height = 27 Cursor = crHandPoint AutoSize = True OnClick = Image2Click end object Edit1: TEdit Left = 9 Top = 26 Width = 97 Height = 23 Hint = 'Dieser Text mu� im Titel vorkommen' AutoSize = False CharCase = ecUpperCase Color = 16119285 Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 0 OnChange = Edit1Change end object ComboBox1: TComboBox Left = 9 Top = 81 Width = 97 Height = 23 Hint = 'Nur Spiele mit dieser Mindestwertung ausw�hlen' Style = csDropDownList Color = 16119285 Ctl3D = True Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -12 Font.Name = 'arial' Font.Style = [fsBold] ItemHeight = 15 ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 1 OnChange = ComboBox1Change Items.Strings = ( '(alle)' '10' '20' '30' '40' '50' '60' '70' '80' '90') end object ComboBox2: TComboBox Left = 9 Top = 135 Width = 97 Height = 23 Cursor = crHandPoint Hint = 'Nur Eintr�ge dieser Kategorie anzeigen' Style = csDropDownList Color = 16119285 Ctl3D = True Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -12 Font.Name = 'arial' Font.Style = [fsBold] ItemHeight = 15 ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 2 OnChange = ComboBox2Change Items.Strings = ( '(alle)') end end