ftaskeditor.dfm

Workflow Studio是一款专为商业进程管理（BPM）设计的Delphi VCL框架。通过Workflow Studio你可以轻易地将工作流与BPM功能添加到你的应用程序里。这样能使你或你的最

object fmTaskEditor: TfmTaskEditor
  Left = 348
  Top = 133
  Width = 620
  Height = 460
  ActiveControl = frFields.lvVars
  Caption = 'Tasks'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnActivate = FormActivate
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 198
    Top = 8
    Width = 410
    Height = 376
    ActivePage = tsFields
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    object tsGeneral: TTabSheet
      Caption = 'General'
      object Label1: TLabel
        Left = 5
        Top = 5
        Width = 36
        Height = 13
        Caption = 'Subject'
      end
      object Label2: TLabel
        Left = 7
        Top = 45
        Width = 53
        Height = 13
        Caption = 'Description'
      end
      object Label3: TLabel
        Left = 6
        Top = 169
        Width = 54
        Height = 13
        Caption = 'Assignment'
      end
      object edSubject: TEdit
        Left = 6
        Top = 20
        Width = 388
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        TabOrder = 0
        OnChange = PropertyChanged
      end
      object mmComments: TMemo
        Left = 6
        Top = 60
        Width = 388
        Height = 105
        Anchors = [akLeft, akTop, akRight]
        TabOrder = 1
        OnChange = PropertyChanged
      end
      object edAssignment: TComboBox
        Left = 7
        Top = 184
        Width = 388
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        ItemHeight = 0
        TabOrder = 2
        OnChange = PropertyChanged
      end
      object cbMailNotification: TCheckBox
        Left = 8
        Top = 215
        Width = 249
        Height = 17
        Caption = 'Send mail notification'
        TabOrder = 3
        OnClick = PropertyChanged
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Status'
      ImageIndex = 1
      object Label4: TLabel
        Left = 6
        Top = 6
        Width = 198
        Height = 13
        Caption = 'Status list (start completion status with "*")'
      end
      object mmStatus: TMemo
        Left = 5
        Top = 22
        Width = 345
        Height = 145
        Anchors = [akLeft, akTop, akRight]
        TabOrder = 0
        WordWrap = False
        OnChange = PropertyChanged
      end
    end
    object tsAttachment: TTabSheet
      Caption = 'Attachments'
      ImageIndex = 2
      inline frPermissions: TfrAttachPermissions
        Width = 402
        Height = 348
        Align = alClient
      end
    end
    object tsFields: TTabSheet
      Caption = 'Fields'
      ImageIndex = 3
      inline frFields: TfrFieldFrame
        Width = 402
        Height = 348
        Align = alClient
        inherited Splitter1: TSplitter
          Width = 402
        end
        inherited Panel1: TPanel
          Width = 402
          inherited lvVars: TListView
            Width = 392
          end
        end
        inherited Panel2: TPanel
          Width = 402
          Height = 190
          inherited edCaption: TEdit
            Width = 302
          end
        end
        inherited Panel3: TPanel
          Width = 402
        end
      end
    end
  end
  object lvTasks: TListView
    Left = 8
    Top = 39
    Width = 185
    Height = 344
    Anchors = [akLeft, akTop, akBottom]
    Columns = <>
    HideSelection = False
    TabOrder = 1
    ViewStyle = vsReport
    OnEdited = lvTasksEdited
    OnSelectItem = lvTasksSelectItem
  end
  object btAdd: TButton
    Left = 8
    Top = 8
    Width = 60
    Height = 25
    Caption = '&Add'
    TabOrder = 2
    OnClick = btAddClick
  end
  object btDelete: TButton
    Left = 71
    Top = 8
    Width = 60
    Height = 25
    Caption = '&Delete'
    TabOrder = 3
    OnClick = btDeleteClick
  end
  object btCancel: TButton
    Left = 522
    Top = 394
    Width = 75
    Height = 25
    Anchors = [akBottom]
    Caption = 'Cancel'
    TabOrder = 4
    OnClick = btCancelClick
  end
  object btOk: TButton
    Left = 433
    Top = 394
    Width = 75
    Height = 25
    Anchors = [akBottom]
    Caption = 'Ok'
    TabOrder = 5
    OnClick = btOkClick
  end
end