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 = {} 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 = {} 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 = {} 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 = {} 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 = {} 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 = {} 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 = {} 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