home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2004 March
/
Chip_2004-03_cd1.bin
/
tema
/
siggis
/
siGGis.exe
/
0
/
RCDATA
/
TPROPR
/
TPROPR.txt
Wrap
Text File
|
2002-02-12
|
23KB
|
962 lines
object Propr: TPropr
Left = 357
Top = 156
BorderStyle = bsDialog
Caption = 'Properties'
ClientHeight = 341
ClientWidth = 399
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 304
Width = 399
Height = 37
Align = alBottom
TabOrder = 1
object BOk: TButton
Left = 120
Top = 6
Width = 75
Height = 25
Caption = 'OK'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = BOkClick
end
object Cancel: TButton
Left = 208
Top = 6
Width = 75
Height = 25
Caption = 'Cancel'
TabOrder = 1
OnClick = CancelClick
end
end
object PC1: TPageControl
Left = 0
Top = 0
Width = 399
Height = 304
ActivePage = TS1
Align = alClient
TabOrder = 0
OnChange = PC1Change
object TS1: TTabSheet
Caption = 'General'
object GroupBox1: TGroupBox
Left = 8
Top = 8
Width = 377
Height = 137
Caption = ' Save on exit '
TabOrder = 0
object Label1: TLabel
Left = 8
Top = 40
Width = 121
Height = 13
Caption = 'Project path:'
end
object Label2: TLabel
Left = 8
Top = 64
Width = 121
Height = 13
Caption = 'Vector path:'
end
object Label3: TLabel
Left = 8
Top = 88
Width = 121
Height = 13
Caption = 'Data table path:'
end
object Label25: TLabel
Left = 8
Top = 112
Width = 104
Height = 13
Caption = 'Temp directory (NET):'
end
object CBIni: TCheckBox
Left = 8
Top = 16
Width = 145
Height = 17
Alignment = taLeftJustify
Caption = 'Update INI file'
State = cbChecked
TabOrder = 0
OnClick = CBIniClick
end
object EProject: TEdit
Left = 140
Top = 36
Width = 229
Height = 21
Hint = 'DblClick - dialog open'
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnDblClick = EProjectDblClick
end
object EVector: TEdit
Left = 140
Top = 60
Width = 229
Height = 21
Hint = 'DblClick - dialog open'
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnDblClick = EVectorDblClick
end
object EData: TEdit
Left = 140
Top = 84
Width = 229
Height = 21
Hint = 'DblClick - dialog open'
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnDblClick = EDataDblClick
end
object ETemp: TEdit
Left = 140
Top = 108
Width = 229
Height = 21
Hint = 'DblClick - dialog open'
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnDblClick = EDataDblClick
end
end
object GroupBox2: TGroupBox
Left = 8
Top = 152
Width = 377
Height = 121
Caption = ' Redefine HelpKey (e.g.:run program with help file) '
TabOrder = 1
object Label4: TLabel
Left = 8
Top = 43
Width = 73
Height = 13
Caption = 'F1:'
end
object Label5: TLabel
Left = 8
Top = 66
Width = 73
Height = 13
Caption = 'F1+[shift]:'
end
object Label6: TLabel
Left = 8
Top = 91
Width = 73
Height = 13
Caption = 'F1+[Ctrl]:'
end
object Label12: TLabel
Left = 80
Top = 24
Width = 122
Height = 13
Caption = 'Run program - path\name'
end
object Label13: TLabel
Left = 224
Top = 24
Width = 48
Height = 13
Caption = 'Parameter'
end
object EF1: TEdit
Left = 80
Top = 40
Width = 129
Height = 21
Hint = 'DblClick - dialog open'
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = EF1Click
end
object EF2: TEdit
Left = 80
Top = 64
Width = 129
Height = 21
Hint = 'DblClick - dialog open'
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnDblClick = EF2DblClick
end
object EF3: TEdit
Left = 80
Top = 88
Width = 129
Height = 21
Hint = 'DblClick - dialog open'
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnDblClick = EF3DblClick
end
object EP1: TEdit
Left = 216
Top = 40
Width = 153
Height = 21
TabOrder = 3
end
object EP2: TEdit
Left = 216
Top = 64
Width = 153
Height = 21
TabOrder = 4
end
object EP3: TEdit
Left = 216
Top = 88
Width = 153
Height = 21
TabOrder = 5
end
end
end
object TS2: TTabSheet
Caption = 'Czech language'
object RadioGroup1: TRadioGroup
Left = 8
Top = 0
Width = 185
Height = 201
Caption = ' CP program - datab�ze (zdroj) '
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemIndex = 0
Items.Strings = (
'implicitn� (set��d�no IBM)'
'�e�tina Windows page 1250'
'�e�tina Windows 3.1 CE'
'�e�tina Kamenick�ch'
'kodov�n� Latin 1'
'kodov�n� Latin 2'
'kodov�n� ECMA ansi'
'Ansi - �esky jen dle gener�toru'
'Ibm - bez vsech hacku a carek'
'Sem - ibm bez jakekoliv grafiky'
'kodovan� pro macI')
ParentFont = False
TabOrder = 0
end
object RadioGroup2: TRadioGroup
Left = 200
Top = 0
Width = 185
Height = 201
Caption = 'Datab�ze (c�l) - pro konverzi '
ItemIndex = 0
Items.Strings = (
'�e�tina Windows page 1250'
'�e�tina Windows 3.1 CE'
'�e�tina Kamenick�ch'
'kodov�n� Latin 1'
'kodov�n� Latin 2'
'kodov�n� ECMA ansi'
'Ansi - �esky jen dle gener�toru'
'IBM - bez vsech hacku a carek'
'Sem - ibm bez jakekoliv grafiky'
'kodovan� pro macI')
TabOrder = 1
end
object GroupBox3: TGroupBox
Left = 8
Top = 206
Width = 377
Height = 68
Caption = ' Konverze soubor� podle nastaven� (zdroj - c�l) '
TabOrder = 2
object Label7: TLabel
Left = 10
Top = 18
Width = 135
Height = 13
Caption = 'Soubor ke konverzi (zdroj):'
end
object Label8: TLabel
Left = 10
Top = 43
Width = 126
Height = 13
Caption = 'Konverzovan� soubor (c�l):'
end
object ESource: TEdit
Left = 144
Top = 16
Width = 169
Height = 21
TabOrder = 0
end
object Edest: TEdit
Left = 144
Top = 40
Width = 169
Height = 21
TabOrder = 1
end
object Button1: TButton
Left = 320
Top = 16
Width = 51
Height = 22
Caption = 'Vyber'
TabOrder = 2
OnClick = Button1Click
end
object Button2: TButton
Left = 320
Top = 40
Width = 51
Height = 22
Caption = 'Prove�'
TabOrder = 3
OnClick = Button2Click
end
end
end
object TSEv: TTabSheet
Caption = 'Event setting'
object Bevel4: TBevel
Left = 0
Top = 0
Width = 391
Height = 276
Align = alClient
end
object Label14: TLabel
Left = 8
Top = 10
Width = 113
Height = 13
Caption = 'EventFile path:'
end
object Label15: TLabel
Left = 8
Top = 35
Width = 113
Height = 13
Caption = 'Interval / second:'
end
object Label16: TLabel
Left = 176
Top = 35
Width = 97
Height = 13
Caption = 'EventFile name:'
end
object E1: TEdit
Left = 128
Top = 8
Width = 257
Height = 21
Hint = 'DblClick - dialog open '
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnChange = E1Change
OnDblClick = E1DblClick
OnExit = E1Exit
end
object E2: TEdit
Left = 280
Top = 32
Width = 73
Height = 21
TabOrder = 1
Text = 'event.mon'
OnChange = E2Change
end
object GB4: TGroupBox
Left = 8
Top = 54
Width = 377
Height = 67
Caption = 'Event process: event.mon'
TabOrder = 2
object RB1: TRadioButton
Left = 16
Top = 19
Width = 113
Height = 17
Caption = 'single file'
TabOrder = 0
OnClick = RB1Click
end
object RB2: TRadioButton
Left = 16
Top = 40
Width = 113
Height = 17
Caption = 'multiple files'
Checked = True
TabOrder = 1
TabStop = True
OnClick = RB2Click
end
object Panel5: TPanel
Left = 157
Top = 8
Width = 201
Height = 53
BevelOuter = bvNone
TabOrder = 2
object LEv: TLabel
Left = 18
Top = 7
Width = 77
Height = 13
Caption = 'EventFile count:'
Font.Color = clGray
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object ChBRep: TCheckBox
Left = 16
Top = 25
Width = 141
Height = 13
Alignment = taLeftJustify
Caption = 'Repeat '
Enabled = False
TabOrder = 0
end
object ChBPrj: TCheckBox
Left = 16
Top = 41
Width = 141
Height = 13
Alignment = taLeftJustify
Caption = 'Reload project:'
Enabled = False
TabOrder = 1
end
object ME2: TEdit
Left = 144
Top = 2
Width = 41
Height = 21
MaxLength = 4
TabOrder = 2
Text = '10'
OnChange = ME2Change
OnKeyUp = ME2KeyUp
end
end
end
object GroupBox4: TGroupBox
Left = 8
Top = 122
Width = 377
Height = 148
Caption = ' applet configuration: '
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
object Label20: TLabel
Left = 8
Top = 16
Width = 102
Height = 13
Caption = 'URL - EventFile path:'
end
object Label22: TLabel
Left = 8
Top = 32
Width = 197
Height = 13
Caption = 'Interval / second: 3 , multiple files: ( 50 ) '
end
object Label21: TLabel
Left = 259
Top = 92
Width = 88
Height = 13
Caption = 'Max.EvList/rows: '
end
object Panel8: TPanel
Left = 8
Top = -2
Width = 89
Height = 17
BevelOuter = bvNone
Caption = 'siGGisEvent'
Font.Color = clRed
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
end
object CheckBox1: TCheckBox
Left = 258
Top = 56
Width = 115
Height = 17
Alignment = taLeftJustify
Caption = 'Run process '
State = cbChecked
TabOrder = 1
end
object SG1: TStringGrid
Left = 4
Top = 54
Width = 253
Height = 80
DefaultColWidth = 80
DefaultRowHeight = 18
Enabled = False
RowCount = 7
Font.Color = clGray
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsItalic]
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
ParentFont = False
ScrollBars = ssVertical
TabOrder = 2
ColWidths = (
80
37
37
37
37)
end
object CheckBox2: TCheckBox
Left = 258
Top = 72
Width = 115
Height = 17
Alignment = taLeftJustify
Caption = 'Default window'
State = cbChecked
TabOrder = 3
OnClick = CheckBox2Click
end
object Edit1: TEdit
Left = 346
Top = 90
Width = 28
Height = 21
TabOrder = 4
Text = '100'
end
end
object ME1: TEdit
Left = 128
Top = 32
Width = 33
Height = 21
MaxLength = 4
TabOrder = 4
Text = '5'
OnChange = ME1Change
OnKeyUp = ME1KeyUp
end
object Button6: TButton
Left = 360
Top = 32
Width = 25
Height = 22
Caption = '�'
Font.Color = clBlack
Font.Height = -16
Font.Name = 'Webdings'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnClick = Button6Click
end
end
object TSApp: TTabSheet
Caption = 'Export '
object Label17: TLabel
Left = 8
Top = 42
Width = 121
Height = 13
Caption = 'Export directory:'
end
object EWPath: TEdit
Left = 136
Top = 40
Width = 249
Height = 21
Hint = 'DblClick - dialog open'
ParentShowHint = False
ShowHint = True
TabOrder = 0
Text = 'Applet\'
OnDblClick = EWPathDblClick
OnExit = EWPathExit
end
object GBA: TGroupBox
Left = 4
Top = 64
Width = 189
Height = 81
Caption = ' Into siGGis files '
TabOrder = 1
object RBClk: TRadioButton
Left = 8
Top = 24
Width = 161
Height = 17
Caption = 'All geoObjects'
Checked = True
TabOrder = 0
TabStop = True
end
object RBsOb: TRadioButton
Left = 8
Top = 48
Width = 153
Height = 17
Caption = 'Only selected geoObjects'
TabOrder = 1
end
end
object Button3: TButton
Left = 160
Top = 248
Width = 75
Height = 25
Caption = 'Make All'
TabOrder = 2
OnClick = Button3Click
end
object GBD: TGroupBox
Left = 200
Top = 64
Width = 185
Height = 80
Caption = ' Into database files '
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
object Label23: TLabel
Left = 10
Top = 56
Width = 121
Height = 13
Caption = 'FontSize(plus/minus):'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object RBClk2: TRadioButton
Left = 8
Top = 16
Width = 169
Height = 17
Caption = 'All database fields '
Checked = True
TabOrder = 0
TabStop = True
end
object RBSel: TRadioButton
Left = 8
Top = 37
Width = 169
Height = 17
Caption = 'Only selected fields'
TabOrder = 1
end
object MaE: TEdit
Left = 136
Top = 54
Width = 41
Height = 21
TabOrder = 2
Text = '+12'
OnExit = MaEExit
end
end
object GBAp: TGroupBox
Left = 4
Top = 144
Width = 381
Height = 65
Caption = ' Applet setting '
TabOrder = 4
object Label19: TLabel
Left = 8
Top = 16
Width = 80
Height = 13
Caption = 'Config FileName:'
end
object Label18: TLabel
Left = 8
Top = 40
Width = 105
Height = 13
Caption = 'Data path:'
end
object EFname: TEdit
Left = 144
Top = 12
Width = 105
Height = 21
TabOrder = 0
Text = 'siggapp.cfg'
OnChange = EFnameChange
end
object Edit2: TEdit
Left = 144
Top = 36
Width = 225
Height = 21
TabOrder = 1
Text = 'Data'
end
object ChBZip: TCheckBox
Left = 256
Top = 16
Width = 113
Height = 17
Alignment = taLeftJustify
Caption = 'siggapp.zip'
State = cbChecked
TabOrder = 2
end
end
object RGApplet: TRadioGroup
Left = 4
Top = 0
Width = 381
Height = 33
Caption = ' Select applet: '
Columns = 2
Font.Color = clBlue
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ItemIndex = 0
Items.Strings = (
'Applet siGGis'
'siGGisEvent')
ParentFont = False
TabOrder = 5
end
object Button5: TButton
Left = 48
Top = 216
Width = 145
Height = 25
Caption = 'Rename files'
TabOrder = 6
OnClick = Button5Click
end
object Button4: TButton
Left = 208
Top = 216
Width = 145
Height = 25
Caption = 'Dbf Action...'
TabOrder = 7
OnClick = Button4Click
end
object ChBRun: TCheckBox
Left = 48
Top = 253
Width = 97
Height = 17
Alignment = taLeftJustify
Caption = 'Run Applet'
TabOrder = 8
end
end
object TSCop: TTabSheet
Caption = 'About program...'
OnMouseMove = TSCopMouseMove
object Bevel1: TBevel
Left = 16
Top = 16
Width = 361
Height = 249
end
object Bevel2: TBevel
Left = 40
Top = 40
Width = 273
Height = 41
end
object Bevel3: TBevel
Left = 152
Top = 104
Width = 129
Height = 89
end
object Label11: TLabel
Left = 32
Top = 240
Width = 177
Height = 13
Alignment = taCenter
Caption = 'H.a.R ware '
OnMouseMove = Label11MouseMove
end
object Label24: TLabel
Left = 208
Top = 240
Width = 46
Height = 13
Caption = 'Label24'
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold, fsUnderline]
ParentFont = False
OnDblClick = Label24DblClick
OnMouseMove = Label24MouseMove
end
object Panel3: TPanel
Left = 144
Top = 96
Width = 129
Height = 89
Caption = 'GIS viewer'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial Black'
Font.Style = [fsBold, fsItalic]
ParentFont = False
TabOrder = 0
object Label9: TLabel
Left = 9
Top = 10
Width = 106
Height = 23
Caption = 'GIS viewer'
Font.Color = clGray
Font.Height = -16
Font.Name = 'Arial Black'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object Label10: TLabel
Left = 26
Top = 56
Width = 77
Height = 16
Caption = 'GIS viewer'
Font.Color = clTeal
Font.Height = -11
Font.Name = 'Arial Black'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
end
object Panel4: TPanel
Left = 32
Top = 208
Width = 329
Height = 25
Caption = 'Panel4'
TabOrder = 1
OnMouseMove = Panel4MouseMove
end
object Panel7: TPanel
Left = 48
Top = 32
Width = 273
Height = 41
Caption = 'siGGis'
Color = clWhite
Font.Color = clRed
Font.Height = -21
Font.Name = 'Arial Black'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
object Panel6: TPanel
Left = 3
Top = 3
Width = 62
Height = 22
BevelOuter = bvNone
Caption = '....'
Color = clNone
Font.Color = clTeal
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold, fsItalic]
ParentFont = False
TabOrder = 0
end
object Panel2: TPanel
Left = 203
Top = 16
Width = 65
Height = 22
BevelOuter = bvNone
Caption = 'Monitor'
Color = clNone
Font.Color = clTeal
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold, fsItalic]
ParentFont = False
TabOrder = 1
end
end
end
end
object OD: TOpenDialog
FileEditStyle = fsEdit
Left = 364
end
object Timer1: TTimer
Enabled = False
Interval = 100
OnTimer = Timer1Timer
Left = 340
Top = 24
end
end