Chip 2002 November/Chip_2002-11_cd1.bin/zkuste/delphi/kompon/d3456/OUTLTB.ZIP/demo/Unit1.dfm/Unit1.txt

Text File | 2002-08-26 | 4KB | 208 lines

object Form1: TForm1
  Left = 324
  Top = 143
  Width = 718
  Height = 553
  Caption = 'Outlook OLE sample Program'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel2: TPanel
    Left = 0
    Top = 161
    Width = 710
    Height = 338
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object StringGrid1: TStringGrid
      Left = 0
      Top = 0
      Width = 710
      Height = 338
      Align = alClient
      ColCount = 6
      DefaultColWidth = 100
      DefaultRowHeight = 18
      FixedCols = 0
      RowCount = 2
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goRowSelect]
      ScrollBars = ssVertical
      TabOrder = 0
      OnDblClick = StringGrid1DblClick
      ColWidths = (
        42
        100
        100
        100
        100
        367)
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 499
    Width = 710
    Height = 20
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 1
    object Label1: TLabel
      Left = 4
      Top = 3
      Width = 32
      Height = 13
      Caption = 'Label1'
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 710
    Height = 161
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 2
    object ShowContact: TButton
      Left = 104
      Top = 136
      Width = 89
      Height = 20
      Caption = 'open contact'
      TabOrder = 0
      OnClick = ShowContactClick
    end
    object Button1: TButton
      Left = 8
      Top = 8
      Width = 89
      Height = 20
      Caption = 'open calendar'
      TabOrder = 1
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 8
      Top = 136
      Width = 89
      Height = 20
      Caption = 'import contacts'
      TabOrder = 2
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 8
      Top = 88
      Width = 89
      Height = 20
      Caption = 'Selected Items'
      TabOrder = 3
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 96
      Top = 8
      Width = 89
      Height = 20
      Caption = 'create a Contact'
      TabOrder = 4
      OnClick = Button4Click
    end
    object Edit1: TEdit
      Left = 195
      Top = 11
      Width = 158
      Height = 21
      TabOrder = 5
      Text = '[FirstName] ="Lothar" and [LastName] = "Perr"'
    end
    object Button5: TButton
      Left = 360
      Top = 11
      Width = 75
      Height = 20
      Caption = 'Find'
      TabOrder = 6
      OnClick = Button5Click
    end
    object Button6: TButton
      Left = 8
      Top = 107
      Width = 89
      Height = 20
      Caption = 'Delete 1. sel. Item'
      TabOrder = 7
      OnClick = Button6Click
    end
    object Button7: TButton
      Left = 8
      Top = 27
      Width = 89
      Height = 20
      Caption = 'open notes'
      TabOrder = 8
      OnClick = Button7Click
    end
    object Button9: TButton
      Left = 96
      Top = 27
      Width = 89
      Height = 20
      Caption = 'New Mail'
      TabOrder = 10
      OnClick = Button9Click
    end
    object Button10: TButton
      Left = 8
      Top = 46
      Width = 89
      Height = 20
      Caption = 'create a node'
      TabOrder = 11
      OnClick = Button10Click
    end
    object Button11: TButton
      Left = 200
      Top = 136
      Width = 193
      Height = 20
      Caption = 'open Item with a full OLE path'
      TabOrder = 12
      OnClick = Button11Click
    end
    object Button12: TButton
      Left = 96
      Top = 88
      Width = 89
      Height = 20
      Caption = 'Current User'
      TabOrder = 13
      OnClick = Button12Click
    end
    object Button8: TButton
      Left = 8
      Top = 65
      Width = 89
      Height = 20
      Caption = 'open first Note'
      TabOrder = 9
      OnClick = Button8Click
    end
  end
  object OutlookConnect1: TOutlookConnect
    Connected = False
    OLEObject = 'Outlook.Application'
    OLENameSpace = 'MAPI'
    Left = 672
    Top = 8
  end
end