You've already forked lazarus-ccr
504 lines
12 KiB
Plaintext
504 lines
12 KiB
Plaintext
![]() |
object SelectIfFrm: TSelectIfFrm
|
||
|
Left = 547
|
||
|
Height = 395
|
||
|
Top = 273
|
||
|
Width = 498
|
||
|
Caption = 'Select Cases IF'
|
||
|
ClientHeight = 395
|
||
|
ClientWidth = 498
|
||
|
OnCreate = FormCreate
|
||
|
OnShow = FormShow
|
||
|
Position = poMainFormCenter
|
||
|
LCLVersion = '2.1.0.0'
|
||
|
object Label1: TLabel
|
||
|
AnchorSideLeft.Control = Owner
|
||
|
AnchorSideTop.Control = Owner
|
||
|
Left = 8
|
||
|
Height = 15
|
||
|
Top = 8
|
||
|
Width = 46
|
||
|
BorderSpacing.Left = 8
|
||
|
BorderSpacing.Top = 8
|
||
|
Caption = 'Variables'
|
||
|
ParentColor = False
|
||
|
end
|
||
|
object Label2: TLabel
|
||
|
AnchorSideLeft.Control = SelectMemo
|
||
|
AnchorSideTop.Control = Owner
|
||
|
Left = 192
|
||
|
Height = 15
|
||
|
Top = 8
|
||
|
Width = 79
|
||
|
BorderSpacing.Top = 8
|
||
|
Caption = 'Select Cases IF:'
|
||
|
ParentColor = False
|
||
|
end
|
||
|
object VarList: TListBox
|
||
|
AnchorSideLeft.Control = Owner
|
||
|
AnchorSideTop.Control = Label1
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
AnchorSideBottom.Control = Bevel1
|
||
|
Left = 8
|
||
|
Height = 301
|
||
|
Top = 25
|
||
|
Width = 140
|
||
|
Anchors = [akTop, akLeft, akBottom]
|
||
|
BorderSpacing.Left = 8
|
||
|
BorderSpacing.Top = 2
|
||
|
ItemHeight = 0
|
||
|
TabOrder = 0
|
||
|
end
|
||
|
object SelectMemo: TMemo
|
||
|
AnchorSideLeft.Control = InBtn
|
||
|
AnchorSideLeft.Side = asrBottom
|
||
|
AnchorSideTop.Control = Label2
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
AnchorSideRight.Control = NineBtn
|
||
|
AnchorSideRight.Side = asrBottom
|
||
|
Left = 192
|
||
|
Height = 91
|
||
|
Top = 25
|
||
|
Width = 280
|
||
|
BorderSpacing.Left = 8
|
||
|
BorderSpacing.Top = 2
|
||
|
BorderSpacing.Right = 8
|
||
|
ReadOnly = True
|
||
|
TabOrder = 1
|
||
|
end
|
||
|
object LeftParenBtn: TBitBtn
|
||
|
AnchorSideLeft.Control = SelectMemo
|
||
|
AnchorSideTop.Control = SelectMemo
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
Left = 192
|
||
|
Height = 26
|
||
|
Top = 132
|
||
|
Width = 32
|
||
|
BorderSpacing.Top = 16
|
||
|
Caption = '('
|
||
|
OnClick = LeftParenBtnClick
|
||
|
TabOrder = 2
|
||
|
end
|
||
|
object LessBtn: TBitBtn
|
||
|
AnchorSideLeft.Control = AndBtn
|
||
|
AnchorSideLeft.Side = asrBottom
|
||
|
AnchorSideTop.Control = SelectMemo
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
Left = 240
|
||
|
Height = 26
|
||
|
Top = 132
|
||
|
Width = 32
|
||
|
BorderSpacing.Left = 16
|
||
|
BorderSpacing.Top = 16
|
||
|
Caption = '<'
|
||
|
OnClick = LessBtnClick
|
||
|
TabOrder = 3
|
||
|
end
|
||
|
object GreaterBtn: TBitBtn
|
||
|
AnchorSideLeft.Control = OrBtn
|
||
|
AnchorSideLeft.Side = asrBottom
|
||
|
AnchorSideTop.Control = SelectMemo
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
Left = 288
|
||
|
Height = 26
|
||
|
Top = 132
|
||
|
Width = 32
|
||
|
BorderSpacing.Left = 16
|
||
|
BorderSpacing.Top = 16
|
||
|
Caption = '>'
|
||
|
OnClick = GreaterBtnClick
|
||
|
TabOrder = 4
|
||
|
end
|
||
|
object SevenBtn: TBitBtn
|
||
|
AnchorSideLeft.Control = PlusBtn
|
||
|
AnchorSideLeft.Side = asrBottom
|
||
|
AnchorSideTop.Control = SelectMemo
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
Left = 344
|
||
|
Height = 26
|
||
|
Top = 132
|
||
|
Width = 32
|
||
|
BorderSpacing.Left = 24
|
||
|
BorderSpacing.Top = 16
|
||
|
Caption = '7'
|
||
|
OnClick = SevenBtnClick
|
||
|
TabOrder = 5
|
||
|
end
|
||
|
object EightBtn: TBitBtn
|
||
|
AnchorSideLeft.Control = SevenBtn
|
||
|
AnchorSideLeft.Side = asrBottom
|
||
|
AnchorSideTop.Control = SelectMemo
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
Left = 392
|
||
|
Height = 26
|
||
|
Top = 132
|
||
|
Width = 32
|
||
|
BorderSpacing.Left = 16
|
||
|
BorderSpacing.Top = 16
|
||
|
Caption = '8'
|
||
|
OnClick = EightBtnClick
|
||
|
TabOrder = 6
|
||
|
end
|
||
|
object NineBtn: TBitBtn
|
||
|
AnchorSideLeft.Control = EightBtn
|
||
|
AnchorSideLeft.Side = asrBottom
|
||
|
AnchorSideTop.Control = SelectMemo
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
Left = 440
|
||
|
Height = 26
|
||
|
Top = 132
|
||
|
Width = 32
|
||
|
BorderSpacing.Left = 16
|
||
|
BorderSpacing.Top = 16
|
||
|
Caption = '9'
|
||
|
OnClick = NineBtnClick
|
||
|
TabOrder = 7
|
||
|
end
|
||
|
object RightParenBtn: TBitBtn
|
||
|
AnchorSideLeft.Control = SelectMemo
|
||
|
AnchorSideTop.Control = NineBtn
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
Left = 192
|
||
|
Height = 26
|
||
|
Top = 174
|
||
|
Width = 32
|
||
|
BorderSpacing.Top = 16
|
||
|
Caption = ')'
|
||
|
OnClick = RightParenBtnClick
|
||
|
TabOrder = 8
|
||
|
end
|
||
|
object LEBtn: TBitBtn
|
||
|
AnchorSideLeft.Control = AndBtn
|
||
|
AnchorSideLeft.Side = asrBottom
|
||
|
AnchorSideTop.Control = NineBtn
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
Left = 240
|
||
|
Height = 26
|
||
|
Top = 174
|
||
|
Width = 32
|
||
|
BorderSpacing.Left = 16
|
||
|
BorderSpacing.Top = 16
|
||
|
Caption = '<='
|
||
|
OnClick = LEBtnClick
|
||
|
TabOrder = 9
|
||
|
end
|
||
|
object GEBtn: TBitBtn
|
||
|
AnchorSideLeft.Control = OrBtn
|
||
|
AnchorSideLeft.Side = asrBottom
|
||
|
AnchorSideTop.Control = NineBtn
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
Left = 288
|
||
|
Height = 26
|
||
|
Top = 174
|
||
|
Width = 32
|
||
|
BorderSpacing.Left = 16
|
||
|
BorderSpacing.Top = 16
|
||
|
Caption = '>='
|
||
|
OnClick = GEBtnClick
|
||
|
TabOrder = 10
|
||
|
end
|
||
|
object FourBtn: TBitBtn
|
||
|
AnchorSideLeft.Control = PlusBtn
|
||
|
AnchorSideLeft.Side = asrBottom
|
||
|
AnchorSideTop.Control = NineBtn
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
Left = 344
|
||
|
Height = 26
|
||
|
Top = 174
|
||
|
Width = 32
|
||
|
BorderSpacing.Left = 24
|
||
|
BorderSpacing.Top = 16
|
||
|
Caption = '4'
|
||
|
OnClick = FourBtnClick
|
||
|
TabOrder = 11
|
||
|
end
|
||
|
object FiveBtn: TBitBtn
|
||
|
AnchorSideLeft.Control = SevenBtn
|
||
|
AnchorSideLeft.Side = asrBottom
|
||
|
AnchorSideTop.Control = NineBtn
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
Left = 392
|
||
|
Height = 26
|
||
|
Top = 174
|
||
|
Width = 32
|
||
|
BorderSpacing.Left = 16
|
||
|
BorderSpacing.Top = 16
|
||
|
Caption = '5'
|
||
|
OnClick = FiveBtnClick
|
||
|
TabOrder = 12
|
||
|
end
|
||
|
object SixBtn: TBitBtn
|
||
|
AnchorSideLeft.Control = EightBtn
|
||
|
AnchorSideLeft.Side = asrBottom
|
||
|
AnchorSideTop.Control = NineBtn
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
Left = 440
|
||
|
Height = 26
|
||
|
Top = 174
|
||
|
Width = 32
|
||
|
BorderSpacing.Left = 16
|
||
|
BorderSpacing.Top = 16
|
||
|
Caption = '6'
|
||
|
OnClick = SixBtnClick
|
||
|
TabOrder = 13
|
||
|
end
|
||
|
object EQBtn: TBitBtn
|
||
|
AnchorSideLeft.Control = SelectMemo
|
||
|
AnchorSideTop.Control = SixBtn
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
Left = 192
|
||
|
Height = 26
|
||
|
Top = 216
|
||
|
Width = 32
|
||
|
BorderSpacing.Top = 16
|
||
|
Caption = '='
|
||
|
OnClick = EQBtnClick
|
||
|
TabOrder = 14
|
||
|
end
|
||
|
object NotBtn: TBitBtn
|
||
|
AnchorSideLeft.Control = AndBtn
|
||
|
AnchorSideLeft.Side = asrBottom
|
||
|
AnchorSideTop.Control = SixBtn
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
Left = 240
|
||
|
Height = 26
|
||
|
Top = 216
|
||
|
Width = 32
|
||
|
BorderSpacing.Left = 16
|
||
|
BorderSpacing.Top = 16
|
||
|
Caption = '<>'
|
||
|
OnClick = NotBtnClick
|
||
|
TabOrder = 15
|
||
|
end
|
||
|
object MinusBatn: TBitBtn
|
||
|
AnchorSideLeft.Control = OrBtn
|
||
|
AnchorSideLeft.Side = asrBottom
|
||
|
AnchorSideTop.Control = SixBtn
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
Left = 288
|
||
|
Height = 26
|
||
|
Top = 216
|
||
|
Width = 32
|
||
|
BorderSpacing.Left = 16
|
||
|
BorderSpacing.Top = 16
|
||
|
Caption = '-'
|
||
|
OnClick = MinusBatnClick
|
||
|
TabOrder = 16
|
||
|
end
|
||
|
object OneBtn: TBitBtn
|
||
|
AnchorSideLeft.Control = PlusBtn
|
||
|
AnchorSideLeft.Side = asrBottom
|
||
|
AnchorSideTop.Control = SixBtn
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
Left = 344
|
||
|
Height = 26
|
||
|
Top = 216
|
||
|
Width = 32
|
||
|
BorderSpacing.Left = 24
|
||
|
BorderSpacing.Top = 16
|
||
|
Caption = '1'
|
||
|
OnClick = OneBtnClick
|
||
|
TabOrder = 17
|
||
|
end
|
||
|
object TwoBtn: TBitBtn
|
||
|
AnchorSideLeft.Control = SevenBtn
|
||
|
AnchorSideLeft.Side = asrBottom
|
||
|
AnchorSideTop.Control = SixBtn
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
Left = 392
|
||
|
Height = 26
|
||
|
Top = 216
|
||
|
Width = 32
|
||
|
BorderSpacing.Left = 16
|
||
|
BorderSpacing.Top = 16
|
||
|
Caption = '2'
|
||
|
OnClick = TwoBtnClick
|
||
|
TabOrder = 18
|
||
|
end
|
||
|
object ThreeBtn: TBitBtn
|
||
|
AnchorSideLeft.Control = EightBtn
|
||
|
AnchorSideLeft.Side = asrBottom
|
||
|
AnchorSideTop.Control = SixBtn
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
Left = 440
|
||
|
Height = 26
|
||
|
Top = 216
|
||
|
Width = 32
|
||
|
BorderSpacing.Left = 16
|
||
|
BorderSpacing.Top = 16
|
||
|
Caption = '3'
|
||
|
OnClick = ThreeBtnClick
|
||
|
TabOrder = 19
|
||
|
end
|
||
|
object PlusBtn: TBitBtn
|
||
|
AnchorSideLeft.Control = OrBtn
|
||
|
AnchorSideLeft.Side = asrBottom
|
||
|
AnchorSideTop.Control = ThreeBtn
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
Left = 288
|
||
|
Height = 26
|
||
|
Top = 258
|
||
|
Width = 32
|
||
|
BorderSpacing.Left = 16
|
||
|
BorderSpacing.Top = 16
|
||
|
Caption = '+'
|
||
|
OnClick = PlusBtnClick
|
||
|
TabOrder = 20
|
||
|
end
|
||
|
object ZeroBtn: TBitBtn
|
||
|
AnchorSideLeft.Control = PlusBtn
|
||
|
AnchorSideLeft.Side = asrBottom
|
||
|
AnchorSideTop.Control = ThreeBtn
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
Left = 344
|
||
|
Height = 26
|
||
|
Top = 258
|
||
|
Width = 72
|
||
|
BorderSpacing.Left = 24
|
||
|
BorderSpacing.Top = 16
|
||
|
Caption = '0'
|
||
|
OnClick = ZeroBtnClick
|
||
|
TabOrder = 21
|
||
|
end
|
||
|
object DotBtn: TBitBtn
|
||
|
AnchorSideLeft.Control = EightBtn
|
||
|
AnchorSideLeft.Side = asrBottom
|
||
|
AnchorSideTop.Control = ThreeBtn
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
Left = 440
|
||
|
Height = 26
|
||
|
Top = 258
|
||
|
Width = 32
|
||
|
BorderSpacing.Left = 16
|
||
|
BorderSpacing.Top = 16
|
||
|
Caption = '.'
|
||
|
OnClick = DotBtnClick
|
||
|
TabOrder = 22
|
||
|
end
|
||
|
object AndBtn: TBitBtn
|
||
|
AnchorSideLeft.Control = SelectMemo
|
||
|
AnchorSideTop.Control = PlusBtn
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
Left = 192
|
||
|
Height = 26
|
||
|
Top = 300
|
||
|
Width = 32
|
||
|
BorderSpacing.Top = 16
|
||
|
Caption = 'and'
|
||
|
OnClick = AndBtnClick
|
||
|
TabOrder = 23
|
||
|
end
|
||
|
object OrBtn: TBitBtn
|
||
|
AnchorSideLeft.Control = AndBtn
|
||
|
AnchorSideLeft.Side = asrBottom
|
||
|
AnchorSideTop.Control = PlusBtn
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
Left = 240
|
||
|
Height = 26
|
||
|
Top = 300
|
||
|
Width = 32
|
||
|
BorderSpacing.Left = 16
|
||
|
BorderSpacing.Top = 16
|
||
|
Caption = 'or'
|
||
|
OnClick = OrBtnClick
|
||
|
TabOrder = 24
|
||
|
end
|
||
|
object LNotBtn: TBitBtn
|
||
|
AnchorSideLeft.Control = OrBtn
|
||
|
AnchorSideLeft.Side = asrBottom
|
||
|
AnchorSideTop.Control = PlusBtn
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
Left = 288
|
||
|
Height = 26
|
||
|
Top = 300
|
||
|
Width = 32
|
||
|
BorderSpacing.Left = 16
|
||
|
BorderSpacing.Top = 16
|
||
|
Caption = 'not'
|
||
|
OnClick = LNotBtnClick
|
||
|
TabOrder = 25
|
||
|
end
|
||
|
object ResetBtn: TButton
|
||
|
AnchorSideTop.Control = Bevel1
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
AnchorSideRight.Control = CancelBtn
|
||
|
Left = 304
|
||
|
Height = 25
|
||
|
Top = 358
|
||
|
Width = 54
|
||
|
Anchors = [akTop, akRight]
|
||
|
AutoSize = True
|
||
|
BorderSpacing.Top = 8
|
||
|
BorderSpacing.Right = 12
|
||
|
Caption = 'Reset'
|
||
|
OnClick = ResetBtnClick
|
||
|
TabOrder = 26
|
||
|
end
|
||
|
object CancelBtn: TButton
|
||
|
AnchorSideTop.Control = Bevel1
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
AnchorSideRight.Control = OKBtn
|
||
|
Left = 370
|
||
|
Height = 25
|
||
|
Top = 358
|
||
|
Width = 62
|
||
|
Anchors = [akTop, akRight]
|
||
|
AutoSize = True
|
||
|
BorderSpacing.Top = 8
|
||
|
BorderSpacing.Right = 12
|
||
|
Caption = 'Cancel'
|
||
|
ModalResult = 2
|
||
|
OnClick = CancelBtnClick
|
||
|
TabOrder = 27
|
||
|
end
|
||
|
object OKBtn: TButton
|
||
|
AnchorSideTop.Control = Bevel1
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
AnchorSideRight.Control = Owner
|
||
|
AnchorSideRight.Side = asrBottom
|
||
|
Left = 444
|
||
|
Height = 25
|
||
|
Top = 358
|
||
|
Width = 42
|
||
|
Anchors = [akTop, akRight]
|
||
|
AutoSize = True
|
||
|
BorderSpacing.Top = 8
|
||
|
BorderSpacing.Right = 12
|
||
|
BorderSpacing.Bottom = 8
|
||
|
Caption = 'OK'
|
||
|
ModalResult = 1
|
||
|
OnClick = OKBtnClick
|
||
|
TabOrder = 28
|
||
|
end
|
||
|
object InBtn: TBitBtn
|
||
|
AnchorSideLeft.Control = VarList
|
||
|
AnchorSideLeft.Side = asrBottom
|
||
|
AnchorSideTop.Control = VarList
|
||
|
Left = 156
|
||
|
Height = 28
|
||
|
Top = 33
|
||
|
Width = 28
|
||
|
BorderSpacing.Left = 8
|
||
|
BorderSpacing.Top = 8
|
||
|
Images = MainDataModule.ImageList
|
||
|
ImageIndex = 1
|
||
|
OnClick = InBtnClick
|
||
|
Spacing = 0
|
||
|
TabOrder = 29
|
||
|
end
|
||
|
object Bevel1: TBevel
|
||
|
AnchorSideLeft.Control = Owner
|
||
|
AnchorSideTop.Control = AndBtn
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
AnchorSideRight.Control = Owner
|
||
|
AnchorSideRight.Side = asrBottom
|
||
|
Left = 0
|
||
|
Height = 8
|
||
|
Top = 334
|
||
|
Width = 498
|
||
|
Anchors = [akTop, akLeft, akRight]
|
||
|
BorderSpacing.Top = 8
|
||
|
BorderSpacing.Bottom = 16
|
||
|
Shape = bsBottomLine
|
||
|
end
|
||
|
end
|