object FormTest: TFormTest Left = 326 Top = 196 ActiveControl = ETest BorderStyle = bsDialog Caption = 'Prova di stampa del codice' ClientHeight = 145 ClientWidth = 261 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object LTestw: TLabel Left = 69 Top = 10 Width = 123 Height = 13 Caption = 'Scrivi il testo da codificare' end object ETest: TEdit Left = 12 Top = 30 Width = 239 Height = 21 TabOrder = 0 OnKeyPress = ETestKeyPress end object ButCopy: TButton Left = 145 Top = 70 Width = 109 Height = 25 Hint = 'Copia il codice a barre negli appunti' Caption = 'Copia' Default = True ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = ButCopyClick end object ButClose: TButton Left = 145 Top = 106 Width = 109 Height = 25 Caption = 'Chiudi' TabOrder = 4 OnClick = ButCloseClick end object ButSetPrinter: TButton Left = 14 Top = 106 Width = 109 Height = 25 Caption = 'Imposta stampante' TabOrder = 3 OnClick = ButSetPrinterClick end object ButPrint: TButton Left = 14 Top = 70 Width = 109 Height = 25 Hint = 'Stampa il codice a barre' Caption = 'Stampa' ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = ButPrintClick end object PrinterSetupDialog1: TPrinterSetupDialog Left = 230 Top = 116 end end