delphimvcframework/samples/higher_order_functions/MainFormU.dfm
Daniele Teti 8503c77b41
Some checks are pending
TOC Generator / TOC Generator (push) Waiting to run
Added HigherOrder.Map<T1,T2> with some overloads
2024-11-03 17:21:58 +01:00

204 lines
3.8 KiB
Plaintext

object MainForm: TMainForm
Left = 0
Top = 0
BorderStyle = bsDialog
Caption = 'DMVCFramework | Map, Filter, Reduce | Sample'
ClientHeight = 383
ClientWidth = 754
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Position = poScreenCenter
DesignSize = (
754
383)
TextHeight = 13
object Label1: TLabel
Left = 8
Top = 8
Width = 20
Height = 13
Caption = 'Map'
end
object Label2: TLabel
Left = 194
Top = 8
Width = 36
Height = 13
Caption = 'Reduce'
end
object Label3: TLabel
Left = 380
Top = 8
Width = 24
Height = 13
Caption = 'Filter'
end
object btnForEach: TLabel
Left = 566
Top = 8
Width = 39
Height = 13
Caption = 'ForEach'
end
object btnMapAddStars: TButton
Left = 8
Top = 27
Width = 74
Height = 30
Caption = 'Add Stars'
TabOrder = 0
OnClick = btnMapAddStarsClick
end
object lbMap: TListBox
Left = 8
Top = 99
Width = 180
Height = 276
Anchors = [akLeft, akTop, akBottom]
ItemHeight = 13
TabOrder = 1
end
object btnFilterBetween: TButton
Left = 380
Top = 63
Width = 75
Height = 30
Caption = 'Between 2 and 8'
TabOrder = 2
WordWrap = True
OnClick = btnFilterBetwenClick
end
object lbFilter: TListBox
Left = 380
Top = 99
Width = 180
Height = 276
Anchors = [akLeft, akTop, akBottom]
ItemHeight = 13
TabOrder = 3
end
object btnReduceSum: TButton
Left = 194
Top = 27
Width = 77
Height = 30
Caption = 'Sum'
TabOrder = 4
OnClick = btnReduceSumClick
end
object lbReduce: TListBox
Left = 194
Top = 99
Width = 180
Height = 276
Anchors = [akLeft, akTop, akBottom]
ItemHeight = 13
TabOrder = 5
end
object btnReduceMin: TButton
Left = 194
Top = 63
Width = 77
Height = 30
Caption = 'Min'
TabOrder = 6
OnClick = btnReduceMinClick
end
object btnReduceMul: TButton
Left = 277
Top = 27
Width = 77
Height = 30
Caption = 'Mul'
TabOrder = 7
OnClick = btnReduceMulClick
end
object btnReduceMax: TButton
Left = 277
Top = 63
Width = 77
Height = 30
Caption = 'Max'
TabOrder = 8
OnClick = btnReduceMaxClick
end
object btnFilterOdd: TButton
Left = 380
Top = 27
Width = 75
Height = 30
Caption = 'Odd numbers'
TabOrder = 9
WordWrap = True
OnClick = btnFilterOddClick
end
object btnFilterEven: TButton
Left = 461
Top = 27
Width = 82
Height = 30
Caption = 'Even numbers'
TabOrder = 10
WordWrap = True
OnClick = btnFilterEvenClick
end
object btnMapCapitalize: TButton
Left = 8
Top = 63
Width = 74
Height = 30
Caption = 'Capitalize'
TabOrder = 11
OnClick = btnMapCapitalizeClick
end
object btnJustLoop: TButton
Left = 566
Top = 27
Width = 180
Height = 30
Caption = 'Loop'
TabOrder = 12
OnClick = btnJustLoopClick
end
object lbForEach: TListBox
Left = 566
Top = 99
Width = 180
Height = 276
Anchors = [akLeft, akTop, akBottom]
ItemHeight = 13
TabOrder = 13
end
object btnForEachWithException: TButton
Left = 566
Top = 63
Width = 180
Height = 30
Caption = 'Loop with exception'
TabOrder = 14
OnClick = btnForEachWithExceptionClick
end
object btnMap2: TButton
Left = 88
Top = 27
Width = 100
Height = 30
Caption = 'Map Enumerable'
TabOrder = 15
OnClick = btnMap2Click
end
object btnMap2Array: TButton
Left = 88
Top = 63
Width = 100
Height = 30
Caption = 'Map Array'
TabOrder = 16
OnClick = btnMap2ArrayClick
end
end