📄 ftasklist.dfm
字号:
object fmTaskList: TfmTaskList
Left = 295
Top = 160
Width = 686
Height = 430
Caption = 'Task list'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poOwnerFormCenter
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Splitter1: TSplitter
Left = 0
Top = 137
Width = 678
Height = 3
Cursor = crVSplit
Align = alTop
end
object Splitter2: TSplitter
Left = 0
Top = 349
Width = 678
Height = 3
Cursor = crVSplit
Align = alBottom
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 678
Height = 137
Align = alTop
BevelOuter = bvNone
BorderWidth = 5
TabOrder = 0
object lvTasks: TTaskListView
Left = 5
Top = 5
Width = 668
Height = 127
Align = alClient
HideSelection = False
RowSelect = True
PopupMenu = PopupMenu1
TabOrder = 0
ViewStyle = vsReport
OnCustomDrawItem = lvTasksCustomDrawItem
OnSelectItem = lvTasksSelectItem
end
end
object Panel2: TPanel
Left = 0
Top = 140
Width = 678
Height = 209
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object TabControl1: TTabControl
Left = 0
Top = 0
Width = 678
Height = 209
Align = alClient
TabOrder = 0
OnChange = TabControl1Change
inline frTaskView: TfrTaskInstanceView
Left = 4
Top = 6
Width = 670
Height = 199
Align = alClient
TabOrder = 1
inherited mmDescription: TMemo [0]
Width = 670
Height = 121
Lines.Strings = ()
end
inherited Panel1: TPanel [1]
Width = 670
end
inherited Panel2: TPanel
Top = 150
Width = 670
inherited Label2: TLabel
Width = 35
end
end
end
object WorkflowDiagram1: TWorkflowDiagram
Left = 4
Top = 6
Width = 670
Height = 199
NettoExportOffset = 3
AutomaticNodes = False
AutoScroll = True
AutoPage = False
Background.Scroll = True
Background.Style = biTile
Background.Visible = False
Background.Gradient.Direction = grTopBottom
Background.Gradient.StartColor = clWhite
Background.Gradient.EndColor = clYellow
Background.Gradient.Visible = False
Background.PrintGradient = False
SnapGrid.Active = False
SnapGrid.Force = False
SnapGrid.Visible = False
SnapGrid.SizeX = 8
SnapGrid.SizeY = 8
SnapGrid.Style = gsDots
SnapGrid.SnapToRuler = False
ShowLinkPoints = True
LeftRuler.Visible = False
LeftRuler.Divisions = 5
LeftRuler.Font.Charset = DEFAULT_CHARSET
LeftRuler.Font.Color = clWindowText
LeftRuler.Font.Height = -9
LeftRuler.Font.Name = 'Arial'
LeftRuler.Font.Style = []
LeftRuler.Units = unCenti
LeftRuler.MinorTickLength = 4
LeftRuler.MajorTickLength = 6
LeftRuler.Color = clWhite
LeftRuler.TickColor = clBlack
LeftRuler.Size = 16
LeftRuler.AutoFactor = True
TopRuler.Visible = False
TopRuler.Divisions = 5
TopRuler.Font.Charset = DEFAULT_CHARSET
TopRuler.Font.Color = clWindowText
TopRuler.Font.Height = -9
TopRuler.Font.Name = 'Arial'
TopRuler.Font.Style = []
TopRuler.Units = unCenti
TopRuler.MinorTickLength = 4
TopRuler.MajorTickLength = 6
TopRuler.Color = clWhite
TopRuler.TickColor = clBlack
TopRuler.Size = 16
TopRuler.AutoFactor = True
Zoom = 100
BorderColor = clGray
MouseWheelMode = mwOff
ActiveLayers = 0
LinkCursor = crHandPoint
PanCursor = crHandPoint
ZoomCursor = crDefault
IgnoreScreenDPI = False
ShowCrossIndicators = False
PageLines.Visible = False
PageLines.Pen.Style = psDot
KeyActions = [kaEscape, kaMove, kaPage, kaResize, kaSelect]
Align = alClient
Anchors = [akLeft, akTop, akRight, akBottom]
BevelInner = bvNone
BiDiMode = bdLeftToRight
BorderStyle = bsNone
Color = clWhite
ParentColor = False
ShowHint = False
TabOrder = 0
OnClick = WorkflowDiagram1Click
IdlePercent = 30
RunColor = clWhite
Variables = <>
Attachments = <>
end
end
end
object Panel3: TPanel
Left = 0
Top = 352
Width = 678
Height = 44
Align = alBottom
TabOrder = 2
object Splitter3: TSplitter
Left = 1
Top = 1
Width = 3
Height = 42
Cursor = crHSplit
end
object btSaveChanges: TButton
Left = 577
Top = 9
Width = 89
Height = 25
Anchors = [akTop, akRight]
Caption = '&Save changes'
TabOrder = 0
OnClick = btSaveChangesClick
end
end
object ActionList1: TActionList
Left = 480
Top = 40
object acShowOnlyOpen: TAction
Caption = 'Show only open tasks'
OnExecute = acShowOnlyOpenExecute
OnUpdate = acShowOnlyOpenUpdate
end
object acShowAllTasks: TAction
Caption = 'Show all tasks'
OnExecute = acShowAllTasksExecute
OnUpdate = acShowAllTasksUpdate
end
end
object PopupMenu1: TPopupMenu
Left = 360
Top = 48
object miView: TMenuItem
Caption = '&View'
object Showonlyopentasks2: TMenuItem
Action = acShowOnlyOpen
end
object Showalltasks2: TMenuItem
Action = acShowAllTasks
end
end
end
object Timer1: TTimer
Enabled = False
Interval = 300
OnTimer = Timer1Timer
Left = 184
Top = 40
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -