PC World Komputer 1998 January/Pcwk0198.iso/Zadarmo/CYBERCON/_SETUP.1/Ccontact.exe/0/RCDATA/TFRMACTIVITYLIST/TFRMACTIVITYLIST.txt

Text File | 1997-08-26 | 14KB | 410 lines

object FrmActivityList: TFrmActivityList
  Left = 10
  Top = 42
  Width = 626
  Height = 464
  BorderIcons = [biSystemMenu, biMaximize]
  Caption = 'Activity List'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Position = poScreenCenter
  OnActivate = FormActivate
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 618
    Height = 37
    Align = alTop
    TabOrder = 0
    object SpeedButton1: TSpeedButton
      Left = 8
      Top = 6
      Width = 25
      Height = 25
      Hint = 'Properties'
      Glyph.Data = {
        A6020000424DA60200000000000036000000280000000F0000000D0000000100
        1800000000007002000000000000000000000000000000000000BFBFBF000000
        0000000000000000000000000000000000000000000000000000000000000000
        00000000BFBFBF484800BFBFBF000000BFBFBFFFFFFFBFBFBFFFFFFFBFBFBFFF
        FFFFBFBFBFFFFFFFBFBFBFFFFFFFBFBFBF000000BFBFBF545400BFBFBF000000
        FFFFFF000000000000000000000000000000000000000000FFFFFFBFBFBFFFFF
        FF000000BFBFBF606000BFBFBF000000BFBFBFFFFFFFBFBFBFFFFFFFBFBFBFFF
        FFFFBFBFBFFFFFFFBFBFBFFFFFFFBFBFBF000000BFBFBF6C6C00BFBFBF000000
        FFFFFF000000000000000000000000000000000000000000FFFFFFBFBFBFFFFF
        FF000000BFBFBF787800BFBFBF000000BFBFBFFFFFFFBFBFBFFFFFFFBFBFBFFF
        FFFFBFBFBFFFFFFFBFBFBFFFFFFFBFBFBF000000BFBFBF848400BFBFBF000000
        FFFFFF000000000000000000000000BFBFBFFFFFFFBFBFBF000000000000FFFF
        FF000000BFBFBF909000BFBFBF000000BFBFBF000000FFFFFFFFFFFF000000FF
        FFFFBFBFBFFFFFFFBFBFBFFFFFFFBFBFBF000000BFBFBF9C9C00BFBFBF000000
        FFFFFF000000000000000000000000BFBFBFFFFFFFBFBFBF000000000000FFFF
        FF000000BFBFBFA8A800BFBFBF000000BFBFBFFFFFFFBFBFBFFFFFFFBFBFBFFF
        FFFFBFBFBFFFFFFFBFBFBFFFFFFFBFBFBF000000BFBFBFB4B400BFBFBF7F0000
        7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
        007F0000BFBFBFC0C000BFBFBF7F00007F00007F00007F00007F00007F00007F
        00007F00007F00007F00007F00007F00007F0000BFBFBFCCCC00BFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFD8D800}
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton1Click
    end
    object btnGoToCon: TSpeedButton
      Left = 33
      Top = 6
      Width = 25
      Height = 25
      Hint = 'Go To Contact'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033BBBBBBBBBB
        BB33337777777777777F33BB00BBBBBBBB33337F77333333F37F33BB0BBBBBB0
        BB33337F73F33337FF7F33BBB0BBBB000B33337F37FF3377737F33BBB00BB00B
        BB33337F377F3773337F33BBBB0B00BBBB33337F337F7733337F33BBBB000BBB
        BB33337F33777F33337F33EEEE000EEEEE33337F3F777FFF337F33EE0E80000E
        EE33337F73F77773337F33EEE0800EEEEE33337F37377F33337F33EEEE000EEE
        EE33337F33777F33337F33EEEEE00EEEEE33337F33377FF3337F33EEEEEE00EE
        EE33337F333377F3337F33EEEEEE00EEEE33337F33337733337F33EEEEEEEEEE
        EE33337FFFFFFFFFFF7F33EEEEEEEEEEEE3333777777777777730000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = btnGoToConClick
    end
    object SpeedButton3: TSpeedButton
      Left = 58
      Top = 6
      Width = 25
      Height = 25
      Hint = 'Delete Activity'
      Glyph.Data = {
        36030000424D360300000000000036000000280000000F000000100000000100
        1800000000000003000000000000000000000000000000000000BFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BF000000BFBFBFFFFFFFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFFFFFFBFBFBFBFBFBF
        000000000000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000
        00BFBFBFBFBFBF7F0000BFBFBFBFBFBF000000000000000000BFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFFFFFFFBFBFBFBFBFBF
        BFBFBF000000000000000000BFBFBFBFBFBFBFBFBFBFBFBF000000000000BFBF
        BFBFBFBFBFBFBFFFFFFFBFBFBFBFBFBFBFBFBFBFBFBF000000000000000000BF
        BFBFBFBFBF000000000000BFBFBFBFBFBFBFBFBFBFBFBFFFFFFFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBF000000000000000000000000000000BFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFFFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00000000
        0000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFFFFFFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBF000000000000000000000000000000BFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFFFFFFFBFBFBFBFBFBFBFBFBFBFBFBF000000000000000000BF
        BFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF
        000000000000000000000000BFBFBFBFBFBFBFBFBFBFBFBF000000000000BFBF
        BFBFBFBFBFBFBF000000BFBFBF000000000000000000000000BFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBF000000000000BFBFBFBFBFBF000000BFBFBF000000
        000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000
        00000000BFBFBFD80800BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF6C7068BFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBF6E7461BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFFFFFF}
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton3Click
    end
    object SpeedButton4: TSpeedButton
      Left = 83
      Top = 6
      Width = 25
      Height = 25
      Hint = 'Search'
      Glyph.Data = {
        0E030000424D0E030000000000003600000028000000110000000E0000000100
        180000000000D802000000000000000000000000000000000000BFBFBF000000
        000000000000000000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000000000
        00000000000000000000BFBFBFFFBFBFBF000000FFFFFF000000000000000000
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFF000000000000000000BFBF
        BFFFBFBFBF000000FFFFFF000000000000000000BFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBF000000FFFFFF000000000000000000BFBFBFFFBFBFBF00000000000000
        0000000000000000000000000000BFBFBF000000000000000000000000000000
        000000000000BFBFBFFFBFBFBF000000000000FFFFFF00000000000000000000
        0000000000000000FFFFFF000000000000000000000000000000BFBFBFFFBFBF
        BF000000000000FFFFFF000000000000000000BFBFBF000000000000FFFFFF00
        0000000000000000000000000000BFBFBFFFBFBFBF000000000000FFFFFF0000
        00000000000000BFBFBF000000000000FFFFFF00000000000000000000000000
        0000BFBFBFFFBFBFBFBFBFBF0000000000000000000000000000000000000000
        00000000000000000000000000000000000000BFBFBFBFBFBFFFBFBFBFBFBFBF
        BFBFBF000000FFFFFF000000000000000000BFBFBF000000FFFFFF0000000000
        00000000BFBFBFBFBFBFBFBFBFFFBFBFBFBFBFBFBFBFBF000000000000000000
        000000000000BFBFBF000000000000000000000000000000BFBFBFBFBFBFBFBF
        BFFFBFBFBFBFBFBFBFBFBFBFBFBF000000000000000000BFBFBFBFBFBFBFBFBF
        000000000000000000BFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBF
        BFBF000000FFFFFF000000BFBFBFBFBFBFBFBFBF000000FFFFFF000000BFBFBF
        BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBF000000000000000000BF
        BFBFBFBFBFBFBFBF000000000000000000BFBFBFBFBFBFBFBFBFBFBFBF00BFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00}
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton4Click
    end
    object SpeedButton5: TSpeedButton
      Left = 108
      Top = 6
      Width = 25
      Height = 25
      Hint = ' Print Activity Report'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333330000000
        00003333377777777777333330FFFFFFFFF03FF3F7FFFF33FFF7003000000FF0
        00F077F7777773F77737E00FBFBFB0FFFFF07773333FF7FF33F7E0FBFB00000F
        F0F077F333777773F737E0BFBFBFBFB0FFF077F3333FFFF733F7E0FBFB00000F
        F0F077F333777773F737E0BFBFBFBFB0FFF077F33FFFFFF733F7E0FB0000000F
        F0F077FF777777733737000FB0FFFFFFFFF07773F7F333333337333000FFFFFF
        FFF0333777F3FFF33FF7333330F000FF0000333337F777337777333330FFFFFF
        0FF0333337FFFFFF7F37333330CCCCCC0F033333377777777F73333330FFFFFF
        0033333337FFFFFF7733333330000000033333333777777773330000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton5Click
    end
    object BitBtn1: TBitBtn
      Left = 464
      Top = 6
      Width = 65
      Height = 25
      TabOrder = 0
      OnClick = BitBtn1Click
      Kind = bkClose
    end
  end
  object wwDBGrid1: TwwDBGrid
    Left = 0
    Top = 70
    Width = 618
    Height = 343
    Selected.Strings = (
      'Activity'#9'31'#9'Activity'
      'DateOf'#9'10'#9'When'
      'Done'#9'5'#9'Done'
      'Priority'#9'5'#9'Priority'
      'Detailes'#9'40'#9'Details'
      'Notes'#9'7'#9'Notes'
      'DateCreated'#9'10'#9'Created'
      'FName'#9'15'#9'FName'
      'LName'#9'20'#9'LName'
      'Company'#9'30'#9'Company')
    TitleColor = 8388672
    FixedCols = 0
    ShowHorzScrollBar = True
    EditControlOptions = [ecoCheckboxSingleClick, ecoSearchOwnerForm]
    Align = alClient
    Color = 14286847
    DataSource = frmDataModule.DSActivityList
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    TitleAlignment = taCenter
    TitleFont.Color = clAqua
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = [fsBold]
    TitleLines = 1
    TitleButtons = True
    OnCalcTitleAttributes = wwDBGrid1CalcTitleAttributes
    OnTitleButtonClick = wwDBGrid1TitleButtonClick
    OnDblClick = btnGoToConClick
    IndicatorColor = icYellow
  end
  object pushDateActGrdCre: TwwDBComboDlg
    Left = 292
    Top = 296
    Width = 121
    Height = 21
    OnCustomDlg = pushDateActGrdCreCustomDlg
    ShowButton = True
    Style = csDropDown
    MaxLength = 0
    TabOrder = 2
  end
  object PushDateActGridWhen: TwwDBComboDlg
    Left = 160
    Top = 296
    Width = 121
    Height = 21
    OnCustomDlg = PushDateActGridWhenCustomDlg
    ShowButton = True
    Style = csDropDown
    MaxLength = 0
    TabOrder = 3
  end
  object Panel2: TPanel
    Left = 0
    Top = 37
    Width = 618
    Height = 33
    Align = alTop
    TabOrder = 4
    object Label1: TLabel
      Left = 200
      Top = 8
      Width = 28
      Height = 13
      Caption = 'Date'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Activity: TLabel
      Left = 8
      Top = 8
      Width = 43
      Height = 13
      Caption = 'Activity'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 380
      Top = 8
      Width = 37
      Height = 13
      Caption = 'Status'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object edtCatA: TwwDBCombobox
      Left = 60
      Top = 4
      Width = 121
      Height = 21
      ShowButton = True
      Style = csDropDown
      MapList = False
      AllowClearKey = False
      Color = 14417919
      DropDownCount = 8
      ItemHeight = 0
      Items.Strings = (
        'Send Letter'
        'Submision Follow-up'
        'Send E-mail'
        'Check If Site Updated'
        'Send Literature'
        'Send Quate'
        'Check Link')
      MaxLength = 0
      Sorted = False
      TabOrder = 0
      OnChange = edtCatAClick
    end
    object edtCatB: TwwDBCombobox
      Left = 244
      Top = 4
      Width = 121
      Height = 21
      ShowButton = True
      Style = csDropDown
      MapList = False
      AllowClearKey = False
      Color = 14417919
      DropDownCount = 8
      ItemHeight = 0
      Items.Strings = (
        'All'
        'Date Range'
        'Today'
        'Tomorrow'
        'This Week'
        'Next Week'
        'Last Week'
        'This Month'
        'Next Month'
        'Last Month'
        'Future'
        'Past')
      MaxLength = 0
      Sorted = False
      TabOrder = 1
      OnChange = edtCatAClick
    end
    object edtCatC: TwwDBCombobox
      Left = 426
      Top = 4
      Width = 121
      Height = 21
      ShowButton = True
      Style = csDropDown
      MapList = False
      AllowClearKey = False
      Color = 14417919
      DropDownCount = 8
      ItemHeight = 0
      Items.Strings = (
        'All'
        'Not Done'
        'Done')
      MaxLength = 0
      Sorted = False
      TabOrder = 2
      OnChange = edtCatAClick
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 413
    Width = 618
    Height = 24
    Align = alBottom
    TabOrder = 5
    object Label3: TLabel
      Left = 14
      Top = 6
      Width = 269
      Height = 13
      Caption = 'Click a column header to change the sort order of the list.'
    end
    object Label4: TLabel
      Left = 304
      Top = 6
      Width = 307
      Height = 13
      Caption =
        'Double click inside a Notes field to open a view and edit window' +
        '.'
    end
  end
  object srcActivityList: TwwSearchDialog
    GridTitleAlignment = taLeftJustify
    GridColor = clWhite
    Options = [opShowOKCancel, opShowSearchBy, opGroupControls, opFixFirstColumn]
    GridOptions = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgPerfectRowFit]
    SearchTable = frmDataModule.TBLActivityList
    Caption = 'Search'
    MaxWidth = 0
    MaxHeight = 209
    CharCase = ecNormal
    Left = 84
    Top = 284
  end
end