home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Kompuutteri Kaikille K-CD 2001 #9
/
K-CD_2001-09.iso
/
Tools
/
InterCent
/
_setup.1
/
Intercent99.exe
/
0
/
RCDATA
/
TFRMCALCWAY
/
TFRMCALCWAY.txt
< prev
Wrap
Text File
|
1999-06-01
|
33KB
|
1,177 lines
object FrmCalcWay: TFrmCalcWay
Left = 182
Top = 69
HelpContext = 8900
BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
BorderStyle = bsDialog
Caption = 'Wizard telefoonkosten instellen'
ClientHeight = 364
ClientWidth = 417
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
OnActivate = FormActivate
PixelsPerInch = 96
TextHeight = 13
object Bevel6: TBevel
Left = 8
Top = 72
Width = 313
Height = 9
Shape = bsTopLine
end
object Label12: TLabel
Left = 24
Top = 24
Width = 290
Height = 26
Alignment = taCenter
Caption =
'Met deze wizard kunt u de juiste telefoontarieven, daluren en wi' +
'jze van berekening instellen.'
WordWrap = True
end
object Bevel9: TBevel
Left = 0
Top = 322
Width = 409
Height = 9
Shape = bsTopLine
Style = bsRaised
end
object BtnNext: TBitBtn
Left = 224
Top = 332
Width = 89
Height = 25
HelpContext = 9908
Caption = '&Verder'
Default = True
TabOrder = 0
OnClick = BtnNextClick
Layout = blGlyphRight
end
object BtnBack: TBitBtn
Left = 126
Top = 332
Width = 91
Height = 25
HelpContext = 9907
Caption = '&Terug'
Default = True
Enabled = False
TabOrder = 1
OnClick = BtnBackClick
end
object Ntb: TNotebook
Left = 8
Top = 8
Width = 401
Height = 313
HelpContext = 8900
TabOrder = 3
object TPage
Left = 0
Top = 0
Caption = 'Start'
object L1: TLabel
Left = 40
Top = 8
Width = 353
Height = 57
Alignment = taCenter
Caption =
'Met deze wizard kunt u de juiste telefoontarieven, daluren en wi' +
'jze van berekening instellen. U kunt ook in ��n keer de juiste i' +
'nstellingen kiezen door een land te selekteren.'
WordWrap = True
end
object Bevel3: TBevel
Left = 0
Top = 72
Width = 401
Height = 9
Shape = bsTopLine
end
object l2: TLabel
Left = 16
Top = 104
Width = 361
Height = 41
Alignment = taCenter
AutoSize = False
Caption =
'Selecteer het land waarin u zich bevindt of kies '#39'Zelf instellen' +
' om zelf alle gegevens in te stellen indien uw land niet voorkom' +
't in de lijst'
WordWrap = True
end
object Image2: TImage
Left = 8
Top = 8
Width = 32
Height = 32
Picture.Data = {<image000.ico>}
end
object CmbCountries: TComboBox
Left = 16
Top = 160
Width = 361
Height = 21
Hint = 'Preset'
Style = csDropDownList
ItemHeight = 13
Sorted = True
TabOrder = 0
end
end
object TPage
Left = 0
Top = 0
Caption = 'Startcosts'
object Bevel4: TBevel
Left = 0
Top = 72
Width = 401
Height = 9
Shape = bsTopLine
end
object l3: TLabel
Left = 48
Top = 8
Width = 345
Height = 57
Alignment = taCenter
AutoSize = False
Caption =
'Hier geeft u aan of er startkosten worden berekend of dat er spr' +
'ake is van een starttarief voor een bepaalde periode.'
WordWrap = True
end
object Bevel2: TBevel
Left = 0
Top = 145
Width = 401
Height = 25
Shape = bsTopLine
end
object Image1: TImage
Left = 8
Top = 8
Width = 32
Height = 32
Picture.Data = {<image001.ico>}
end
object NtbInitCosts: TNotebook
Left = 8
Top = 168
Width = 385
Height = 129
TabOrder = 1
object TPage
Left = 0
Top = 0
Caption = 'Init1'
object L_single1: TLabel
Left = 16
Top = 24
Width = 129
Height = 13
AutoSize = False
Caption = 'E�nmalige kosten'
end
object CurrLabel3: TCurrLabel
Left = 120
Top = 24
Width = 40
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'F'
Transparent = True
ShowSymbol = True
InEuros = False
end
object eeSingleCost: TEasyEdit
Left = 168
Top = 20
Width = 57
Height = 21
Hint = 'Start1_Single'
HelpContext = 8902
TabOrder = 0
Text = '0,1000'
FocusColor = clWindow
Alignment = taRightJustify
EditType = etFloat
EditDec = 4
EditDecSep = esComma
DisplayAsLabel = False
TextAsInteger = 0
TextAsFloat = 0.100000000000000000
About = 'EasyEdit 1.00 (C) 98,Finiware'
Registered = 'Yes'
end
end
object TPage
Left = 0
Top = 0
Caption = 'Init2'
object L_Minimum1: TLabel
Left = 16
Top = 24
Width = 105
Height = 13
AutoSize = False
Caption = 'Minimumkosten'
end
object L_HighRate1: TLabel
Left = 216
Top = 24
Width = 153
Height = 13
AutoSize = False
Caption = 'hoog tarief'
end
object L_OtherRates1: TLabel
Left = 216
Top = 56
Width = 161
Height = 13
AutoSize = False
Caption = 'overige tarieven'
end
object CurrLabel1: TCurrLabel
Left = 96
Top = 24
Width = 40
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'F'
Transparent = True
ShowSymbol = True
InEuros = False
end
object CurrLabel2: TCurrLabel
Left = 96
Top = 56
Width = 40
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'F'
Transparent = True
ShowSymbol = True
InEuros = False
end
object eeMinCost: TEasyEdit
Left = 144
Top = 20
Width = 57
Height = 21
Hint = 'Start2_Minimum'
HelpContext = 8902
TabOrder = 0
Text = '0,0000'
FocusColor = clWindow
Alignment = taRightJustify
EditType = etFloat
EditDec = 4
EditDecSep = esComma
DisplayAsLabel = False
TextAsInteger = 0
TextAsFloat = 0.100000000000000000
About = 'EasyEdit 1.00 (C) 98,Finiware'
Registered = 'Yes'
end
object EasyEdit1: TEasyEdit
Left = 144
Top = 52
Width = 57
Height = 21
Hint = 'Start2_Minimum_Low'
HelpContext = 8902
TabOrder = 1
Text = '0,0000'
FocusColor = clWindow
Alignment = taRightJustify
EditType = etFloat
EditDec = 4
EditDecSep = esComma
DisplayAsLabel = False
TextAsInteger = 0
TextAsFloat = 0.100000000000000000
About = 'EasyEdit 1.00 (C) 98,Finiware'
Registered = 'Yes'
end
end
object TPage
Left = 0
Top = 0
Caption = 'Init3'
object L_forfirst: TLabel
Left = 148
Top = 24
Width = 61
Height = 13
AutoSize = False
Caption = 'voor eerste'
end
object L_Sec1: TLabel
Left = 258
Top = 24
Width = 47
Height = 13
Caption = 'seconden'
end
object L_startcost: TLabel
Left = 16
Top = 24
Width = 57
Height = 13
Caption = 'Startkosten'
end
object L_InfoStart: TLabel
Left = 16
Top = 56
Width = 361
Height = 49
AutoSize = False
Caption =
'Gebruik deze instelling alleen indien deze startkosten voor alle' +
' tariefsoorten geldt. Is dat niet het geval, kies dan voor '#39'Verv' +
'olgtarieven'#39' verderop in deze wizard.'
WordWrap = True
end
object eeStartCost: TEasyEdit
Left = 80
Top = 20
Width = 57
Height = 21
Hint = 'Start3_Cost'
HelpContext = 8902
TabOrder = 0
Text = '0,1000'
FocusColor = clWindow
Alignment = taRightJustify
EditType = etFloat
EditDec = 4
EditDecSep = esComma
DisplayAsLabel = False
TextAsInteger = 0
TextAsFloat = 0.100000000000000000
About = 'EasyEdit 1.00 (C) 98,Finiware'
Registered = 'Yes'
end
object eeStartSec: TEasyEdit
Left = 216
Top = 20
Width = 33
Height = 21
Hint = 'Start3_Seconds'
HelpContext = 8902
TabOrder = 1
Text = '0'
FocusColor = clWindow
Alignment = taRightJustify
EditType = etInteger
EditDec = 0
EditDecSep = esComma
DisplayAsLabel = False
TextAsInteger = 0
About = 'EasyEdit 1.00 (C) 98,Finiware'
Registered = 'Yes'
end
end
end
object LbxStartCost: TListBox
Left = 24
Top = 84
Width = 353
Height = 57
HelpContext = 8902
BorderStyle = bsNone
Color = clBtnFace
ItemHeight = 13
Items.Strings = (
'E�nmalige kosten'
'Minimum kosten'
'Startkosten gedurende eerste ... sec')
TabOrder = 0
OnClick = LbxStartCostClick
OnKeyDown = LbxStartCostKeyDown
end
end
object TPage
Left = 0
Top = 0
Caption = 'Calculation'
object Bevel5: TBevel
Left = 0
Top = 72
Width = 401
Height = 9
Shape = bsTopLine
end
object l4: TLabel
Left = 48
Top = 8
Width = 345
Height = 57
Alignment = taCenter
AutoSize = False
Caption = 'Geef hier aan op welke wijze de telefoonkosten worden berekend. '
WordWrap = True
end
object C: TBevel
Left = 0
Top = 145
Width = 401
Height = 9
Shape = bsTopLine
end
object Image3: TImage
Left = 8
Top = 8
Width = 32
Height = 32
Picture.Data = {<image002.ico>}
end
object NtbCalc: TNotebook
Left = 8
Top = 160
Width = 385
Height = 89
HelpContext = 8903
TabOrder = 1
object TPage
Left = 0
Top = 0
Caption = 'Init1'
end
object TPage
Left = 0
Top = 0
Caption = 'Init2'
object Label4: TLabel
Left = 277
Top = 28
Width = 17
Height = 13
Caption = 'sec'
end
object L_CalcFixedTime: TLabel
Left = 16
Top = 28
Width = 175
Height = 13
Caption = 'Eenheid met een vaste tijdsduur van '
end
object eeCalcFixedTime: TEasyEdit
Left = 205
Top = 25
Width = 49
Height = 21
Hint = 'Phone2_Seconds'
HelpContext = 602
TabOrder = 0
Text = '0'
FocusColor = clWindow
Alignment = taRightJustify
EditType = etInteger
EditDec = 0
EditDecSep = esSystem
DisplayAsLabel = False
TextAsInteger = 0
About = 'EasyEdit 1.00 (C) 98,Finiware'
Registered = 'Yes'
end
end
object TPage
Left = 0
Top = 0
Caption = 'Init3'
object L_sec4: TLabel
Left = 293
Top = 52
Width = 17
Height = 13
Caption = 'sec'
Visible = False
end
object L_FixedRateUnit: TLabel
Left = 16
Top = 52
Width = 201
Height = 13
AutoSize = False
Caption = '&Tijdsduur van 1 eenheid'
Visible = False
end
object L_FixedRate1: TLabel
Left = 16
Top = 17
Width = 193
Height = 13
AutoSize = False
Caption = 'Eenheid met een vaste tarief van'
end
object CurrLabel4: TCurrLabel
Left = 192
Top = 18
Width = 40
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'F'
Transparent = True
ShowSymbol = True
InEuros = False
end
object eeCalcFixedRate: TEasyEdit
Left = 237
Top = 14
Width = 49
Height = 21
Hint = 'Phone3_Rate'
HelpContext = 603
TabOrder = 0
Text = '0,0000'
FocusColor = clWindow
Alignment = taRightJustify
EditType = etFloat
EditDec = 4
EditDecSep = esComma
DisplayAsLabel = False
TextAsInteger = 0
About = 'EasyEdit 1.00 (C) 98,Finiware'
Registered = 'Yes'
end
object eeCalcUnit: TEasyEdit
Left = 237
Top = 49
Width = 49
Height = 21
Hint = 'Phone3_Seconds'
TabOrder = 1
Text = '60'
Visible = False
FocusColor = clWindow
Alignment = taRightJustify
EditDec = 0
EditDecSep = esSystem
DisplayAsLabel = False
TextAsInteger = 0
TextAsFloat = 60.000000000000000000
About = 'EasyEdit 1.00 (C) 98,Finiware'
Registered = 'Yes'
end
end
end
object LbxCalcWay: TListBox
Left = 24
Top = 84
Width = 353
Height = 49
HelpContext = 8903
BorderStyle = bsNone
Color = clBtnFace
ItemHeight = 13
Items.Strings = (
'Per seconde'
'Eenheid met een vaste tijdsduur van ... sec'
'Eenheid met een vast tarief van ... per ... sec')
TabOrder = 0
OnClick = LbxCalcWayClick
OnKeyDown = LbxCalcWayKeyDown
end
end
object TPage
Left = 0
Top = 0
Caption = 'Followup'
object Bevel12: TBevel
Left = 0
Top = 80
Width = 401
Height = 9
Shape = bsTopLine
end
object l5: TLabel
Left = 48
Top = 8
Width = 345
Height = 65
Alignment = taCenter
AutoSize = False
Caption =
'Hier geeft u aan of de telefoonmaatschappij een vervolgtarief ke' +
'nt. Een vervolgtarief wil zeggen dat bijvoorbeeld gedurende de e' +
'erste tien minuten een ander tarief van toepassing is, waarna he' +
't vervolgtarief start.'
WordWrap = True
end
object Bevel10: TBevel
Left = 0
Top = 144
Width = 401
Height = 9
Shape = bsTopLine
end
object Image4: TImage
Left = 8
Top = 8
Width = 32
Height = 32
Picture.Data = {<image003.ico>}
end
object LbxFollowUpRates: TListBox
Left = 24
Top = 100
Width = 353
Height = 37
BorderStyle = bsNone
Color = clBtnFace
ItemHeight = 13
Items.Strings = (
'Nee, de telefoonmaatschappij kent geen vervolgtarieven'
'Ja, de telefoonmaatschappij gebruikt vervolgtarieven')
TabOrder = 0
end
end
object TPage
Left = 0
Top = 0
Caption = 'Rates'
object L_Unit1: TLabel
Left = 256
Top = 188
Width = 81
Height = 13
AutoSize = False
Caption = 'per uur'
end
object Bevel7: TBevel
Left = 0
Top = 80
Width = 401
Height = 9
Shape = bsTopLine
end
object l6: TLabel
Left = 48
Top = 8
Width = 337
Height = 65
Alignment = taCenter
AutoSize = False
Caption =
'Hier stelt u de tarieven en periodes in. Kies een tariefsoort ui' +
't de lijst en klik op de rechthoeken om de uren en dagen in te s' +
'tellen. Klik met de rechtermuisknop om halve uren in te stellen.' +
' Stel vervolgens de overige tarieven in.'
WordWrap = True
end
object L_Kosten: TLabel
Left = 104
Top = 188
Width = 65
Height = 13
AutoSize = False
Caption = 'Kosten'
end
object L_AutoHighRate: TLabel
Left = 96
Top = 98
Width = 217
Height = 49
AutoSize = False
Caption =
'Iedere periode dat niet is geselecteerd bij een van de andere ta' +
'rieven valt automatisch onder het hoge tarief'
WordWrap = True
end
object L_Currency: TCurrLabel
Left = 144
Top = 188
Width = 40
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'F'
Transparent = True
ShowSymbol = True
InEuros = False
end
object BtnCalc: TExplorerButton
Left = 320
Top = 184
Width = 20
Height = 25
Alignment = taLeftJustify
Bitmap.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
0333337F777777737F333308888888880333337F333333337F33330888888888
03333373FFFFFFFF7333337000000000733333377777777733330000}
Options = [boPopupMark, boShowBevel]
OnClick = BtnCalcClick
IBitmap = {
424D360600000000000036000000280000002000000010000000010018000000
00000006000000000000000000000000000000000000007F7F007F7FFFFFFF00
0000000000000000000000000000000000000000000000000000FFFFFF007F7F
007F7F007F7F007F7F007F7F007F7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFF007F7FFFFFFF007F7F007F7F007F7F007F7F000000FF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000007F7F
007F7F007F7F007F7F007F7FFFFFFFFFFFFF007F7FFFFFFF007F7FFFFFFF007F
7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF007F7F007F7F007F7F007F7F000000FF
FFFF000000FFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000007F7F
007F7F007F7F007F7F007F7FFFFFFFFFFFFFFFFFFF007F7FFFFFFF007F7FFFFF
FFFFFFFFFFFFFF007F7FFFFFFFFFFFFF007F7F007F7F007F7F007F7F000000FF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000007F7F
007F7F007F7F007F7F007F7FFFFFFFFFFFFF007F7FFFFFFF007F7FFFFFFF007F
7FFFFFFF007F7FFFFFFFFFFFFFFFFFFF007F7F007F7F007F7F007F7F000000FF
FFFF000000FFFFFF000000FFFFFF000000FFFFFF000000FFFFFF000000007F7F
007F7F007F7F007F7F007F7FFFFFFFFFFFFFFFFFFF007F7FFFFFFF007F7FFFFF
FF007F7FFFFFFF007F7FFFFFFFFFFFFF007F7F007F7F007F7F007F7F000000FF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000007F7F
007F7F007F7F007F7F007F7FFFFFFFFFFFFF007F7FFFFFFF007F7FFFFFFF007F
7FFFFFFF007F7FFFFFFFFFFFFFFFFFFF007F7F007F7F007F7F007F7F000000FF
FFFF000000FFFFFF000000FFFFFF000000FFFFFF000000FFFFFF000000007F7F
007F7F007F7F007F7F007F7FFFFFFFFFFFFFFFFFFF007F7FFFFFFF007F7FFFFF
FF007F7FFFFFFF007F7FFFFFFFFFFFFF007F7F007F7F007F7F007F7F000000FF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000007F7F
007F7F007F7F007F7F007F7FFFFFFFFFFFFF007F7FFFFFFF007F7FFFFFFF007F
7FFFFFFF007F7FFFFFFFFFFFFFFFFFFF007F7F007F7F007F7F007F7F000000FF
FFFF000000FFFFFF000000FFFFFF000000FFFFFF000000FFFFFF000000007F7F
007F7F007F7F007F7F007F7FFFFFFFFFFFFFFFFFFF007F7FFFFFFF007F7FFFFF
FF007F7FFFFFFF007F7FFFFFFFFFFFFF007F7F007F7F007F7F007F7F000000FF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000007F7F
007F7F007F7F007F7F007F7FFFFFFFFFFFFF007F7FFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF007F7F007F7F007F7F007F7F000000FF
FFFF000000000000000000000000000000000000000000FFFFFF000000007F7F
007F7F007F7F007F7F007F7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF007F7F007F7F007F7F007F7F000000FF
FFFF000000000000000000FFFFFF000000FFFFFF000000FFFFFF000000007F7F
007F7F007F7F007F7F007F7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF007F7F007F7F007F7F007F7F000000FF
FFFF000000000000000000000000000000000000000000FFFFFF000000007F7F
007F7F007F7F007F7F007F7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFF007F7FFFFFFFFFFFFF007F7F007F7F007F7F007F7F000000FF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000007F7F
007F7F007F7F007F7F007F7FFFFFFFFFFFFF007F7F007F7F007F7F007F7F007F
7F007F7F007F7F007F7FFFFFFFFFFFFF007F7F007F7F007F7F007F7F000000FF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000007F7F
007F7F007F7F007F7F007F7FFFFFFF007F7FFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFF007F7F007F7F007F7F007F7F007F7FFFFFFF00
0000000000000000000000000000000000000000000000000000FFFFFF007F7F
007F7F007F7F007F7F007F7F007F7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFF007F7F007F7F007F7F007F7F}
end
object Image5: TImage
Left = 8
Top = 8
Width = 32
Height = 32
Picture.Data = {<image004.ico>}
end
object eeRate: TEasyEdit
Left = 192
Top = 184
Width = 57
Height = 21
HelpContext = 8907
TabOrder = 2
Text = '3,6026'
OnExit = eeRateExit
OnKeyPress = eeRateKeyPress
FocusColor = clWindow
Alignment = taRightJustify
EditType = etFloat
EditDec = 4
EditDecSep = esSystem
DisplayAsLabel = False
TextAsInteger = 0
About = 'EasyEdit 1.00 (C) 98,Finiware'
Registered = 'Yes'
end
object PanSelPeriod: TPanel
Left = 96
Top = 90
Width = 240
Height = 81
BevelOuter = bvNone
TabOrder = 1
Visible = False
end
object LbxRates: TListBox
Left = 8
Top = 98
Width = 81
Height = 143
HelpContext = 8904
BorderStyle = bsNone
Color = clBtnFace
ItemHeight = 13
Items.Strings = (
'Hoog tarief'
'Laag tarief'
'Tarief 3'
'Tarief 4'
'Tarief 5'
'Tarief 6'
'Tarief 7'
'Tarief 8')
TabOrder = 0
OnClick = LbxRatesClick
OnKeyDown = LbxRatesKeyDown
end
object PanFollowUp: TPanel
Left = 96
Top = 212
Width = 241
Height = 65
BevelOuter = bvNone
TabOrder = 3
object L_Unit2: TLabel
Left = 160
Top = 6
Width = 81
Height = 13
AutoSize = False
Caption = 'per uur'
end
object l_following: TLabel
Left = 8
Top = 8
Width = 81
Height = 13
AutoSize = False
Caption = 'Vervolgens'
end
object L_aftersec: TLabel
Left = 8
Top = 38
Width = 73
Height = 13
AutoSize = False
Caption = 'na'
end
object L_secs: TLabel
Left = 162
Top = 38
Width = 79
Height = 13
AutoSize = False
Caption = 'sec'
end
object eeFollowSec: TEasyEdit
Left = 96
Top = 36
Width = 57
Height = 21
HelpContext = 8907
TabOrder = 0
Text = '0'
OnExit = eeFollowSecExit
OnKeyPress = eeRateKeyPress
FocusColor = clWindow
Alignment = taRightJustify
EditType = etInteger
EditDec = 0
EditDecSep = esSystem
DisplayAsLabel = False
TextAsInteger = 0
About = 'EasyEdit 1.00 (C) 98,Finiware'
Registered = 'Yes'
end
object eeFollow: TEasyEdit
Left = 96
Top = 4
Width = 57
Height = 21
HelpContext = 8907
TabOrder = 1
Text = '0,0000'
OnExit = eeFollowExit
OnKeyPress = eeRateKeyPress
FocusColor = clWindow
Alignment = taRightJustify
EditType = etFloat
EditDec = 4
EditDecSep = esSystem
DisplayAsLabel = False
TextAsInteger = 0
About = 'EasyEdit 1.00 (C) 98,Finiware'
Registered = 'Yes'
end
end
object PanDay: TPanel
Left = 104
Top = 88
Width = 289
Height = 41
HelpContext = 8905
BevelOuter = bvNone
Locked = True
TabOrder = 4
object HrsDays: THourSel
Left = 0
Top = 8
Width = 289
About =
'THourSel 1.41 (C) , Finiware, FREEWARE D2/D4-component. Created ' +
'by Mike/Finiware.'
AllowHalfAnHour = False
AutoHint = False
AutoSelect = asSelectDeselect
DayNames = 'ma /di /wo /do /vr /za /zo /'
HsBorderColor = clActiveCaption
HsDeselectColor = clInactiveCaption
HsSelectColor = clActiveCaption
HintTitle = 'Selected hours'
RangeIndex = 1
RegistryValue = '000000000000000000000000'
ShowLabels = True
TypeSelect = tsDays
end
end
object PanHrs: TPanel
Left = 104
Top = 136
Width = 289
Height = 41
HelpContext = 8906
BevelOuter = bvNone
TabOrder = 5
object HrsHours: THourSel
Left = 0
Top = 0
Width = 289
Hint = 'Selected hours'#13#10#13#10
About =
'THourSel 1.41 (C) , Finiware, FREEWARE D2/D4-component. Created ' +
'by Mike/Finiware.'
AllowHalfAnHour = True
AutoHint = True
AutoSelect = asSelectDeselect
DayNames = 'zo /ma /di /wo /do /vr /za /'
HsBorderColor = clActiveCaption
HsDeselectColor = clInactiveCaption
HsSelectColor = clActiveCaption
HintTitle = 'Selected hours'
RangeIndex = 1
RegistryValue = '000000000000000000000000'
ShowLabels = True
TypeSelect = tsHours
ShowHint = True
OnMouseDown = HrsHoursMouseDown
end
end
end
object TPage
Left = 0
Top = 0
Caption = 'Holidays'
object L_Rate: TLabel
Left = 128
Top = 244
Width = 57
Height = 13
AutoSize = False
Caption = '&Tariefsoort'
end
object Bevel1: TBevel
Left = 0
Top = 88
Width = 401
Height = 17
Shape = bsTopLine
end
object l7: TLabel
Left = 48
Top = 8
Width = 337
Height = 73
Alignment = taCenter
AutoSize = False
Caption =
'U kunt hier vakantieperiodes selecteren, waarop een ander tarief' +
' geldt. Selecteer links een maand en klik op de kalender om dage' +
'n te selecteren. Geef vervolgens de tariefsoort aan. Deze is van' +
' toepassing op alle vakantie- en feestdagen.'
WordWrap = True
end
object Image6: TImage
Left = 8
Top = 8
Width = 32
Height = 32
Picture.Data = {<image005.ico>}
end
object CmbRateVak: TComboBox
Left = 192
Top = 240
Width = 193
Height = 21
HelpContext = 8910
Style = csDropDownList
ItemHeight = 13
Items.Strings = (
'Hoog tarief'
'Laag tarief'
'Tarief 3'
'Tarief 4'
'Tarief 5'
'Tarief 6'
'Tarief 7'
'Tarief 8')
TabOrder = 2
end
object LbxMonth: TListBox
Left = 8
Top = 104
Width = 105
Height = 177
BorderStyle = bsNone
Color = clBtnFace
ItemHeight = 13
Items.Strings = (
'Januari'
'Februari'
'Maart'
'April'
'Mei'
'Juni'
'Juli'
'Augustus'
'September'
'Oktober'
'November'
'December')
TabOrder = 0
OnClick = LbxMonthClick
OnKeyDown = LbxMonthKeyDown
end
object CalSel: TCalSel
Left = 128
Top = 104
Width = 257
Height = 129
HelpContext = 8909
FontColorSel = clWhite
ColorSel = clActiveCaption
DayNames = 'ma/di/wo/do/vr/za/zo'
Color = clInactiveCaption
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
StartOfWeek = 1
TabOrder = 1
end
end
object TPage
Left = 0
Top = 0
Caption = 'Finish'
object l8: TLabel
Left = 48
Top = 8
Width = 337
Height = 57
Alignment = taCenter
AutoSize = False
Caption =
'Hieronder is de samenvatting van de instellingen weergegeven. Kl' +
'ik op de VOLTOOIEN-knop om het instellen te voltooien.'
WordWrap = True
end
object Bevel8: TBevel
Left = 0
Top = 68
Width = 401
Height = 9
Shape = bsTopLine
end
object Image7: TImage
Left = 8
Top = 8
Width = 32
Height = 32
Picture.Data = {<image006.ico>}
end
object AsgRep: TAdvStringGrid
Left = 8
Top = 80
Width = 385
Height = 225
HelpContext = 8911
ColCount = 3
Ctl3D = True
DefaultRowHeight = 18
FixedCols = 0
RowCount = 14
GridLineWidth = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goRowSelect]
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 0
AutoSize = False
SortDirection = sdAscending
PrintTime = False
PrintDate = False
PrintPageNum = False
PrintBorders = False
PrintFont.Color = clWindowText
PrintFont.Height = -11
PrintFont.Name = 'MS Sans Serif'
PrintFont.Style = []
SortShow = False
SortColumn = 0
HintColor = clYellow
ColWidths = (
98
265
170)
end
end
end
object BtnCancel: TBitBtn
Left = 320
Top = 332
Width = 89
Height = 25
HelpContext = 9906
Cancel = True
Caption = '&Annuleren'
ModalResult = 2
TabOrder = 2
NumGlyphs = 2
end
object EasyReg: TEasyReg
About = 'Easyreg 1.20 , (C) 99, Finiware '
Registered = 'Yes'
ShowMessages = False
KeyNames = UseHints
AutoCreateKeys = True
Company = 'Finiware'
ProgramName = 'Intercent\99\Phonewizard'
Root = rkHKEY_LOCAL_MACHINE
Left = 8
Top = 328
end
end