Freelog 55/Freelog055.iso/Endirect/myCatch/myCatch.exe/0/RCDATA/TARTMYCATCH/TARTMYCATCH.txt

Text File | 2004-03-12 | 59KB | 2,188 lines

object artMyCatch: TartMyCatch
  Left = 426
  Top = 11
  HelpType = htKeyword
  HelpKeyword = 'a'
  HelpContext = 10
  BorderStyle = bsToolWindow
  Caption = 'myCatch '#169'art of log'
  ClientHeight = 477
  ClientWidth = 408
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  OnCloseQuery = FormCloseQuery
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object SpeedButton1: TSpeedButton
    Left = 48
    Top = 80
    Width = 23
    Height = 22
  end
  object panHandle: TPanel
    Left = 0
    Top = 0
    Width = 408
    Height = 70
    Align = alTop
    BevelOuter = bvNone
    Color = 13882323
    TabOrder = 0
    object imaCursorEmpty: TImage
      Left = 16
      Top = 16
      Width = 36
      Height = 36
      AutoSize = True
      Picture.Data = {<image000.bmp>}
      Visible = False
    end
    object imaCursor: TImage
      Left = 16
      Top = 16
      Width = 36
      Height = 36
      AutoSize = True
      Picture.Data = {<image001.bmp>}
      OnMouseDown = imaCursorMouseDown
      OnMouseMove = imaCursorMouseMove
      OnMouseUp = imaCursorMouseUp
    end
    object labX: TLabel
      Left = 79
      Top = 16
      Width = 8
      Height = 13
      Caption = 'x:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object labY: TLabel
      Left = 80
      Top = 35
      Width = 8
      Height = 13
      Caption = 'y:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 126
      Top = 14
      Width = 49
      Height = 14
      Caption = 'handle:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Courier New'
      Font.Style = []
      ParentFont = False
    end
    object labHexHandle: TLabel
      Left = 207
      Top = 32
      Width = 21
      Height = 13
      Caption = '= ----'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Image1: TImage
      Left = 372
      Top = 23
      Width = 32
      Height = 32
      AutoSize = True
      Picture.Data = {<image002.bmp>}
      Transparent = True
    end
    object Image3: TImage
      Left = 355
      Top = -1
      Width = 32
      Height = 32
      AutoSize = True
      Picture.Data = {<image003.bmp>}
      Transparent = True
    end
    object Image4: TImage
      Left = 323
      Top = 0
      Width = 32
      Height = 32
      AutoSize = True
      Picture.Data = {<image004.bmp>}
      Transparent = True
    end
    object Image5: TImage
      Left = 331
      Top = 15
      Width = 32
      Height = 32
      AutoSize = True
      Picture.Data = {<image005.bmp>}
      Transparent = True
    end
    object Image6: TImage
      Left = 291
      Top = 7
      Width = 32
      Height = 32
      AutoSize = True
      Picture.Data = {<image006.bmp>}
      Transparent = True
    end
    object Image7: TImage
      Left = 347
      Top = 39
      Width = 32
      Height = 32
      AutoSize = True
      Picture.Data = {<image007.bmp>}
      Transparent = True
    end
    object Image8: TImage
      Left = 303
      Top = 31
      Width = 32
      Height = 32
      AutoSize = True
      Picture.Data = {<image008.bmp>}
      Transparent = True
    end
    object ediHandle: TEdit
      Left = 126
      Top = 31
      Width = 74
      Height = 19
      HelpContext = 10
      TabStop = False
      Ctl3D = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
      OnChange = ediHandleChange
      OnExit = ediHandleExit
      OnKeyDown = ediHandleKeyDown
      OnKeyPress = ediHandleKeyPress
    end
    object panHole: TPanel
      Left = 381
      Top = 4
      Width = 25
      Height = 25
      BevelOuter = bvLowered
      TabOrder = 1
    end
  end
  object pageControl: TPageControl
    Left = 0
    Top = 70
    Width = 408
    Height = 388
    ActivePage = tbsDetails
    Align = alClient
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    HotTrack = True
    MultiLine = True
    ParentFont = False
    TabIndex = 0
    TabOrder = 1
    TabWidth = 80
    OnChange = pageControlChange
    object tbsDetails: TTabSheet
      Caption = 'D'#233'tails'
      object butRefresh: TSpeedButton
        Left = 310
        Top = 313
        Width = 73
        Height = 22
        Caption = '&Raffra'#238'chir'
        Flat = True
        OnClick = butRefreshClick
      end
      object labText: TLabel
        Left = 16
        Top = 0
        Width = 33
        Height = 13
        Caption = 'Texte :'
      end
      object butSelect: TSpeedButton
        Left = 230
        Top = 313
        Width = 73
        Height = 22
        Caption = '&S'#233'lectionner'
        Enabled = False
        Flat = True
        OnClick = butSelectClick
      end
      object labControl: TLabel
        Left = 18
        Top = 74
        Width = 44
        Height = 13
        Caption = 'Controls :'
      end
      object labClassName: TLabel
        Left = 192
        Top = 18
        Width = 31
        Height = 13
        Caption = 'Class :'
      end
      object labClassValue: TLabel
        Left = 255
        Top = 19
        Width = 12
        Height = 13
        Caption = '----'
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object labPIDValue: TLabel
        Left = 256
        Top = 42
        Width = 12
        Height = 13
        Caption = '----'
      end
      object Label4: TLabel
        Left = 194
        Top = 42
        Width = 58
        Height = 13
        Caption = 'Process ID :'
      end
      object memoText: TMemo
        Left = 16
        Top = 16
        Width = 153
        Height = 49
        Color = clCaptionText
        Ctl3D = False
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
      object treeChildWindows: TTreeView
        Left = 16
        Top = 88
        Width = 367
        Height = 214
        Ctl3D = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Indent = 19
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 1
        OnChange = treeChildWindowsChange
      end
      object Button1: TButton
        Left = 272
        Top = 8
        Width = 75
        Height = 25
        Hint = 'yodolo'
        Caption = 'Button1'
        ParentShowHint = False
        ShowHint = False
        TabOrder = 2
        Visible = False
        OnClick = Button1Click
      end
      object Button3: TButton
        Left = 272
        Top = 48
        Width = 75
        Height = 25
        Caption = 'Button3'
        TabOrder = 3
        Visible = False
        OnClick = Button3Click
      end
    end
    object tbsAction: TTabSheet
      Caption = 'Action'
      ImageIndex = 1
      object grpMark: TGroupBox
        Left = 7
        Top = 10
        Width = 382
        Height = 81
        Caption = ' Marquer bord '
        TabOrder = 0
        object labExplainMark: TLabel
          Left = 45
          Top = 21
          Width = 276
          Height = 26
          Caption =
            'Cliquer sur ce bouton une premi'#232're fois pour dessiner le contour' +
            ', cliquez une deuxi'#232'me fois pour effacer le contour.'
          WordWrap = True
        end
        object butMark: TSpeedButton
          Left = 243
          Top = 51
          Width = 129
          Height = 23
          Caption = '&Marquer bord'
          Flat = True
          OnClick = butMarkClick
        end
      end
      object grpChangeState: TGroupBox
        Left = 7
        Top = 97
        Width = 382
        Height = 127
        Caption = ' Changer '#233'tat '
        TabOrder = 1
        object labChangeState: TLabel
          Left = 45
          Top = 20
          Width = 263
          Height = 26
          Caption =
            'Cliquez sur actif pour activer le control, et inactif pour le d'#233 +
            'activer.'
          WordWrap = True
        end
        object labMenus: TLabel
          Left = 46
          Top = 75
          Width = 200
          Height = 13
          Caption = 'Cliquez pour activer/d'#233'sactiver les menus.'
          Enabled = False
          WordWrap = True
        end
        object butMenu: TSpeedButton
          Left = 243
          Top = 92
          Width = 129
          Height = 23
          Caption = 'M&enus'
          Enabled = False
          Flat = True
          OnClick = butMenuClick
        end
        object radioState: TRadioGroup
          Left = 243
          Top = 34
          Width = 129
          Height = 31
          Columns = 2
          Ctl3D = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Items.Strings = (
            'actif'
            'inactif')
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 0
          OnClick = radioStateClick
        end
      end
      object grpMove: TGroupBox
        Left = 7
        Top = 227
        Width = 379
        Height = 105
        Caption = ' D'#233'placer '
        TabOrder = 2
        object mabExplainMove: TLabel
          Left = 45
          Top = 24
          Width = 269
          Height = 39
          Caption =
            'Cliquez sur ce bouton, puis d'#233'placer le control au moyen des tou' +
            'ches fl'#232'ch'#233'es du clavier. Cliquez avec la souris, ou pressez la ' +
            'touche "entr'#233'e" pour finaliser l'#39'op'#233'ration.'
          WordWrap = True
        end
        object butMove: TSpeedButton
          Left = 243
          Top = 72
          Width = 129
          Height = 23
          Caption = '&D'#233'placer'
          Flat = True
          OnClick = butMoveClick
          OnMouseUp = butMoveMouseUp
        end
      end
    end
    object tbsMessage: TTabSheet
      Caption = 'Messages'
      ImageIndex = 3
      object grpSendMessage: TGroupBox
        Left = 8
        Top = 5
        Width = 385
        Height = 156
        Caption = 'Envoi messages'
        TabOrder = 0
        object labWparam: TLabel
          Left = 205
          Top = 13
          Width = 47
          Height = 13
          Caption = 'WParam :'
        end
        object labLParam: TLabel
          Left = 294
          Top = 13
          Width = 42
          Height = 13
          Caption = 'LParam :'
        end
        object labMessage: TLabel
          Left = 10
          Top = 14
          Width = 29
          Height = 13
          Caption = 'nom : '
        end
        object butSend: TSpeedButton
          Left = 50
          Top = 119
          Width = 67
          Height = 23
          Caption = '&Send'
          Flat = True
          OnClick = butSendClick
        end
        object butPost: TSpeedButton
          Left = 123
          Top = 119
          Width = 67
          Height = 23
          Caption = '&Post'
          Flat = True
          OnClick = butPostClick
        end
        object butHelpMessage: TSpeedButton
          Left = 168
          Top = 8
          Width = 23
          Height = 22
          Caption = '?'
          Flat = True
          OnClick = butHelpMessageClick
        end
        object cmbMessageName: TComboBox
          Left = 8
          Top = 28
          Width = 184
          Height = 21
          Style = csDropDownList
          Ctl3D = False
          ItemHeight = 13
          ParentCtl3D = False
          Sorted = True
          TabOrder = 0
        end
        object ediWparam: TEdit
          Left = 204
          Top = 28
          Width = 78
          Height = 19
          Ctl3D = False
          ParentCtl3D = False
          TabOrder = 1
          Text = '0'
        end
        object ediLparam: TEdit
          Left = 294
          Top = 28
          Width = 78
          Height = 19
          Ctl3D = False
          ParentCtl3D = False
          TabOrder = 2
          Text = '0'
        end
        object ediWparamResult: TEdit
          Left = 204
          Top = 120
          Width = 79
          Height = 19
          Color = clBtnFace
          Ctl3D = False
          Enabled = False
          ParentCtl3D = False
          ReadOnly = True
          TabOrder = 3
        end
        object ediLparamResult: TEdit
          Left = 295
          Top = 120
          Width = 78
          Height = 19
          Color = clBtnFace
          Ctl3D = False
          Enabled = False
          ParentCtl3D = False
          ReadOnly = True
          TabOrder = 4
        end
        object ediWparamText: TEdit
          Left = 205
          Top = 54
          Width = 167
          Height = 19
          Color = clBtnFace
          Ctl3D = False
          Enabled = False
          ParentCtl3D = False
          TabOrder = 5
        end
        object chkDataWparam: TCheckBox
          Left = 17
          Top = 55
          Width = 174
          Height = 17
          Caption = 'Zone de donn'#233'es pour WParam'
          TabOrder = 6
          OnClick = chkDataWparamClick
        end
        object chkDataLparam: TCheckBox
          Left = 17
          Top = 80
          Width = 174
          Height = 17
          Caption = 'Zone de donn'#233'es  pour  LParam'
          TabOrder = 7
          OnClick = chkDataLparamClick
        end
        object ediLparamText: TEdit
          Left = 206
          Top = 79
          Width = 166
          Height = 19
          Color = clBtnFace
          Ctl3D = False
          Enabled = False
          ParentCtl3D = False
          TabOrder = 8
        end
      end
      object grpTraceMessages: TGroupBox
        Left = 8
        Top = 168
        Width = 385
        Height = 174
        Caption = ' Trace messages '
        TabOrder = 1
        object butStartHook: TSpeedButton
          Left = 159
          Top = 145
          Width = 67
          Height = 23
          Caption = '&D'#233'marrer'
          Flat = True
          OnClick = butStartHookClick
        end
        object butStopHook: TSpeedButton
          Left = 234
          Top = 145
          Width = 67
          Height = 23
          Caption = '&Arr'#234'ter'
          Enabled = False
          Flat = True
          OnClick = butStopHookClick
        end
        object butFlushHook: TSpeedButton
          Left = 307
          Top = 144
          Width = 67
          Height = 23
          Caption = '&Vider'
          Flat = True
          OnClick = butFlushHookClick
        end
        object memoTrace: TMemo
          Left = 10
          Top = 16
          Width = 364
          Height = 121
          Ctl3D = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -8
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          ScrollBars = ssVertical
          TabOrder = 0
        end
      end
    end
    object tbsProcess: TTabSheet
      Caption = 'Processus'
      ImageIndex = 5
      DesignSize = (
        400
        342)
      object butRefreshProcess: TSpeedButton
        Left = 145
        Top = 312
        Width = 121
        Height = 22
        Caption = '&Rafra'#238'chir'
        Flat = True
        OnClick = butRefreshProcessClick
      end
      object butKillProcess: TSpeedButton
        Left = 272
        Top = 312
        Width = 121
        Height = 22
        Caption = '&Terminer le processus'
        Enabled = False
        Flat = True
        OnClick = butKillProcessClick
      end
      object ListViewProcess: TListView
        Left = 8
        Top = 8
        Width = 385
        Height = 295
        Anchors = [akLeft, akTop, akRight, akBottom]
        BevelInner = bvNone
        Columns = <
          item
            Caption = 'Nom'
            Width = 90
          end
          item
            Caption = 'Process ID'
            Width = 70
          end
          item
            Caption = 'Description'
            Width = 210
          end
          item
            Caption = 'Parent'
            Width = 90
          end
          item
            Caption = 'Priorit'#233
            Width = 80
          end>
        Ctl3D = False
        ReadOnly = True
        RowSelect = True
        TabOrder = 0
        ViewStyle = vsReport
        OnSelectItem = ListViewProcessSelectItem
      end
    end
    object tbsProperties: TTabSheet
      Caption = 'Propri'#233't'#233's'
      ImageIndex = 7
      object imAgent: TImage
        Left = 285
        Top = 5
        Width = 87
        Height = 200
        AutoSize = True
        Picture.Data = {<image009.bmp>}
      end
      object labAgent: TLabel
        Left = 29
        Top = 45
        Width = 256
        Height = 24
        Caption =
          'Le caract'#232're "james" est a '#233't'#233' d'#233'velopp'#233' par la soci'#233't'#233' "La Cant' +
          'oche" (http://www.lacantoche.com).'
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -9
        Font.Name = 'Verdana'
        Font.Style = [fsItalic]
        ParentFont = False
        WordWrap = True
      end
      object labAgent2: TLabel
        Left = 29
        Top = 85
        Width = 84
        Height = 13
        Caption = 'Sur le site internet'
        WordWrap = True
      end
      object labAgent3: TLabel
        Left = 117
        Top = 85
        Width = 56
        Height = 13
        Caption = 'd'#39'Art Of Log'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsUnderline]
        ParentFont = False
        WordWrap = True
        OnClick = labAgent3Click
        OnMouseEnter = labAgent3MouseEnter
        OnMouseLeave = labAgent3MouseLeave
      end
      object labAgent4: TLabel
        Left = 178
        Top = 85
        Width = 117
        Height = 13
        Caption = 'retrouvez toutes les clefs'
      end
      object labAgent5: TLabel
        Left = 29
        Top = 98
        Width = 265
        Height = 39
        Caption =
          '(articles techniques, exemples...) pour ins'#233'rer les agents dans ' +
          'vos programmes ou r'#233'aliser vos propres personnages'
        WordWrap = True
      end
      object panHotKey: TLabel
        Left = 32
        Top = 248
        Width = 298
        Height = 13
        Caption = 'CTRL+ALT+NUMPAD9 pour basculer du mode visible/invisible'
      end
      object chkUseAgent: TCheckBox
        Left = 29
        Top = 21
        Width = 193
        Height = 17
        Caption = 'Utiliser "James" pour les messages'
        TabOrder = 0
        OnClick = chkUseAgentClick
      end
      object chkPa: TCheckBox
        Left = 32
        Top = 160
        Width = 257
        Height = 17
        Caption = 'Affecter un mot de passe '#224' l'#39'interface de myCatch'
        TabOrder = 1
        OnClick = chkPaClick
      end
      object chkWinStart: TCheckBox
        Left = 32
        Top = 208
        Width = 281
        Height = 17
        Caption = 'D'#233'marrer myCatch automatiquement avec Windows'
        TabOrder = 2
        OnClick = chkWinStartClick
      end
    end
    object tbsInternet: TTabSheet
      Caption = 'Internet'
      ImageIndex = 6
      object lblIP: TLabel
        Left = 9
        Top = 328
        Width = 57
        Height = 13
        Caption = 'Adresse IP :'
      end
      object lblIpValue: TLabel
        Left = 73
        Top = 329
        Width = 15
        Height = 13
        Caption = '-----'
      end
      object labMacAddress: TLabel
        Left = 208
        Top = 329
        Width = 70
        Height = 13
        Caption = 'Adresse MAC :'
      end
      object labMACAddressValue: TLabel
        Left = 281
        Top = 329
        Width = 15
        Height = 13
        Caption = '-----'
      end
      object grpConnections: TGroupBox
        Left = 8
        Top = -1
        Width = 377
        Height = 152
        Caption = '  Connexions  '
        TabOrder = 0
        object butAddConnection: TSpeedButton
          Left = 126
          Top = 121
          Width = 73
          Height = 22
          Caption = '&Ajouter'
          Flat = True
          OnClick = butAddConnectionClick
        end
        object butEditConnection: TSpeedButton
          Left = 210
          Top = 121
          Width = 72
          Height = 22
          Caption = '&Editer'
          Enabled = False
          Flat = True
          OnClick = butEditConnectionClick
        end
        object butDeleteConnection: TSpeedButton
          Left = 292
          Top = 121
          Width = 73
          Height = 22
          Caption = '&Supprimer'
          Enabled = False
          Flat = True
          OnClick = butDeleteConnectionClick
        end
        object lstConnectionsEntries: TListView
          Left = 29
          Top = 24
          Width = 337
          Height = 89
          Columns = <
            item
              Caption = 'Connexion'
              Width = 80
            end
            item
              Caption = 'Utilisateur'
              Width = 100
            end
            item
              Caption = 'Pass'
              Width = 90
            end
            item
              Caption = 'T'#233'l'#233'phone'
              Width = 100
            end>
          Ctl3D = False
          RowSelect = True
          TabOrder = 0
          ViewStyle = vsReport
          OnSelectItem = lstConnectionsEntriesSelectItem
        end
      end
      object grpStoredPass: TGroupBox
        Left = 9
        Top = 154
        Width = 378
        Height = 172
        Caption = '  Zone de stockage prot'#233'g'#233'e  '
        TabOrder = 1
        object LogMemo: TMemo
          Left = 27
          Top = 106
          Width = 339
          Height = 58
          Ctl3D = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -8
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          ScrollBars = ssVertical
          TabOrder = 0
        end
        object TreeView: TTreeView
          Left = 27
          Top = 15
          Width = 339
          Height = 86
          Ctl3D = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -8
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Indent = 19
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 1
          OnChange = TreeViewChange
        end
      end
    end
    object tbsApplications: TTabSheet
      Caption = 'Applications'
      ImageIndex = 8
      object panAppSelect: TPanel
        Left = 0
        Top = 0
        Width = 400
        Height = 27
        Align = alTop
        BevelOuter = bvNone
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 0
        object labForegroundWindow: TLabel
          Left = 8
          Top = 4
          Width = 72
          Height = 13
          Caption = 'Avant plan : ----'
        end
      end
      object pgcApplications: TPageControl
        Left = 0
        Top = 27
        Width = 400
        Height = 270
        ActivePage = tbsBlackList
        Align = alClient
        TabIndex = 0
        TabOrder = 1
        object tbsBlackList: TTabSheet
          Caption = 'Liste noire'
          object panCommandBlackList: TPanel
            Left = 0
            Top = 205
            Width = 392
            Height = 37
            Align = alBottom
            BevelOuter = bvNone
            TabOrder = 0
            object butAddBlack: TSpeedButton
              Left = 276
              Top = 9
              Width = 49
              Height = 22
              Caption = 'Aj&outer'
              Flat = True
              OnClick = butAddBlackClick
            end
            object butDeleteBlack: TSpeedButton
              Left = 330
              Top = 9
              Width = 57
              Height = 22
              Caption = '&Supprimer'
              Flat = True
              OnClick = butDeleteBlackClick
            end
          end
          object dbgrdBlack: TDBGrid
            Left = 0
            Top = 0
            Width = 392
            Height = 205
            Align = alClient
            Ctl3D = False
            DataSource = dtsBlack
            Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
            ParentCtl3D = False
            TabOrder = 1
            TitleFont.Charset = ANSI_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            OnExit = dbgrdBlackExit
            Columns = <
              item
                Expanded = False
                FieldName = 'name'
                Title.Caption = 'Nom de l'#39'application'
                Width = 100
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'title'
                Title.Caption = 'Inscription dans la barre de titre'
                Width = 180
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'class_name'
                Title.Caption = 'class de l'#39'application'
                Width = 100
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'user_name'
                Title.Caption = 'utilisateur concern'#233
                Width = 100
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'comment'
                Title.Caption = 'commentaire'
                Width = 200
                Visible = True
              end>
          end
        end
        object tbsApplicationLog: TTabSheet
          Caption = 'Logs'
          ImageIndex = 2
          object panLogs: TPanel
            Left = 0
            Top = 201
            Width = 392
            Height = 41
            Align = alBottom
            BevelOuter = bvNone
            TabOrder = 0
            object butExportLogs: TSpeedButton
              Left = 319
              Top = 15
              Width = 71
              Height = 22
              Caption = '&Exporter'
              Flat = True
              OnClick = butExportLogsClick
            end
            object butFlushLogs: TSpeedButton
              Left = 243
              Top = 15
              Width = 73
              Height = 22
              Caption = '&Vider'
              Flat = True
              OnClick = butFlushLogsClick
            end
          end
          object DBGrid2: TDBGrid
            Left = 0
            Top = 0
            Width = 392
            Height = 201
            Align = alClient
            Ctl3D = False
            DataSource = dtsLogs
            Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
            ParentCtl3D = False
            TabOrder = 1
            TitleFont.Charset = ANSI_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            Columns = <
              item
                Expanded = False
                FieldName = 'user'
                Title.Caption = 'Utilisateur'
                Width = 110
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'app_title'
                Title.Caption = 'Titre de l'#39'application'
                Width = 200
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'date'
                Width = 80
                Visible = True
              end>
          end
        end
      end
      object panAppCommand: TPanel
        Left = 0
        Top = 297
        Width = 400
        Height = 45
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 2
        object butStartMonitorApp: TSpeedButton
          Left = 275
          Top = 17
          Width = 57
          Height = 21
          Caption = '&D'#233'marrer'
          Flat = True
          OnClick = butStartMonitorAppClick
        end
        object butStopMonitorApp: TSpeedButton
          Left = 336
          Top = 17
          Width = 57
          Height = 21
          Caption = '&Arr'#234'ter'
          Enabled = False
          Flat = True
          OnClick = butStopMonitorAppClick
        end
        object chkStartAppMonitor: TCheckBox
          Left = 7
          Top = 20
          Width = 140
          Height = 17
          Caption = 'D'#233'marrer avec myCatch'
          TabOrder = 0
          OnClick = chkStartAppMonitorClick
        end
        object chkGenLogs: TCheckBox
          Left = 152
          Top = 20
          Width = 113
          Height = 17
          Caption = 'G'#233'n'#233'rer des logs'
          TabOrder = 1
          OnClick = chkGenLogsClick
        end
      end
    end
    object tbsShell: TTabSheet
      Caption = 'Shell'
      ImageIndex = 9
      object pgcShell: TPageControl
        Left = 0
        Top = 49
        Width = 400
        Height = 293
        ActivePage = tnsShellDesktop
        Align = alBottom
        TabIndex = 0
        TabOrder = 0
        OnChange = pgcShellChange
        object tnsShellDesktop: TTabSheet
          Caption = 'Bureau'
          object labShellExplain: TLabel
            Left = 0
            Top = 229
            Width = 391
            Height = 36
            Align = alBottom
            Caption =
              'L'#39'ensemble des restrictions ci-dessus sont appliqu'#233'es localement' +
              ' et peuvent donc '#234'tre modifi'#233'es par une strat'#233'gie de compte... L' +
              'eur mise en place effective n'#233'cessite parfois le red'#233'marrage de ' +
              'Windows'
            Font.Charset = ANSI_CHARSET
            Font.Color = clGray
            Font.Height = -9
            Font.Name = 'Verdana'
            Font.Style = []
            ParentFont = False
            WordWrap = True
          end
          object chkPol1: TCheckBox
            Left = 12
            Top = 8
            Width = 217
            Height = 17
            Caption = 'interdir l'#39'acc'#232's aux propri'#233't'#233's d'#39'affichage '
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            OnClick = chkPol1Click
          end
          object chkPol2: TCheckBox
            Left = 12
            Top = 23
            Width = 307
            Height = 17
            Caption = 'supprimer l'#39'onglet Ecran de veille des propri'#233't'#233's d'#39'affichage '
            TabOrder = 1
            OnClick = chkPol2Click
          end
          object chkPol3: TCheckBox
            Left = 12
            Top = 38
            Width = 323
            Height = 17
            Caption = 'supprimer l'#39'onglet Param'#232'tres des propri'#233't'#233's d'#39'affichage '
            TabOrder = 2
            OnClick = chkPol3Click
          end
          object chkPol4: TCheckBox
            Left = 12
            Top = 53
            Width = 297
            Height = 17
            Caption = 'supprimer l'#39'onglet Arri'#232're-plan des propri'#233't'#233's d'#39'affichage '
            TabOrder = 3
            OnClick = chkPol4Click
          end
          object chkPol5: TCheckBox
            Left = 12
            Top = 68
            Width = 289
            Height = 17
            Caption = 'supprimer l'#39'onglet Apparence des propri'#233't'#233's d'#39'affichage'
            TabOrder = 4
            OnClick = chkPol5Click
          end
          object chkPol6: TCheckBox
            Left = 12
            Top = 88
            Width = 307
            Height = 17
            Caption = 'ne pas sauvegarder l'#39#233'tat du bureau en quittant windows '
            TabOrder = 5
            OnClick = chkPol6Click
          end
          object chkPol9: TCheckBox
            Left = 12
            Top = 106
            Width = 233
            Height = 17
            Caption = 'supprimer le menu contextuel du bureau'
            TabOrder = 6
            OnClick = chkPol9Click
          end
          object chkPol13: TCheckBox
            Left = 12
            Top = 126
            Width = 289
            Height = 17
            Caption = 'supprimer la commande ex'#233'cuter du menu d'#233'marrer'
            TabOrder = 7
            OnClick = chkPol13Click
          end
          object chkPol14: TCheckBox
            Left = 12
            Top = 140
            Width = 313
            Height = 17
            Caption = 'supprimer la commande rechercher du menu d'#233'marrer'
            TabOrder = 8
            OnClick = chkPol14Click
          end
          object chkPol15: TCheckBox
            Left = 12
            Top = 153
            Width = 361
            Height = 17
            Caption =
              'supprimer le panneau de configuration + imprimantes du menu d'#233'ma' +
              'rrer'
            TabOrder = 9
            OnClick = chkPol15Click
          end
          object chkPol22: TCheckBox
            Left = 12
            Top = 171
            Width = 289
            Height = 17
            Caption = 'supprimer la corbeille du bureau'
            TabOrder = 10
            Visible = False
            OnClick = chkPol22Click
          end
          object chkPol23: TCheckBox
            Left = 12
            Top = 185
            Width = 313
            Height = 17
            Caption = 'supprimer "mes documents du bureau"'
            TabOrder = 11
            Visible = False
            OnClick = chkPol23Click
          end
          object chkPol24: TCheckBox
            Left = 12
            Top = 200
            Width = 361
            Height = 17
            Caption = 'supprimer "poste de travail" du bureau'
            TabOrder = 12
            Visible = False
            OnClick = chkPol24Click
          end
        end
        object tbsWindows: TTabSheet
          Caption = 'Windows'
          ImageIndex = 1
          object labShellExplain2: TLabel
            Left = 0
            Top = 229
            Width = 391
            Height = 36
            Align = alBottom
            Caption =
              'L'#39'ensemble des restrictions ci-dessus sont appliqu'#233'es localement' +
              ' et peuvent donc '#234'tre modifi'#233'es par une strat'#233'gie de compte... L' +
              'eur mise en place effective n'#233'cessite parfois le red'#233'marrage de ' +
              'Windows'
            Font.Charset = ANSI_CHARSET
            Font.Color = clGray
            Font.Height = -9
            Font.Name = 'Verdana'
            Font.Style = []
            ParentFont = False
            WordWrap = True
          end
          object chkPol7: TCheckBox
            Left = 12
            Top = 137
            Width = 181
            Height = 17
            Caption = 'd'#233'sactiver "command prompt"'
            TabOrder = 0
            OnClick = chkPol7Click
          end
          object chkPol10: TCheckBox
            Left = 12
            Top = 25
            Width = 225
            Height = 17
            Caption = 'supprimer le voisinage r'#233'seau de l'#39'explorer'
            TabOrder = 1
            OnClick = chkPol10Click
          end
          object chkPol11: TCheckBox
            Left = 12
            Top = 40
            Width = 329
            Height = 17
            Caption = 'supprimer la commande conecter/d'#233'connecter un lecteur r'#233'seau'
            TabOrder = 2
            OnClick = chkPol11Click
          end
          object chkPol12: TCheckBox
            Left = 12
            Top = 89
            Width = 249
            Height = 17
            Caption = 'supprimer le menu fichier de l'#39'explorer'
            TabOrder = 3
            OnClick = chkPol12Click
          end
          object chkPol16: TCheckBox
            Left = 12
            Top = 69
            Width = 227
            Height = 17
            Caption = 'masquer un ou plusieurs lecteurs (ex C;D;)'
            TabOrder = 4
            OnClick = chkPol16Click
          end
          object ediPol16: TEdit
            Left = 250
            Top = 68
            Width = 41
            Height = 21
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -8
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 5
            OnChange = ediPol16Change
          end
          object chkPol17: TCheckBox
            Left = 12
            Top = 55
            Width = 218
            Height = 17
            Caption = 'masquer les ordinateurs du r'#233'seau'
            TabOrder = 6
            OnClick = chkPol17Click
          end
          object chkPol18: TCheckBox
            Left = 12
            Top = 109
            Width = 237
            Height = 17
            Caption = 'd'#233'sactiver le changement de mot de passe'
            TabOrder = 7
            OnClick = chkPol18Click
          end
          object chkPol19: TCheckBox
            Left = 12
            Top = 123
            Width = 364
            Height = 17
            Caption =
              'd'#233'sactiver les outils d'#39#233'dition de la bas de registre (regedit..' +
              '.)'
            TabOrder = 8
            OnClick = chkPol19Click
          end
          object chkPol8: TCheckBox
            Left = 12
            Top = 151
            Width = 201
            Height = 17
            Caption = 'd'#233'sactiver le gestionnaire de t'#226'ches'
            TabOrder = 9
            OnClick = chkPol8Click
          end
          object chkPol20: TCheckBox
            Left = 12
            Top = 165
            Width = 253
            Height = 17
            Caption = 'd'#233'sactiver le panneau de configuration'
            TabOrder = 10
            OnClick = chkPol20Click
          end
          object chkPol21: TCheckBox
            Left = 12
            Top = 179
            Width = 253
            Height = 17
            Caption = 'd'#233'sactiver l'#39'onglet mat'#233'riel'
            TabOrder = 11
            OnClick = chkPol21Click
          end
          object chkPol25: TCheckBox
            Left = 12
            Top = 194
            Width = 317
            Height = 17
            Caption = 'interdire le changement de chemin de "mes documents"'
            TabOrder = 12
            OnClick = chkPol25Click
          end
        end
        object tbsIE: TTabSheet
          Caption = 'Internet Explorer'
          ImageIndex = 2
          object labShellExplain3: TLabel
            Left = 0
            Top = 229
            Width = 391
            Height = 36
            Align = alBottom
            Caption =
              'L'#39'ensemble des restrictions ci-dessus sont appliqu'#233'es localement' +
              ' et peuvent donc '#234'tre modifi'#233'es par une strat'#233'gie de compte... L' +
              'eur mise en place effective n'#233'cessite parfois le red'#233'marrage de ' +
              'Windows'
            Font.Charset = ANSI_CHARSET
            Font.Color = clGray
            Font.Height = -9
            Font.Name = 'Verdana'
            Font.Style = []
            ParentFont = False
            WordWrap = True
          end
          object labIERestrictions: TLabel
            Left = 8
            Top = 5
            Width = 78
            Height = 13
            Caption = 'Restrictions sur :'
          end
          object chkIEpoledit1: TCheckBox
            Left = 16
            Top = 117
            Width = 149
            Height = 17
            Caption = 'onglet avanc'#233' des options'
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            OnClick = chkIEpoledit1Click
          end
          object chkIEpoledit2: TCheckBox
            Left = 16
            Top = 28
            Width = 193
            Height = 17
            Caption = 'onglet g'#233'n'#233'ral des options'
            TabOrder = 1
            OnClick = chkIEpoledit2Click
          end
          object chkIEpoledit3: TCheckBox
            Left = 220
            Top = 117
            Width = 177
            Height = 17
            Caption = 'modification fichiers temporaires'
            TabOrder = 2
            OnClick = chkIEpoledit3Click
          end
          object chkIEpoledit4: TCheckBox
            Left = 16
            Top = 57
            Width = 193
            Height = 17
            Caption = 'onglet confidentialit'#233' des options'
            TabOrder = 3
            OnClick = chkIEpoledit4Click
          end
          object chkIEpoledit5: TCheckBox
            Left = 16
            Top = 147
            Width = 177
            Height = 17
            Caption = 'modification certificats de s'#233'curit'#233
            TabOrder = 4
            OnClick = chkIEpoledit5Click
          end
          object chkIEpoledit6: TCheckBox
            Left = 16
            Top = 102
            Width = 180
            Height = 17
            Caption = 'onglet programmes des options'
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 5
            OnClick = chkIEpoledit6Click
          end
          object chkIEpoledit7: TCheckBox
            Left = 16
            Top = 162
            Width = 145
            Height = 17
            Caption = 'modification des couleurs'
            Enabled = False
            TabOrder = 6
            OnClick = chkIEpoledit7Click
          end
          object chkIEpoledit8: TCheckBox
            Left = 16
            Top = 177
            Width = 201
            Height = 17
            Caption = 'modification param'#232'tres de connexion'
            TabOrder = 7
            OnClick = chkIEpoledit8Click
          end
          object chkIEpoledit9: TCheckBox
            Left = 16
            Top = 192
            Width = 141
            Height = 17
            Caption = 'assistant de connexion'
            TabOrder = 8
            OnClick = chkIEpoledit9Click
          end
          object chkIEpoledit10: TCheckBox
            Left = 220
            Top = 27
            Width = 125
            Height = 17
            Caption = 'modification fontes'
            Enabled = False
            TabOrder = 9
            OnClick = chkIEpoledit10Click
          end
          object chkIEpoledit11: TCheckBox
            Left = 220
            Top = 42
            Width = 141
            Height = 17
            Caption = 'modification historique'
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 10
            OnClick = chkIEpoledit11Click
          end
          object chkIEpoledit12: TCheckBox
            Left = 220
            Top = 57
            Width = 165
            Height = 17
            Caption = 'modification page par d'#233'faut'
            TabOrder = 11
            OnClick = chkIEpoledit12Click
          end
          object chkIEpoledit13: TCheckBox
            Left = 220
            Top = 72
            Width = 173
            Height = 17
            Caption = 'modification des langues'
            Enabled = False
            TabOrder = 12
            OnClick = chkIEpoledit13Click
          end
          object chkIEpoledit14: TCheckBox
            Left = 16
            Top = 87
            Width = 173
            Height = 17
            Caption = 'onglet connexion des options'
            TabOrder = 13
            OnClick = chkIEpoledit14Click
          end
          object chkIEpoledit15: TCheckBox
            Left = 220
            Top = 87
            Width = 157
            Height = 17
            Caption = 'modification favoris'
            TabOrder = 14
            OnClick = chkIEpoledit15Click
          end
          object chkIEpoledit16: TCheckBox
            Left = 220
            Top = 102
            Width = 149
            Height = 17
            Caption = 'modification outil courrier'
            TabOrder = 15
            OnClick = chkIEpoledit16Click
          end
          object chkIEpoledit17: TCheckBox
            Left = 16
            Top = 72
            Width = 165
            Height = 17
            Caption = 'onglet contenu des options'
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 16
            OnClick = chkIEpoledit17Click
          end
          object chkIEpoledit18: TCheckBox
            Left = 16
            Top = 132
            Width = 165
            Height = 17
            Caption = 'proxy'
            TabOrder = 17
            OnClick = chkIEpoledit18Click
          end
          object chkIEpoledit19: TCheckBox
            Left = 16
            Top = 42
            Width = 173
            Height = 17
            Caption = 'onglet s'#233'curit'#233' des options'
            TabOrder = 18
            OnClick = chkIEpoledit19Click
          end
          object chkIEpoledit20: TCheckBox
            Left = 220
            Top = 133
            Width = 149
            Height = 17
            Caption = 'modification apparence'
            TabOrder = 19
            Visible = False
            OnClick = chkIEpoledit20Click
          end
        end
        object tbsInternalShell: TTabSheet
          Caption = 'Modification du shell'
          ImageIndex = 3
          object butRestartWindows: TSpeedButton
            Left = 260
            Top = 236
            Width = 120
            Height = 21
            Caption = '&Red'#233'marrer Windows'
            Flat = True
            OnClick = butRestartWindowsClick
          end
          object grpReplaceShell: TGroupBox
            Left = 7
            Top = 0
            Width = 377
            Height = 107
            Caption =
              '  Shell actuel du poste (valide au prochain red'#233'marrage de Windo' +
              'ws)  '
            TabOrder = 0
            object labShellValue: TLabel
              Left = 15
              Top = 25
              Width = 21
              Height = 13
              Caption = '-------'
              Font.Charset = ANSI_CHARSET
              Font.Color = clGray
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object butMyCatchShell: TSpeedButton
              Left = 267
              Top = 44
              Width = 30
              Height = 21
              Caption = '-->'
              Flat = True
              OnClick = butMyCatchShellClick
            end
            object Label2: TLabel
              Left = 16
              Top = 47
              Width = 230
              Height = 13
              Caption = 'Remplacer le shell actuel par le shell de myCatch'
            end
            object Label3: TLabel
              Left = 17
              Top = 69
              Width = 182
              Height = 13
              Caption = 'Revenir au shell standard de Windows'
            end
            object butExplorerShell: TSpeedButton
              Left = 267
              Top = 68
              Width = 30
              Height = 21
              Caption = '-->'
              Flat = True
              OnClick = butExplorerShellClick
            end
          end
        end
      end
      object panProfile: TPanel
        Left = 0
        Top = 0
        Width = 400
        Height = 49
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 1
        object labProfile: TLabel
          Left = 3
          Top = 4
          Width = 35
          Height = 13
          Caption = 'Profile :'
        end
        object cmbProfile: TComboBox
          Left = 2
          Top = 21
          Width = 229
          Height = 21
          Style = csDropDownList
          Ctl3D = False
          ItemHeight = 13
          ParentCtl3D = False
          TabOrder = 0
          OnChange = cmbProfileChange
          Items.Strings = (
            'Utilisateur courant'
            'Tous les utilisateurs')
        end
      end
    end
    object tbsHelp: TTabSheet
      Caption = 'Aide'
      ImageIndex = 3
      object labHelp: TLabel
        Left = 0
        Top = 2
        Width = 393
        Height = 39
        Caption =
          'L'#39'aide contextuelle n'#39'est pas disponible dans la version freewar' +
          'e. L'#39'aide compl'#232'te de myCatch ainsi qu'#39'un cours sur le fonctionn' +
          'ement de Windows, vu de Delphi sont fournis dans nos modules de ' +
          'formation...'
        WordWrap = True
      end
      object butGenHelp: TSpeedButton
        Left = 296
        Top = 296
        Width = 89
        Height = 30
        Caption = 'aide g'#233'n'#233'rale'
        Flat = True
        OnClick = butGenHelpClick
      end
    end
    object tbsAbout: TTabSheet
      Caption = 'A propos'
      ImageIndex = 2
      object panAbout: TPanel
        Left = 0
        Top = 0
        Width = 400
        Height = 342
        Align = alClient
        BevelOuter = bvNone
        Color = clBlack
        TabOrder = 0
        object imaAbout: TImage
          Left = 44
          Top = 7
          Width = 309
          Height = 302
          AutoSize = True
          Picture.Data = {<image010.bmp>}
          OnMouseMove = imaAboutMouseMove
        end
        object labUrl: TLabel
          Left = 18
          Top = 11
          Width = 275
          Height = 33
          Cursor = crHandPoint
          Caption = 'http://www.artoflog.com'
          Color = clBlack
          Font.Charset = ANSI_CHARSET
          Font.Color = 9282951
          Font.Height = -24
          Font.Name = 'Comic Sans MS'
          Font.Style = []
          ParentColor = False
          ParentFont = False
          Transparent = True
          OnClick = labUrlClick
          OnMouseMove = labUrlMouseMove
        end
        object labVersion: TLabel
          Left = 18
          Top = 50
          Width = 150
          Height = 18
          Caption = 'Version 2.12 '#169' art of log'
          Color = clBlack
          Font.Charset = ANSI_CHARSET
          Font.Color = 9282951
          Font.Height = -13
          Font.Name = 'Comic Sans MS'
          Font.Style = []
          ParentColor = False
          ParentFont = False
          Transparent = True
        end
        object labWin2k: TLabel
          Left = 55
          Top = 70
          Width = 181
          Height = 13
          Caption = 'compatible win NT(>service pack3), 2K, XP'
          Color = clBlack
          Font.Charset = ANSI_CHARSET
          Font.Color = 9282951
          Font.Height = -9
          Font.Name = 'Comic Sans MS'
          Font.Style = []
          ParentColor = False
          ParentFont = False
          Transparent = True
        end
        object labProductID: TLabel
          Left = 18
          Top = 240
          Width = 62
          Height = 12
          Caption = 'Product ID :'
          Color = clBlack
          Font.Charset = ANSI_CHARSET
          Font.Color = clWhite
          Font.Height = -9
          Font.Name = 'Verdana'
          Font.Style = []
          ParentColor = False
          ParentFont = False
          Transparent = True
        end
        object labProductName: TLabel
          Left = 18
          Top = 215
          Width = 50
          Height = 13
          Caption = 'Windows'
          Color = clBlack
          Font.Charset = ANSI_CHARSET
          Font.Color = clWhite
          Font.Height = -11
          Font.Name = 'Verdana'
          Font.Style = []
          ParentColor = False
          ParentFont = False
          Transparent = True
        end
        object labServicePack: TLabel
          Left = 18
          Top = 226
          Width = 37
          Height = 12
          Caption = 'version'
          Color = clBlack
          Font.Charset = ANSI_CHARSET
          Font.Color = clWhite
          Font.Height = -9
          Font.Name = 'Verdana'
          Font.Style = []
          ParentColor = False
          ParentFont = False
          Transparent = True
        end
        object labProductKey: TLabel
          Left = 18
          Top = 254
          Width = 67
          Height = 12
          Caption = 'Product key :'
          Color = clBlack
          Font.Charset = ANSI_CHARSET
          Font.Color = clWhite
          Font.Height = -9
          Font.Name = 'Verdana'
          Font.Style = []
          ParentColor = False
          ParentFont = False
          Transparent = True
          Visible = False
        end
        object labRegisteredOwner: TLabel
          Left = 18
          Top = 269
          Width = 114
          Height = 12
          Caption = 'Utilisateur enregistr'#233' :'
          Color = clBlack
          Font.Charset = ANSI_CHARSET
          Font.Color = clWhite
          Font.Height = -9
          Font.Name = 'Verdana'
          Font.Style = []
          ParentColor = False
          ParentFont = False
          Transparent = True
        end
        object memoAbout: TMemo
          Left = 160
          Top = 285
          Width = 233
          Height = 49
          Color = 9282951
          Ctl3D = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -9
          Font.Name = 'Comic Sans MS'
          Font.Style = []
          Lines.Strings = (
            'Vous pouvez obtenir les sources de myCatch et un '
            'tutoriel pour le d'#233'velopper pas '#224' pas '#224'  travers '
            'nos modules de formation Delphi.'
            ''
            '                          Pour plus d'#39'informations :'
            '                                   http://www.artoflog.com'
            '                                   [e-mail]'
            ''
            '                            '
            '                         '
            '-----------------------------------'
            ''
            'myCatch est un logiciel  freeware et donc livr'#233' '
            '"tel que". '
            ''
            'Nous n'#39'assurons pas la maintenance de nos '
            'logiciels freewares.'
            ''
            'myCatch est un logiciel d'#233'velopp'#233' '#224' but '#233'ducatif.')
          ParentCtl3D = False
          ParentFont = False
          ScrollBars = ssVertical
          TabOrder = 0
        end
        object ediProductKey: TEdit
          Left = 17
          Top = 253
          Width = 248
          Height = 15
          BorderStyle = bsNone
          Color = clBlack
          Ctl3D = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clWhite
          Font.Height = -9
          Font.Name = 'Verdana'
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 1
        end
      end
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 458
    Width = 408
    Height = 19
    Panels = <
      item
        Text = ' '
        Width = 50
      end
      item
        Width = 350
      end>
    SimplePanel = False
  end
  object ApplicationEvents: TApplicationEvents
  end
  object TimerApplications: TTimer
    Enabled = False
    Interval = 500
    OnTimer = TimerApplicationsTimer
    Left = 296
    Top = 200
  end
  object connection: TADOConnection
    ConnectionString =
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\travail\projets\' +
      'myCatch\new\bd\myCatch.mdb;Persist Security Info=False;Jet OLEDB' +
      ':Database Password=dlfl'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 360
    Top = 200
  end
  object tableBlack: TADOTable
    Connection = connection
    CursorType = ctStatic
    OnNewRecord = tableBlackNewRecord
    TableName = 'black'
    Left = 360
    Top = 232
  end
  object tableWhite: TADOTable
    Connection = connection
    CursorType = ctStatic
    TableName = 'white'
    Left = 360
    Top = 272
  end
  object tableLog: TADOTable
    Connection = connection
    CursorType = ctStatic
    TableName = 'logs'
    Left = 360
    Top = 304
    object tableLogid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object tableLoguser: TWideStringField
      FieldName = 'user'
      Size = 50
    end
    object tableLogapp_title: TWideStringField
      FieldName = 'app_title'
      Size = 50
    end
    object tableLogdate: TDateTimeField
      FieldName = 'date'
    end
  end
  object dtsBlack: TDataSource
    DataSet = tableBlack
    Left = 328
    Top = 232
  end
  object dtsWhite: TDataSource
    DataSet = tableWhite
    Left = 328
    Top = 272
  end
  object dtsLogs: TDataSource
    DataSet = tableLog
    Left = 328
    Top = 304
  end
  object SaveDialogLogs: TSaveDialog
    Filter = 'fichier XML|*.xml'
    Left = 368
    Top = 344
  end
end