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