object wahldruckdlg: Twahldruckdlg Left = 290 Top = 174 Hint = 'Record ausw�hlen' BorderStyle = bsDialog Caption = 'Record ausw�hlen' ClientHeight = 241 ClientWidth = 288 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnActivate = FormActivate PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 190 Top = 0 Width = 98 Height = 241 Align = alRight BevelOuter = bvNone TabOrder = 0 object Button1: TButton Left = 16 Top = 8 Width = 75 Height = 25 Caption = 'OK' ModalResult = 1 TabOrder = 0 OnClick = Button1Click end object Button2: TButton Left = 16 Top = 38 Width = 75 Height = 25 Cancel = True Caption = 'Abbrechen' ModalResult = 2 TabOrder = 1 end end object PageControl1: TPageControl Left = 0 Top = 0 Width = 190 Height = 241 ActivePage = TabSheet1 Align = alClient TabOrder = 1 object TabSheet1: TTabSheet Caption = 'Felder' object GroupBox1: TGroupBox Left = 5 Top = 5 Width = 172 Height = 39 Hint = 'Record ausw�hlen' Caption = 'Records' TabOrder = 0 object RadioButton1: TRadioButton Left = 8 Top = 15 Width = 57 Height = 17 Caption = 'Alle ' TabOrder = 0 OnClick = RadioButton1Click end object RadioButton2: TRadioButton Left = 80 Top = 15 Width = 81 Height = 17 Caption = 'Record Liste' TabOrder = 1 OnClick = RadioButton2Click end end object GroupBox2: TGroupBox Left = 5 Top = 48 Width = 172 Height = 160 Caption = 'Felder' TabOrder = 1 object StringGrid1: TStringGrid Left = 8 Top = 16 Width = 157 Height = 137 Hint = 'Felder zum konvertieren ausw�hlen' ColCount = 2 DefaultColWidth = 50 DefaultRowHeight = 18 RowCount = 2 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goThumbTracking] ParentFont = False TabOrder = 0 OnDblClick = StringGrid1DblClick OnKeyPress = StringGrid1KeyPress RowHeights = ( 18 18) end end end object TabSheet2: TTabSheet Caption = 'Record Liste' object StringGrid2: TStringGrid Left = 10 Top = 12 Width = 161 Height = 193 Hint = 'Record zum konvertieren ausw�hlen' ColCount = 2 DefaultColWidth = 69 DefaultRowHeight = 18 RowCount = 2 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goThumbTracking] ParentFont = False TabOrder = 0 OnDblClick = StringGrid2DblClick OnKeyPress = StringGrid2KeyPress RowHeights = ( 18 18) end end end end