object frmBreakpointCondition: TfrmBreakpointCondition Left = 666 Height = 232 Top = 334 Width = 489 Caption = 'Breakpoint condition' ClientHeight = 232 ClientWidth = 489 OnCreate = FormCreate Position = poScreenCenter LCLVersion = '1.6.0.4' object Button1: TButton AnchorSideTop.Control = PageControl1 AnchorSideBottom.Control = Owner AnchorSideBottom.Side = asrBottom Left = 8 Height = 27 Top = 202 Width = 75 Anchors = [akLeft, akBottom] BorderSpacing.Bottom = 3 Caption = 'OK' Default = True ModalResult = 1 TabOrder = 0 end object Button2: TButton AnchorSideBottom.Control = Button1 AnchorSideBottom.Side = asrBottom Left = 96 Height = 27 Top = 202 Width = 75 Anchors = [akLeft, akBottom] Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 1 end object PageControl1: TPageControl AnchorSideLeft.Control = rbEasy AnchorSideTop.Control = rbEasy AnchorSideTop.Side = asrBottom AnchorSideBottom.Control = Button1 Left = 8 Height = 177 Top = 20 Width = 476 ActivePage = TabSheet1 Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Bottom = 5 TabIndex = 0 TabOrder = 2 object TabSheet1: TTabSheet Caption = 'Easy formula' ClientHeight = 149 ClientWidth = 468 object edtEasy: TEdit AnchorSideLeft.Control = Label2 AnchorSideTop.Control = Label2 AnchorSideTop.Side = asrBottom Left = 4 Height = 23 Top = 37 Width = 459 Anchors = [akTop, akLeft, akRight] BorderSpacing.Top = 2 TabOrder = 0 end object Label1: TLabel AnchorSideLeft.Control = TabSheet1 AnchorSideTop.Control = TabSheet1 AnchorSideRight.Control = TabSheet1 AnchorSideRight.Side = asrBottom Left = 4 Height = 15 Top = 5 Width = 460 Anchors = [akTop, akLeft, akRight] BorderSpacing.Left = 4 BorderSpacing.Top = 5 BorderSpacing.Right = 4 Caption = 'Give a formula that must return true if you want the breakpoint to trigger a break' ParentColor = False WordWrap = True end object Label2: TLabel AnchorSideLeft.Control = Label1 AnchorSideTop.Control = Label1 AnchorSideTop.Side = asrBottom AnchorSideRight.Control = TabSheet1 AnchorSideRight.Side = asrBottom Left = 4 Height = 15 Top = 20 Width = 460 Anchors = [akTop, akLeft, akRight] BorderSpacing.Right = 4 Caption = 'Example: EAX == 0x1234 (case sensitive and hexadecimal starts with 0x )' ParentColor = False WordWrap = True end end object TabSheet2: TTabSheet Caption = 'Complex function' ClientHeight = 149 ClientWidth = 468 object mComplex: TMemo Left = 0 Height = 149 Top = 0 Width = 468 Align = alClient Lines.Strings = ( '--the register values like EAX and EBX can be read here. ' '--Changing them has no effect though' '--Note: Keep in mind hexadecimal values start with 0x' '' 'return (conditon) --return a non-zero value if you want to break' ) ScrollBars = ssBoth TabOrder = 0 end end end object rbEasy: TRadioButton AnchorSideLeft.Control = Owner AnchorSideTop.Control = Owner Left = 8 Height = 19 Top = 1 Width = 43 BorderSpacing.Left = 8 BorderSpacing.Top = 1 Caption = 'Easy' Checked = True OnChange = rbEasyChange OnClick = rbEasyChange TabOrder = 3 TabStop = True end object rbComplex: TRadioButton AnchorSideLeft.Control = rbEasy AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = rbEasy Left = 56 Height = 19 Top = 1 Width = 67 BorderSpacing.Left = 5 Caption = 'Complex' OnChange = rbEasyChange OnClick = rbEasyChange TabOrder = 4 end end