mirror of
				https://gitlab.com/freepascal.org/lazarus/lazarus.git
				synced 2025-11-04 08:19:53 +01:00 
			
		
		
		
	
		
			
				
	
	
		
			111 lines
		
	
	
		
			2.7 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
			
		
		
	
	
			111 lines
		
	
	
		
			2.7 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
object ViewUnitDialog: TViewUnitDialog
 | 
						|
  Left = 330
 | 
						|
  Height = 386
 | 
						|
  Top = 280
 | 
						|
  Width = 378
 | 
						|
  HorzScrollBar.Page = 377
 | 
						|
  HorzScrollBar.Range = 112
 | 
						|
  VertScrollBar.Page = 300
 | 
						|
  VertScrollBar.Range = 163
 | 
						|
  ActiveControl = FilterEdit
 | 
						|
  BorderIcons = [biSystemMenu]
 | 
						|
  Caption = 'View Project Units'
 | 
						|
  ClientHeight = 386
 | 
						|
  ClientWidth = 378
 | 
						|
  Position = poScreenCenter
 | 
						|
  LCLVersion = '0.9.31'
 | 
						|
  object Listbox: TListBox
 | 
						|
    Left = 6
 | 
						|
    Height = 307
 | 
						|
    Top = 31
 | 
						|
    Width = 366
 | 
						|
    Align = alClient
 | 
						|
    BorderSpacing.Around = 6
 | 
						|
    ClickOnSelChange = False
 | 
						|
    ItemHeight = 0
 | 
						|
    OnDblClick = OKButtonClick
 | 
						|
    OnDrawItem = ListboxDrawItem
 | 
						|
    OnKeyDown = ListboxKeyDown
 | 
						|
    PopupMenu = popListBox
 | 
						|
    Style = lbOwnerDrawFixed
 | 
						|
    TabOrder = 0
 | 
						|
  end
 | 
						|
  object ButtonPanel: TButtonPanel
 | 
						|
    Left = 6
 | 
						|
    Height = 36
 | 
						|
    Top = 344
 | 
						|
    Width = 366
 | 
						|
    OKButton.Name = 'OKButton'
 | 
						|
    OKButton.DefaultCaption = True
 | 
						|
    OKButton.OnClick = OKButtonClick
 | 
						|
    HelpButton.Name = 'HelpButton'
 | 
						|
    HelpButton.DefaultCaption = True
 | 
						|
    HelpButton.OnClick = HelpButtonClick
 | 
						|
    CloseButton.Name = 'CloseButton'
 | 
						|
    CloseButton.DefaultCaption = True
 | 
						|
    CloseButton.Enabled = False
 | 
						|
    CancelButton.Name = 'CancelButton'
 | 
						|
    CancelButton.DefaultCaption = True
 | 
						|
    CancelButton.OnClick = CancelButtonClick
 | 
						|
    TabOrder = 1
 | 
						|
    ShowButtons = [pbOK, pbCancel, pbHelp]
 | 
						|
  end
 | 
						|
  object BtnPanel: TPanel
 | 
						|
    Left = 0
 | 
						|
    Height = 25
 | 
						|
    Top = 0
 | 
						|
    Width = 378
 | 
						|
    Align = alTop
 | 
						|
    AutoSize = True
 | 
						|
    ClientHeight = 25
 | 
						|
    ClientWidth = 378
 | 
						|
    TabOrder = 2
 | 
						|
    object SortAlphabeticallySpeedButton: TSpeedButton
 | 
						|
      Left = 1
 | 
						|
      Height = 23
 | 
						|
      Top = 1
 | 
						|
      Width = 15
 | 
						|
      Align = alLeft
 | 
						|
      AllowAllUp = True
 | 
						|
      AutoSize = True
 | 
						|
      Constraints.MinHeight = 15
 | 
						|
      Constraints.MinWidth = 15
 | 
						|
      GroupIndex = 2
 | 
						|
      NumGlyphs = 0
 | 
						|
      OnClick = SortAlphabeticallySpeedButtonClick
 | 
						|
      ShowHint = True
 | 
						|
      ParentShowHint = False
 | 
						|
    end
 | 
						|
    object FilterEdit: TListFilterEdit
 | 
						|
      AnchorSideLeft.Control = SortAlphabeticallySpeedButton
 | 
						|
      AnchorSideLeft.Side = asrBottom
 | 
						|
      AnchorSideTop.Control = SortAlphabeticallySpeedButton
 | 
						|
      AnchorSideTop.Side = asrCenter
 | 
						|
      Left = 22
 | 
						|
      Height = 20
 | 
						|
      Top = 2
 | 
						|
      Width = 328
 | 
						|
      ButtonWidth = 23
 | 
						|
      NumGlyphs = 0
 | 
						|
      Anchors = [akTop, akLeft, akRight]
 | 
						|
      BorderSpacing.Left = 6
 | 
						|
      BorderSpacing.Top = 6
 | 
						|
      BorderSpacing.Bottom = 6
 | 
						|
      Font.Color = clBtnShadow
 | 
						|
      MaxLength = 0
 | 
						|
      ParentFont = False
 | 
						|
      TabOrder = 0
 | 
						|
      FilteredListbox = Listbox
 | 
						|
    end
 | 
						|
  end
 | 
						|
  object popListBox: TPopupMenu
 | 
						|
    left = 144
 | 
						|
    top = 112
 | 
						|
    object mniMultiSelect: TMenuItem
 | 
						|
      AutoCheck = True
 | 
						|
      Caption = 'Multi Select'
 | 
						|
      OnClick = MultiselectCheckBoxClick
 | 
						|
    end
 | 
						|
  end
 | 
						|
end
 |