mirror of
				https://gitlab.com/freepascal.org/lazarus/lazarus.git
				synced 2025-11-04 05:59:49 +01:00 
			
		
		
		
	
		
			
				
	
	
		
			247 lines
		
	
	
		
			5.6 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
			
		
		
	
	
			247 lines
		
	
	
		
			5.6 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
object CondForm: TCondForm
 | 
						|
  Left = 305
 | 
						|
  Height = 326
 | 
						|
  Top = 265
 | 
						|
  Width = 356
 | 
						|
  ActiveControl = FirstTest
 | 
						|
  BorderIcons = [biSystemMenu]
 | 
						|
  Caption = 'Conditional Defines'
 | 
						|
  ClientHeight = 326
 | 
						|
  ClientWidth = 356
 | 
						|
  OnCreate = CondFormCREATE
 | 
						|
  OnShow = FormShow
 | 
						|
  Position = poScreenCenter
 | 
						|
  LCLVersion = '1.1'
 | 
						|
  object NewTestGroupBox: TGroupBox
 | 
						|
    Left = 6
 | 
						|
    Height = 149
 | 
						|
    Top = 6
 | 
						|
    Width = 344
 | 
						|
    Align = alTop
 | 
						|
    AutoSize = True
 | 
						|
    BorderSpacing.Around = 6
 | 
						|
    Caption = 'NewTestGroupBox'
 | 
						|
    ClientHeight = 130
 | 
						|
    ClientWidth = 340
 | 
						|
    TabOrder = 0
 | 
						|
    object FirstLabel: TLabel
 | 
						|
      Left = 6
 | 
						|
      Height = 15
 | 
						|
      Top = 6
 | 
						|
      Width = 328
 | 
						|
      Align = alTop
 | 
						|
      BorderSpacing.Left = 6
 | 
						|
      BorderSpacing.Top = 6
 | 
						|
      BorderSpacing.Right = 6
 | 
						|
      Caption = '&First test'
 | 
						|
      ParentColor = False
 | 
						|
    end
 | 
						|
    object SecondLabel: TLabel
 | 
						|
      AnchorSideTop.Side = asrBottom
 | 
						|
      Left = 6
 | 
						|
      Height = 15
 | 
						|
      Top = 52
 | 
						|
      Width = 328
 | 
						|
      Align = alTop
 | 
						|
      BorderSpacing.Left = 6
 | 
						|
      BorderSpacing.Top = 6
 | 
						|
      BorderSpacing.Right = 6
 | 
						|
      Caption = '&Second test'
 | 
						|
      ParentColor = False
 | 
						|
    end
 | 
						|
    object FirstTest: TComboBox
 | 
						|
      AnchorSideTop.Side = asrBottom
 | 
						|
      Left = 6
 | 
						|
      Height = 25
 | 
						|
      Top = 21
 | 
						|
      Width = 328
 | 
						|
      Align = alTop
 | 
						|
      BorderSpacing.Left = 6
 | 
						|
      BorderSpacing.Right = 6
 | 
						|
      BorderSpacing.Bottom = 6
 | 
						|
      ItemHeight = 0
 | 
						|
      ItemIndex = 0
 | 
						|
      Items.Strings = (
 | 
						|
        'MSWINDOWS'
 | 
						|
        'UNIX'
 | 
						|
        'LINUX'
 | 
						|
        'WIN32'
 | 
						|
        'CLX_'
 | 
						|
        'LCL_'
 | 
						|
        'VCL_'
 | 
						|
        'FPC'
 | 
						|
        'KYLIX'
 | 
						|
        'VER1_0'
 | 
						|
      )
 | 
						|
      OnChange = TestEditChange
 | 
						|
      TabOrder = 0
 | 
						|
      Text = 'MSWINDOWS'
 | 
						|
    end
 | 
						|
    object SecondTest: TComboBox
 | 
						|
      AnchorSideTop.Side = asrBottom
 | 
						|
      Left = 6
 | 
						|
      Height = 25
 | 
						|
      Top = 67
 | 
						|
      Width = 328
 | 
						|
      Align = alTop
 | 
						|
      BorderSpacing.Left = 6
 | 
						|
      BorderSpacing.Right = 6
 | 
						|
      BorderSpacing.Bottom = 6
 | 
						|
      ItemHeight = 0
 | 
						|
      ItemIndex = 0
 | 
						|
      Items.Strings = (
 | 
						|
        'NONE'
 | 
						|
        'ELSE'
 | 
						|
      )
 | 
						|
      OnChange = TestEditChange
 | 
						|
      TabOrder = 1
 | 
						|
      Text = 'NONE'
 | 
						|
    end
 | 
						|
    object AddBtn: TBitBtn
 | 
						|
      AnchorSideTop.Control = SecondTest
 | 
						|
      AnchorSideTop.Side = asrBottom
 | 
						|
      AnchorSideRight.Control = AddInverse
 | 
						|
      Left = 85
 | 
						|
      Height = 26
 | 
						|
      Top = 98
 | 
						|
      Width = 75
 | 
						|
      Anchors = [akTop, akRight]
 | 
						|
      AutoSize = True
 | 
						|
      BorderSpacing.Around = 6
 | 
						|
      Caption = '&Add'
 | 
						|
      Constraints.MinHeight = 25
 | 
						|
      Constraints.MinWidth = 75
 | 
						|
      OnClick = AddBtnClick
 | 
						|
      TabOrder = 2
 | 
						|
    end
 | 
						|
    object RemoveBtn: TBitBtn
 | 
						|
      AnchorSideLeft.Side = asrBottom
 | 
						|
      AnchorSideTop.Control = SecondTest
 | 
						|
      AnchorSideTop.Side = asrBottom
 | 
						|
      AnchorSideRight.Control = NewTestGroupBox
 | 
						|
      AnchorSideRight.Side = asrBottom
 | 
						|
      Left = 259
 | 
						|
      Height = 26
 | 
						|
      Top = 98
 | 
						|
      Width = 75
 | 
						|
      Anchors = [akTop, akRight]
 | 
						|
      AutoSize = True
 | 
						|
      BorderSpacing.Around = 6
 | 
						|
      Caption = '&Remove'
 | 
						|
      Constraints.MinHeight = 25
 | 
						|
      Constraints.MinWidth = 75
 | 
						|
      OnClick = RemoveBtnClick
 | 
						|
      TabOrder = 3
 | 
						|
    end
 | 
						|
    object AddInverse: TBitBtn
 | 
						|
      AnchorSideLeft.Side = asrBottom
 | 
						|
      AnchorSideTop.Control = SecondTest
 | 
						|
      AnchorSideTop.Side = asrBottom
 | 
						|
      AnchorSideRight.Control = RemoveBtn
 | 
						|
      Left = 166
 | 
						|
      Height = 26
 | 
						|
      Top = 98
 | 
						|
      Width = 87
 | 
						|
      HelpType = htKeyword
 | 
						|
      Anchors = [akTop, akRight]
 | 
						|
      AutoSize = True
 | 
						|
      BorderSpacing.Around = 6
 | 
						|
      Caption = 'Add Inverse'
 | 
						|
      Constraints.MinHeight = 25
 | 
						|
      Constraints.MinWidth = 75
 | 
						|
      OnClick = AddInverseCLICK
 | 
						|
      TabOrder = 4
 | 
						|
    end
 | 
						|
  end
 | 
						|
  object ListBox: TListBox
 | 
						|
    Left = 6
 | 
						|
    Height = 113
 | 
						|
    Top = 161
 | 
						|
    Width = 344
 | 
						|
    Align = alClient
 | 
						|
    Anchors = [akTop, akBottom]
 | 
						|
    BorderSpacing.Around = 6
 | 
						|
    ItemHeight = 0
 | 
						|
    OnClick = ListBoxClick
 | 
						|
    OnDblClick = ListBoxDblClick
 | 
						|
    OnKeyDown = ListBoxKeyDown
 | 
						|
    TabOrder = 1
 | 
						|
  end
 | 
						|
  object ButtonPanel: TPanel
 | 
						|
    Left = 0
 | 
						|
    Height = 46
 | 
						|
    Top = 280
 | 
						|
    Width = 356
 | 
						|
    Align = alBottom
 | 
						|
    ClientHeight = 46
 | 
						|
    ClientWidth = 356
 | 
						|
    TabOrder = 2
 | 
						|
    object btnOk: TBitBtn
 | 
						|
      AnchorSideTop.Control = ButtonPanel
 | 
						|
      AnchorSideTop.Side = asrCenter
 | 
						|
      AnchorSideRight.Control = ButtonPanel
 | 
						|
      AnchorSideRight.Side = asrBottom
 | 
						|
      Left = 290
 | 
						|
      Height = 27
 | 
						|
      Top = 10
 | 
						|
      Width = 59
 | 
						|
      Anchors = [akTop, akRight]
 | 
						|
      AutoSize = True
 | 
						|
      BorderSpacing.Around = 6
 | 
						|
      Default = True
 | 
						|
      DefaultCaption = True
 | 
						|
      Kind = bkOK
 | 
						|
      ModalResult = 1
 | 
						|
      OnClick = OKButtonClick
 | 
						|
      TabOrder = 0
 | 
						|
    end
 | 
						|
    object btnSave: TBitBtn
 | 
						|
      AnchorSideTop.Control = btnOk
 | 
						|
      AnchorSideTop.Side = asrCenter
 | 
						|
      AnchorSideRight.Control = btnOk
 | 
						|
      Left = 219
 | 
						|
      Height = 26
 | 
						|
      Top = 10
 | 
						|
      Width = 65
 | 
						|
      Anchors = [akTop, akRight]
 | 
						|
      AutoSize = True
 | 
						|
      BorderSpacing.Right = 6
 | 
						|
      Caption = 'btnSave'
 | 
						|
      ModalResult = 6
 | 
						|
      OnClick = btnSaveClick
 | 
						|
      TabOrder = 1
 | 
						|
    end
 | 
						|
    object btmCancel: TBitBtn
 | 
						|
      AnchorSideTop.Control = btnSave
 | 
						|
      AnchorSideTop.Side = asrCenter
 | 
						|
      AnchorSideRight.Control = btnSave
 | 
						|
      Left = 123
 | 
						|
      Height = 33
 | 
						|
      Top = 7
 | 
						|
      Width = 90
 | 
						|
      Anchors = [akTop, akRight]
 | 
						|
      AutoSize = True
 | 
						|
      BorderSpacing.Right = 6
 | 
						|
      Cancel = True
 | 
						|
      DefaultCaption = True
 | 
						|
      Kind = bkCancel
 | 
						|
      ModalResult = 2
 | 
						|
      TabOrder = 2
 | 
						|
    end
 | 
						|
    object btnHelp: TBitBtn
 | 
						|
      AnchorSideLeft.Control = ButtonPanel
 | 
						|
      AnchorSideTop.Control = ButtonPanel
 | 
						|
      AnchorSideTop.Side = asrCenter
 | 
						|
      Left = 7
 | 
						|
      Height = 30
 | 
						|
      Top = 8
 | 
						|
      Width = 75
 | 
						|
      BorderSpacing.Around = 6
 | 
						|
      DefaultCaption = True
 | 
						|
      Kind = bkHelp
 | 
						|
      OnClick = HelpButtonClick
 | 
						|
      TabOrder = 3
 | 
						|
    end
 | 
						|
  end
 | 
						|
end
 |