home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hot Shareware 35
/
hot35.iso
/
ficheros
/
9APLI
/
CBAR200E.ZIP
/
CBAR20.EX_
/
CBAR20.EX
/
0
/
RCDATA
/
TLOGOAPPFORM
/
TLOGOAPPFORM.txt
< prev
Wrap
Text File
|
1997-10-15
|
12KB
|
367 lines
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 = {<image000.ico>}
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