home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Techno Guide - Aspettando Windows 98
/
TechnoGuide.iso
/
applicaz
/
cap
/
_setup.1
/
cap.exe
/
0
/
RCDATA
/
TCAPF
/
TCAPF.txt
< prev
Wrap
Text File
|
1997-11-22
|
14KB
|
490 lines
object CapF: TCapF
Left = 325
Top = 127
ActiveControl = Panel1
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Ricerca C.A.P.'
ClientHeight = 354
ClientWidth = 357
Color = clSilver
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {<image000.ico>}
Menu = MainMenu1
PopupMenu = PopupMenu1
Position = poScreenCenter
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 357
Height = 176
BevelInner = bvLowered
BevelWidth = 2
BorderWidth = 3
Color = clSilver
TabOrder = 0
object Image1: TImage
Left = 184
Top = 16
Width = 127
Height = 57
ParentShowHint = False
Picture.Data = {<image001.TMetafile>}
ShowHint = False
Stretch = True
end
object Image2: TImage
Left = 50
Top = 21
Width = 55
Height = 52
ParentShowHint = False
Picture.Data = {<image002.bmp>}
ShowHint = False
end
object Panel4: TPanel
Left = 16
Top = 110
Width = 161
Height = 53
BevelInner = bvLowered
TabOrder = 1
object RadioButton3: TRadioButton
Left = 8
Top = 34
Width = 145
Height = 14
Hint = 'Imposta la ricerca per Provincia'
Caption = 'Ricerca per Provincia'
ParentShowHint = False
ShowHint = False
TabOrder = 2
OnClick = RadioButton3Click
OnKeyPress = RadioButton3KeyPress
OnMouseUp = RadioButton3MouseUp
end
object RadioButton1: TRadioButton
Left = 8
Top = 4
Width = 145
Height = 14
Hint = 'Imposta la ricerca per Localit�'
Caption = 'Ricerca per Localit�'
Checked = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = False
TabOrder = 0
TabStop = True
OnClick = RadioButton1Click
OnKeyPress = RadioButton1KeyPress
OnMouseUp = RadioButton1MouseUp
end
object RadioButton2: TRadioButton
Left = 8
Top = 19
Width = 145
Height = 14
Hint = 'Imposta la ricerca per C.A.P.'
Caption = 'Ricerca per C.A.P.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = False
TabOrder = 1
OnClick = RadioButton2Click
OnKeyPress = RadioButton2KeyPress
OnMouseUp = RadioButton2MouseUp
end
end
object Edit1: TEdit
Left = 16
Top = 82
Width = 324
Height = 21
Hint = 'Immetti la localit� anche parziale da ricercare'
CharCase = ecUpperCase
Color = clAqua
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
MaxLength = 30
ParentFont = False
ParentShowHint = False
ShowHint = False
TabOrder = 0
OnChange = Edit1Change
OnKeyDown = Edit1KeyDown
end
object Panel3: TPanel
Left = 184
Top = 110
Width = 156
Height = 53
BevelInner = bvLowered
BorderWidth = 3
Ctl3D = True
ParentCtl3D = False
TabOrder = 2
object BitBtn1: TBitBtn
Left = 79
Top = 5
Width = 72
Height = 43
Hint = 'Esce dal programma'
Caption = '&Fine'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = False
TabOrder = 1
Kind = bkClose
Layout = blGlyphTop
Margin = 5
Style = bsNew
Spacing = 1
end
object BitBtn3: TBitBtn
Left = 5
Top = 5
Width = 72
Height = 43
Hint = 'Ricerca CAP di Vie o Piazze'
Caption = '&Stradari'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = False
TabOrder = 0
OnClick = BitBtn3Click
Glyph.Data = {
0E060000424D0E0600000000000036000000280000001D000000110000000100
180000000000D8050000C30E0000C30E00000000000000000000C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0808080808080808080808080C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C080808080808080
8080808080C0C0C0C0C0C0C0C0C0C0C0C000C0C0C0C0C0C0C0C0C08080800000
00000000000000000000808080808080C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000000000000000000000808080808080
C0C0C0C0C0C0C0C0C000C0C0C0C0C0C080808000000000000000000000000000
0000000000808080808080808080808080808080808080808080808080808080
808080000000000000000000000000000000000000808080808080808080C0C0
C000000000000000000000000000000000FFFFFFFFFFFF000000000000000000
0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000000000000000
00FFFFFFFFFFFF0000000000000000000000FF0000FF808080000000000000FF
000000000000FFFFFFC0C0C0000000FFFFFF0000000000000000000000000000
00000000000000000000000000000000000000000000FFFFFFC0C0C0000000FF
FFFF0000000000000000000000000000FF000000000000FF000000000000FFFF
FFC0C0C0C0C0C0FFFFFF0000000000000000FF0000FF0000000000FF0000FF00
00FF0000FF0000FF000000000000FFFFFFC0C0C0C0C0C0FFFFFF000000000000
0000FF000000000000000000000000FF000000000000000000FFFFFFFFFFFF00
00000000000000000000FF0000FF0000000000FF0000FF0000FF0000FF0000FF
000000000000000000FFFFFFFFFFFF0000000000000000000000FF0000FF0000
00000000000000FF0000FF0000000000000000000000000000000000000000FF
0000FF0000FF0000000000FF0000FF0000FF0000FF0000FF0000FF0000000000
000000000000000000000000000000FF0000FF0000FF00000000000000000000
0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000
000000FF0000FF0000FF0000FF0000FF0000FF0000FF00000000000000000000
00000000FF0000FF0000FF0000FF00000000C0C0C00000000000000000FF0000
FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000000000FF0000FF00
00FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000000000FF0000FF
0000FF0000FF00000000C0C0C0C0C0C000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000FF000000000000000000C0C0
C000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
000000000000FFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFF0000000000FF000000C0C0C0C0C0C0C0C0C000C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000FFFF
FFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00
00000000FF000000C0C0C0C0C0C0C0C0C000C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000FFFFFFFFFFFF00
0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000FF0000FF000000
C0C0C0C0C0C0C0C0C000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000FFFFFFFFFFFF000000000000
0000000000000000000000000000FF0000FF000000C0C0C0C0C0C0C0C0C0C0C0
C000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C00000000000000000FF0000FF0000FF0000FF0000
FF0000FF0000FF000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0000000000000000000000000000000000000000000000000C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000}
Layout = blGlyphTop
Margin = 4
Style = bsNew
Spacing = 3
end
end
end
object Panel2: TPanel
Left = 0
Top = 176
Width = 357
Height = 157
BevelInner = bvLowered
BevelWidth = 2
BorderWidth = 3
Color = clSilver
TabOrder = 1
object Label1: TLabel
Left = 8
Top = 8
Width = 51
Height = 13
Caption = 'Frazione di'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Visible = False
end
object DBEdit1: TDBEdit
Left = 64
Top = 8
Width = 281
Height = 11
TabStop = False
AutoSize = False
BorderStyle = bsNone
Color = clSilver
Ctl3D = False
DataField = 'UFFCON'
DataSource = DataSource1
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentCtl3D = False
ParentFont = False
ReadOnly = True
TabOrder = 1
OnChange = DBEdit1Change
end
object DBGrid1: TDBGrid
Left = 7
Top = 24
Width = 343
Height = 126
Hint = 'Doppio Click o Invio per dettagli'
BorderStyle = bsNone
Color = clAqua
Ctl3D = True
DataSource = DataSource1
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [dgTitles, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
ParentCtl3D = False
ParentFont = False
ParentShowHint = False
ShowHint = False
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clBlack
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = [fsBold]
OnDblClick = DBGrid1DblClick
OnEnter = DBEdit1Change
OnExit = DBGrid1Exit
OnKeyDown = DBGrid1KeyDown
end
end
object CapHint: TPanel
Left = 0
Top = 334
Width = 357
Height = 20
Align = alBottom
BevelInner = bvLowered
Color = clSilver
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
end
object DataSource1: TDataSource
DataSet = TableCap
Left = 79
Top = 237
end
object TableCap: TTable
IndexFieldNames = 'LOCALITA'
ReadOnly = True
TableName = 'LOCALITA'
TableType = ttParadox
Left = 80
Top = 208
object TableCapLOCALITA: TStringField
DisplayLabel = 'LOCALITA'#39
DisplayWidth = 43
FieldName = 'LOCALITA'
ReadOnly = True
Size = 40
end
object TableCapPV: TStringField
Alignment = taCenter
FieldName = 'PV'
Size = 2
end
object TableCapCAP: TStringField
Alignment = taCenter
DisplayLabel = 'C.A.P.'
FieldName = 'CAP'
Size = 5
end
object TableCapLOCBIL: TStringField
FieldName = 'LOCBIL'
Visible = False
Size = 40
end
object TableCapNOTE: TStringField
FieldName = 'NOTE'
Visible = False
Size = 35
end
object TableCapUFFCON: TStringField
FieldName = 'UFFCON'
Visible = False
Size = 45
end
end
object MainMenu1: TMainMenu
Left = 16
Top = 270
object Servizio1: TMenuItem
Caption = 'Servizio'
object Ricreaindici1: TMenuItem
Caption = 'Ricrea indici'
OnClick = Ricreaindici1Click
end
end
object Guida1: TMenuItem
Caption = '&Guida'
object InformazionesuRicercaCAP1: TMenuItem
Caption = 'Info'
OnClick = InformazionesuRicercaCAP1Click
end
object N2: TMenuItem
Caption = '-'
end
object Aiuto2: TMenuItem
Caption = 'Aiuto'
ShortCut = 112
OnClick = Aiuto2Click
end
end
end
object DataSource2: TDataSource
DataSet = TableStrade
Left = 208
Top = 240
end
object TableStrade: TTable
TableType = ttParadox
Left = 208
Top = 208
object TableStradeLOCZON: TStringField
DisplayLabel = 'VIA / PIAZZA'
FieldName = 'LOCZON'
Size = 40
end
object TableStradeVIAZON: TStringField
DisplayLabel = 'DENOM. URBANISTICA'
DisplayWidth = 27
FieldName = 'VIAZON'
ReadOnly = True
Size = 25
end
object TableStradeCIVZON: TStringField
DisplayWidth = 70
FieldName = 'CIVZON'
Visible = False
Size = 100
end
object TableStradeCAPZON: TStringField
Alignment = taCenter
FieldName = 'CAPZON'
Visible = False
Size = 5
end
object TableStradePVZON: TStringField
FieldName = 'PVZON'
ReadOnly = True
Visible = False
Size = 2
end
end
object DataSource3: TDataSource
DataSet = TablePv
Left = 144
Top = 240
end
object TablePv: TTable
IndexFieldNames = 'CODPROV'
MasterFields = 'PV'
MasterSource = DataSource1
TableName = 'PV'
TableType = ttParadox
Left = 144
Top = 208
end
object FnugrySingleInstance1: TFnugrySingleInstance
Left = 136
Top = 40
end
object PopupMenu1: TPopupMenu
Left = 48
Top = 272
object RicreaIndici2: TMenuItem
Caption = 'Ricrea Indici'
OnClick = Ricreaindici1Click
end
object N1: TMenuItem
Caption = '-'
end
object Info1: TMenuItem
Caption = 'Info'
OnClick = InformazionesuRicercaCAP1Click
end
object Aiuto1: TMenuItem
Caption = 'Aiuto'
ShortCut = 112
OnClick = Aiuto2Click
end
end
end