object Afdruk: TAfdruk Left = 203 Top = 188 BorderIcons = [] BorderStyle = bsDialog Caption = 'Print data' ClientHeight = 216 ClientWidth = 426 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 312 Top = 138 Width = 43 Height = 13 Caption = 'Copies:' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object BitBtn1: TBitBtn Left = 336 Top = 8 Width = 81 Height = 33 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 0 OnClick = BitBtn1Click Kind = bkOK end object BitBtn2: TBitBtn Left = 336 Top = 48 Width = 81 Height = 33 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnClick = BitBtn2Click Kind = bkCancel end object BitBtn3: TBitBtn Left = 336 Top = 88 Width = 81 Height = 33 Caption = '&Setup' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = BitBtn3Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555550FF0559 1950555FF75F7557F7F757000FF055591903557775F75557F77570FFFF055559 1933575FF57F5557F7FF0F00FF05555919337F775F7F5557F7F700550F055559 193577557F7F55F7577F07550F0555999995755575755F7FFF7F5570F0755011 11155557F755F777777555000755033305555577755F75F77F55555555503335 0555555FF5F75F757F5555005503335505555577FF75F7557F55505050333555 05555757F75F75557F5505000333555505557F777FF755557F55000000355557 07557777777F55557F5555000005555707555577777FF5557F55553000075557 0755557F7777FFF57555553350000055555555775777775555550000} NumGlyphs = 2 end object Panel1: TPanel Left = 8 Top = 8 Width = 281 Height = 201 BevelInner = bvLowered Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 3 object Label2: TLabel Left = 30 Top = 105 Width = 30 Height = 13 Caption = 'Artist' end object Label3: TLabel Left = 30 Top = 129 Width = 35 Height = 13 Caption = 'Album' end object RadioGroup1: TRadioGroup Left = 8 Top = 8 Width = 137 Height = 89 Caption = 'Print: ' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ItemIndex = 0 Items.Strings = ( 'Whole list' 'Search list' 'Current record') ParentFont = False TabOrder = 0 OnClick = RadioGroup1Click end object Genre: TCheckBox Left = 8 Top = 152 Width = 97 Height = 17 Caption = 'Genre' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False State = cbChecked TabOrder = 1 end object Soundcarrier: TCheckBox Left = 8 Top = 176 Width = 97 Height = 17 Caption = 'Soundcarrier' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False State = cbChecked TabOrder = 2 end object Songs: TCheckBox Left = 160 Top = 8 Width = 97 Height = 17 Caption = 'Songs' Enabled = False Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False State = cbChecked TabOrder = 3 end object Maatschappij: TCheckBox Left = 160 Top = 32 Width = 97 Height = 17 Caption = 'Label' Enabled = False Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False State = cbChecked TabOrder = 4 end object Released: TCheckBox Left = 160 Top = 56 Width = 97 Height = 17 Caption = 'Released' Enabled = False Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False State = cbChecked TabOrder = 5 end object IDNumber: TCheckBox Left = 160 Top = 80 Width = 97 Height = 17 Caption = 'ID Number' Enabled = False Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False State = cbChecked TabOrder = 6 end object LendTo: TCheckBox Left = 160 Top = 152 Width = 97 Height = 17 Caption = 'Lend to' Enabled = False Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False State = cbChecked TabOrder = 7 end object Disks: TCheckBox Left = 160 Top = 105 Width = 113 Height = 17 Caption = 'Number of Disks' Enabled = False State = cbChecked TabOrder = 8 end object Obtained: TCheckBox Left = 160 Top = 128 Width = 105 Height = 17 Caption = 'Obtained From' Enabled = False State = cbChecked TabOrder = 9 end end object ListBox1: TListBox Left = 368 Top = 136 Width = 49 Height = 17 ItemHeight = 13 Items.Strings = ( '1' '2' '3' '4' '5' '6' '7' '8' '9' '10' '11' '12' '13' '14' '15' '16' '17' '18' '19' '20') TabOrder = 4 end end