object LogoAppForm: TLogoAppForm Left = 311 Top = 114 ActiveControl = ECode BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'CreaBar 2.0' ClientHeight = 241 ClientWidth = 361 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Icon.Data = {} Menu = MainMenu Position = poScreenCenter OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object L_main_m: TLabel Left = 70 Top = 58 Width = 153 Height = 13 Caption = 'Scrivi il testo da codificare' end object L_Sugg: TLabel Left = 4 Top = 102 Width = 6 Height = 13 Caption = ' ' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object L_Main_c: TLabel Left = 2 Top = 122 Width = 339 Height = 13 Alignment = taCenter AutoSize = False Caption = 'L_Main_c' end object LTitCode: TLabel Left = 6 Top = 40 Width = 43 Height = 13 Caption = 'LTitCode' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object SpeedPanel: TPanel Left = 0 Top = 0 Width = 361 Height = 33 Align = alTop ParentShowHint = False ShowHint = True TabOrder = 0 object BtnOpen: TSpeedButton Left = 8 Top = 3 Width = 25 Height = 25 Hint = 'Open' Glyph.Data = { 06020000424D0602000000000000760000002800000028000000140000000100 0400000000009001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 333FFFFFFFFFFFFFF3333380000000000000333333888888888888883F333300 7B7B7B7B7B7B033333883F33333333338F33330F07B7B7B7B7B70333338F8F33 3333333383F3330B0B7B7B7B7B7B7033338F83F33333333338F3330FB0B7B7B7 B7B7B033338F38F333333333383F330BF07B7B7B7B7B7B03338F383FFFFF3333 338F330FBF000007B7B7B703338F33888883FFFFFF83330BFBFFFFF000000033 338F3333333888888833330FBFF0F0FFFFB03333338F333333333338F333330B FBF0F0F0FBF03333338F33333FFFFFF83333330FBFF0F0F0F00333333387FFFF 888888833333333000F0F0F0F333333333388888333333333333333333FFFFFF F333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 33333333333333333333} NumGlyphs = 2 OnClick = FileOpen end object ExitBtn: TSpeedButton Left = 174 Top = 3 Width = 25 Height = 25 Hint = 'Exit' Glyph.Data = { 06020000424D0602000000000000760000002800000028000000140000000100 0400000000009001000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00377777777777 777777773FFFFFFFFFFFF333333F888888888888F7F7F7888888888888883333 33888888888888877F7F788888888888888F333FF88844444400888FFF444444 88888888888333888883333334D5007FFF433333333338F888F3338F33333333 345D50FFFF4333333333388788F3338F3333333334D5D0FFFF433333333338F8 78F3338F33333333345D50FEFE4333333333388788F3338F3333333334D5D0FF FF433333333338F878F3338F33333333345D50FEFE4333333333388788F3338F 3333333334D5D0FFFF433333333338F878F3338F33333333345D50FEFE433333 3333388788F3338F3333333334D5D0EFEF433333333338F878F3338F33333333 345D50FEFE4333333333388788F3338F3333333334D5D0EFEF433333333338F8 F8FFFF8F33333333344444444443333333333888888888833333333333333333 3333333333333333FFFFFF333333333333300000033333333333333888888F33 333333333330AAAA0333333333333338FFFF8F33333333333330000003333333 33333338888883333333} NumGlyphs = 2 OnClick = FileExit end object BtnNewConf: TSpeedButton Left = 38 Top = 3 Width = 25 Height = 25 Hint = 'Nuova configurazione di codice a barre|Crea una nuova configuraz' + 'ione di codice a barre' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033B3333B333B 3333333333333333333333BBB3BBB3BBB3333333333333333333333BBBBBBBBB BBBB3333333333333333333BBBBBBBBBBBB333333333333333333BBB0B00B0B0 BBB33333333333333333BBBB0B00B0B0BB3333333333333333333BBB0B00B0B0 BBB33333333333333333333B0B00B0B0BBBB33333333333333333BBB0B00B0B0 BBB33333333333333333BBBB0B00B0B0BB3333333333333333333BBB0B00B0B0 BBB33333333333333333333B0B00B0B0BBBB333333333333333333BBBBBBBBBB BBB333333333333333333BBBBBBBBBBBBB3333333333333333333B333BBB3BBB 3BB33333333333333333333333B333B333333333333333333333} NumGlyphs = 2 OnClick = BtnNewConfClick end object BtnModConf: TSpeedButton Left = 68 Top = 3 Width = 25 Height = 25 Hint = 'Modifica' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333333FFFFFFFFFFFFFFF33333333333333333F0F00F0F00F 0F0F33333333333333333F0F00F0F00F0F0F33333333333333333F0F00CCCCCF 0F0F33333333333333333F0F0C77777C0F0F33333333333333333F0FC7777777 CF0F33333333333333333F0FC7777777CF0F33333333333333333F0FC777C777 CF0F33333333333333333F0FC7777C77CF0F33333333333333333F0F0C77777C 0F0F33333333333333333F0F00CCCCCF0F0F33333333333333333F0F00F0F00F 0F0F33333333333333333F0F00F0F00F0F0F33333333333333333FFFFFFFFFFF FFFF333333333333333333333333333333333333333333333333} NumGlyphs = 2 OnClick = BtnModConfClick end object BtnSaveAsFile: TSpeedButton Left = 104 Top = 3 Width = 25 Height = 25 Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330080 8800333333333333333333333333007077003333333333333333333333330077 7700333333333333333333333333000000003333333333333333333333330000 00003333333333333333333333330FFFFFF03333333333333333333333330FFF FFF03333333333333333333333330CCC9CC03333333333333333333333333339 99333333333333333333FFFFFFFF339999933333333333333333F0F00F0F3999 99993333333333333333F0F00F0F333999333333333333333333F0F00F0F3339 99333333333333333333F0F00F0F338999333333333333333333F0F00F0F9999 93333333333333333333FFFFFFFF333333333333333333333333} NumGlyphs = 2 OnClick = BtnSaveAsFileClick end object BtnPrintBar: TSpeedButton Left = 136 Top = 3 Width = 25 Height = 25 Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 00033FFFFFFFFFFFFFFF0777777777777770888888888888888F077777777777 7770888888888888888F0000000000000000FFFFFFFFFFFFFFFF0F7F7F7F7F7F 7F70888888888888888F07F7F7F7F7F7F9F0888888888888888F0F7F7F7F7F7F 7F708888888888888F8F0000000000000000888888888888888F3330FFFFFFFF 03333338F3FFFF3F8F333330FFFFFFFF03333338F88883838F333330F0F00F0F 03333338F3FF3FFF8F333330F0F00F0F03333338F883888883333330F0F00F0F 03333338F3FF8F3833333330F0F00F0F03333338F8838F8333333330FFFFFFFF 03333338FFFF8833333333300000000033333338888883333333} NumGlyphs = 2 OnClick = BtnPrintBarClick end end object StatusBar: TStatusBar Left = 0 Top = 222 Width = 361 Height = 19 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Panels = <> ParentFont = False SimplePanel = True SizeGrip = False end object ECode: TEdit Left = 14 Top = 76 Width = 257 Height = 21 TabOrder = 2 OnKeyPress = ECodeKeyPress end object ButCopy: TButton Left = 276 Top = 74 Width = 63 Height = 25 Caption = 'Copia' Default = True TabOrder = 3 OnClick = ButCopyClick end object Panel1: TPanel Left = 0 Top = 140 Width = 361 Height = 82 Align = alBottom BevelInner = bvLowered Caption = 'Panel1' TabOrder = 4 object ImageBar: TImage Left = 2 Top = 2 Width = 357 Height = 78 Align = alClient end end object MainMenu: TMainMenu Left = 265 Top = 30 object FileMenu: TMenuItem Caption = '&File' ShortCut = 0 object MenuLoad: TMenuItem Caption = '&Carica un formato di codice a barre' ShortCut = 0 OnClick = FileOpen end object MenuNewCfg: TMenuItem Caption = '&Nuovo formato di codice a barre' ShortCut = 0 OnClick = BtnNewConfClick end object MenuModCfg: TMenuItem Caption = '&Modifica il formato del codice a barre' ShortCut = 0 OnClick = BtnModConfClick end object N3: TMenuItem Caption = '-' ShortCut = 0 end object MenuSave: TMenuItem Caption = '&Salva il codice a barre su file' ShortCut = 0 OnClick = BtnSaveAsFileClick end object MenuSetPrinter: TMenuItem Caption = '&Imposta stampante' ShortCut = 0 OnClick = MenuSetPrinterClick end object MenuPrint: TMenuItem Caption = 'Stampa il codice a &barre' ShortCut = 0 OnClick = BtnPrintBarClick end object MenuRegProg: TMenuItem Caption = '&Registra il programma' ShortCut = 0 OnClick = MenuRegProgClick end object N2: TMenuItem Caption = '-' ShortCut = 0 end object MenuExit: TMenuItem Caption = '&Esci' ShortCut = 32856 OnClick = FileExit end end object MenuHelp: TMenuItem Caption = '&Help' ShortCut = 0 object MenuAutoQuest: TMenuItem Caption = 'Informazioni tramite e-mail' ShortCut = 0 OnClick = MenuAutoQuestClick end object MenuSommario: TMenuItem Caption = '&Sommario' ShortCut = 0 OnClick = MenuSommarioClick end object MenuRegistrazione: TMenuItem Caption = '&Registrazione' ShortCut = 0 OnClick = MenuRegistrazioneClick end object AboutItem: TMenuItem Caption = '&Informazioni' ShortCut = 0 OnClick = About end end end object OpenDialog: TOpenDialog DefaultExt = '*.brc' FileEditStyle = fsEdit FileName = '*.brc' Filter = 'CreaBar files|*.brc' Options = [ofHideReadOnly, ofFileMustExist] Title = 'Carica un formato di codice barre' Left = 281 Top = 30 end object SaveDialog: TSaveDialog DefaultExt = '*.wmf' FileEditStyle = fsEdit FileName = '*.wmf' Filter = 'Windows metafile|*.wmf' Options = [ofHideReadOnly, ofExtensionDifferent, ofPathMustExist] Left = 293 Top = 30 end object PrinterSetupDialog: TPrinterSetupDialog Left = 312 Top = 32 end end