fworkdefmanager.dfm

来自「Workflow Studio是一款专为商业进程管理（BPM）设计的Delphi」· DFM 代码 · 共 120 行

object fmWorkDefManager: TfmWorkDefManager
  Left = 415
  Top = 196
  Width = 403
  Height = 324
  Caption = 'Workflow definitions'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object btAdd: TSpeedButton
    Left = 308
    Top = 12
    Width = 75
    Height = 25
    Anchors = [akTop, akRight]
    Caption = '&Add'
    OnClick = btAddClick
  end
  object btEdit: TSpeedButton
    Left = 308
    Top = 44
    Width = 75
    Height = 25
    Anchors = [akTop, akRight]
    Caption = '&Edit'
    OnClick = btEditClick
  end
  object btDelete: TSpeedButton
    Left = 308
    Top = 76
    Width = 75
    Height = 25
    Anchors = [akTop, akRight]
    Caption = '&Delete'
    OnClick = btDeleteClick
  end
  object btRefresh: TSpeedButton
    Left = 308
    Top = 108
    Width = 75
    Height = 25
    Anchors = [akTop, akRight]
    Caption = '&Refresh'
    OnClick = btRefreshClick
  end
  object btRunNew: TSpeedButton
    Left = 308
    Top = 140
    Width = 75
    Height = 25
    Anchors = [akTop, akRight]
    Caption = 'Run &new'
    OnClick = btRunNewClick
  end
  object lvWorks: TWorkDefListView
    Left = 12
    Top = 12
    Width = 285
    Height = 265
    Anchors = [akLeft, akTop, akRight, akBottom]
    Columns = <
      item
        Width = 200
      end>
    HideSelection = False
    PopupMenu = PopupMenu1
    TabOrder = 0
    ViewStyle = vsReport
    OnDblClick = lvWorksDblClick
    OnEdited = lvWorksEdited
  end
  object PopupMenu1: TPopupMenu
    Left = 120
    Top = 96
    object Export1: TMenuItem
      Action = acExport
    end
    object Import1: TMenuItem
      Action = acImport
    end
  end
  object ActionList1: TActionList
    Left = 296
    Top = 168
    object acImport: TAction
      Caption = '&Import definition...'
      OnExecute = acImportExecute
    end
    object acExport: TAction
      Caption = 'E&xport selected definition...'
      OnExecute = acExportExecute
      OnUpdate = ItemSelectedUpdate
    end
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '.wfd'
    Filter = 'Workflow definitions (*.wfd)|*.wfd'
    Options = [ofAllowMultiSelect, ofFileMustExist, ofEnableSizing]
    Title = 'Import workflow definition'
    Left = 144
    Top = 176
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = '.wfd'
    Filter = 'Workflow definitions (*.wfd)|*.wfd'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing]
    Title = 'Export workflow definition'
    Left = 176
    Top = 176
  end
end