home *** CD-ROM | disk | FTP | other *** search
- object FrmExcel2: TFrmExcel2
- Left = 205
- Top = 105
- HelpContext = 8800
- BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
- BorderStyle = bsDialog
- Caption = 'Logboek weergeven in Excel'
- ClientHeight = 284
- ClientWidth = 317
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- OnActivate = FormActivate
- OnCloseQuery = FormCloseQuery
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Bevel9: TBevel
- Left = 8
- Top = 242
- Width = 305
- Height = 9
- Shape = bsTopLine
- end
- object BtnNext: TBitBtn
- Left = 144
- Top = 252
- Width = 81
- Height = 25
- HelpContext = 9908
- Caption = '&Verder'
- Default = True
- TabOrder = 1
- OnClick = BtnNextClick
- Layout = blGlyphRight
- end
- object BtnBack: TBitBtn
- Left = 48
- Top = 252
- Width = 87
- Height = 25
- HelpContext = 9907
- Caption = '&Terug'
- Default = True
- Enabled = False
- TabOrder = 0
- OnClick = BtnBackClick
- end
- object Ntb: TNotebook
- Left = 8
- Top = 8
- Width = 302
- Height = 225
- TabOrder = 3
- object TPage
- Left = 0
- Top = 0
- Caption = 'Start'
- object Bevel3: TBevel
- Left = 0
- Top = 72
- Width = 300
- Height = 9
- Shape = bsTopLine
- end
- object L1: TLabel
- Left = 16
- Top = 16
- Width = 273
- Height = 41
- Alignment = taCenter
- AutoSize = False
- Caption =
- 'Indien hieronder de lokatie waar Excel ge�nstalleerd is nog niet' +
- ' is ingevuld kunt u deze met behulp van de ZOEK-knop invullen.'
- WordWrap = True
- end
- object EdtExcelpath: TEdit
- Left = 16
- Top = 88
- Width = 249
- Height = 21
- Hint = 'LocationExcel'
- HelpContext = 8802
- CharCase = ecLowerCase
- TabOrder = 0
- end
- object BtnBrowse: TOfficeButton
- Left = 269
- Top = 88
- Width = 25
- Height = 21
- HelpContext = 8801
- Bitmap.Data = {
- DE000000424DDE0000000000000076000000280000000D0000000D0000000100
- 0400000000000000000000000000000000000000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
- F000F000000000FFF00000888888880FF000080FBFBFBF0FFA5F080BFBFBFBF0
- F0000880BFBFBFB0F0000880FBFBFBFB0000088800000000000008888888880F
- F0000888800000FFF000F0000FFFFFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFF
- F000}
- Options = [boPopupMark, boShowBevel]
- OnClick = BtnBrowseClick
- IBitmap = {
- 424D3E0200000000000036000000280000000D0000000D000000010018000000
- 00000802000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FF000000000000000000000000000000000000000000000000000000FFFFFFFF
- FFFFFFFFFF00000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFF000000FFFFFFFFFFFFFF000000FFFFFF000000FFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFF000000FFFFFF000000FF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FEFFFFFF0000
- 00FFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00
- 0000FEFFFFFF000000FFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFF010000FF000000FFFFFFFFFFFFFFFFFF000000000000
- 00000000000000000000000000000000000000000000000000FFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFF0000
- 00FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000FFFFFFFF
- FFFFFFFFFF00FFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'Options'
- object Bevel4: TBevel
- Left = 0
- Top = 72
- Width = 337
- Height = 9
- Shape = bsTopLine
- end
- object L2: TLabel
- Left = 16
- Top = 16
- Width = 273
- Height = 49
- Alignment = taCenter
- AutoSize = False
- Caption =
- 'Hier kunt u aangeven op welke wijze de gegevens in Excel moeten ' +
- 'worden weergegeven.'
- WordWrap = True
- end
- object ChkTitel: TCheckBox
- Left = 16
- Top = 112
- Width = 265
- Height = 17
- Hint = 'ExcelTitle'
- HelpContext = 8803
- Caption = '&Titel weergeven'
- State = cbChecked
- TabOrder = 1
- end
- object ChkKoppen: TCheckBox
- Left = 16
- Top = 136
- Width = 273
- Height = 17
- Hint = 'ExcelHeaders'
- HelpContext = 8803
- Caption = '&Koppen weergeven'
- State = cbChecked
- TabOrder = 2
- end
- object ChkNew: TCheckBox
- Left = 16
- Top = 88
- Width = 257
- Height = 17
- Hint = 'ExcelNewSheet'
- HelpContext = 8803
- Caption = '&Nieuw blad openen'
- State = cbChecked
- TabOrder = 0
- end
- object ChkFormat: TCheckBox
- Left = 16
- Top = 160
- Width = 265
- Height = 17
- Hint = 'ExcelFormat'
- HelpContext = 8803
- Caption = '&Cellen opmaken'
- State = cbChecked
- TabOrder = 3
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'Selection'
- object L3: TLabel
- Left = 16
- Top = 16
- Width = 273
- Height = 49
- Alignment = taCenter
- AutoSize = False
- Caption = 'Welk gedeelte van het logboek wilt u weergeven in Excel ?'
- WordWrap = True
- end
- object Bevel1: TBevel
- Left = -35
- Top = 72
- Width = 337
- Height = 9
- Shape = bsTopLine
- end
- object L_YEAR: TLabel
- Left = 16
- Top = 140
- Width = 89
- Height = 13
- Caption = 'Jaar'
- end
- object L_MONTH: TLabel
- Left = 16
- Top = 100
- Width = 89
- Height = 13
- AutoSize = False
- Caption = 'Maand'
- end
- object CmbPrintRange: TComboBox
- Left = 120
- Top = 96
- Width = 161
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 0
- OnChange = CmbPrintRangeChange
- end
- object SpeYear: TSpinEdit
- Left = 120
- Top = 136
- Width = 81
- Height = 22
- EditorEnabled = False
- MaxLength = 4
- MaxValue = 9900
- MinValue = 1000
- TabOrder = 1
- Value = 1999
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'Finish'
- object Bevel5: TBevel
- Left = 0
- Top = 64
- Width = 300
- Height = 9
- Shape = bsTopLine
- end
- object L4: TLabel
- Left = 16
- Top = 16
- Width = 274
- Height = 41
- Alignment = taCenter
- AutoSize = False
- Caption = 'Klik op de VOLTOOIEN-knop om de gegevens naar Excel te sturen.'
- WordWrap = True
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'Progress'
- object L_Status: TLabel
- Left = 16
- Top = 16
- Width = 74
- Height = 13
- Caption = 'Excel openen...'
- end
- object Pro: TProgressBar
- Left = 16
- Top = 52
- Width = 273
- Height = 16
- HelpContext = 2001
- Min = 0
- Max = 105
- TabOrder = 0
- end
- end
- end
- object BtnCancel: TBitBtn
- Left = 232
- Top = 252
- Width = 81
- Height = 25
- HelpContext = 9906
- Cancel = True
- Caption = '&Annuleren'
- ModalResult = 2
- TabOrder = 2
- OnClick = BtnCancelClick
- NumGlyphs = 2
- end
- object EasyReg: TEasyReg
- About = 'Easyreg 1.20 , (C) 99, Finiware '
- Registered = 'Yes'
- ShowMessages = True
- KeyNames = UseHints
- AutoCreateKeys = True
- Company = 'Finiware'
- ProgramName = 'Intercent\99\Settings'
- Root = rkHKEY_LOCAL_MACHINE
- Left = 272
- Top = 152
- end
- object DlgBrowse: TOpenDialog
- DefaultExt = 'exe'
- FileEditStyle = fsEdit
- Filter = 'Programma'#39's|*.exe|Alle bestanden|*.*'
- Options = [ofHideReadOnly]
- Title = 'Programma selecteren'
- Left = 272
- Top = 192
- end
- object Excel: TAdvExcel
- MoveActiveCell = dirNone
- ExeName = 'Excel'
- DecimalSeparator = ','
- FilterReturnedData = False
- StripCRLF = False
- OnOpen = ExcelOpen
- OnWaiting = ExcelWaiting
- Left = 232
- Top = 152
- end
- object TmrDelay: TTimer
- Enabled = False
- Interval = 100
- OnTimer = TmrDelayTimer
- Left = 232
- Top = 192
- end
- end
-