lazarus/components/lazsvnpkg/svnlogform.lfm

object SVNLogFrm: TSVNLogFrm
  Left = 289
  Height = 566
  Top = 135
  Width = 726
  Caption = 'SVNLogFrm'
  ClientHeight = 566
  ClientWidth = 726
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  Position = poScreenCenter
  LCLVersion = '1.1'
  object Label1: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = SVNLogLimit
    AnchorSideBottom.Control = SVNLogLimit
    AnchorSideBottom.Side = asrBottom
    Left = 6
    Height = 17
    Top = 498
    Width = 133
    Anchors = [akLeft, akBottom]
    BorderSpacing.Left = 6
    BorderSpacing.Right = 6
    Caption = 'Show last X commits'
    ParentColor = False
  end
  object LogListView: TListView
    Left = 6
    Height = 200
    Top = 6
    Width = 714
    Align = alTop
    BorderSpacing.Left = 6
    BorderSpacing.Top = 6
    BorderSpacing.Right = 6
    Columns = <    
      item
      end    
      item
      end    
      item
      end    
      item
        Width = 546
      end>
    RowSelect = True
    SortType = stText
    TabOrder = 0
    ViewStyle = vsReport
    OnSelectItem = LogListViewSelectItem
  end
  object SVNLogMsgMemo: TMemo
    Left = 6
    Height = 60
    Top = 210
    Width = 714
    Align = alTop
    BorderSpacing.Left = 6
    BorderSpacing.Right = 6
    ParentFont = False
    ReadOnly = True
    TabOrder = 1
  end
  object SVNActionsListView: TListView
    AnchorSideBottom.Control = RefreshButton
    Left = 6
    Height = 208
    Top = 274
    Width = 714
    Align = alTop
    Anchors = [akTop, akLeft, akRight, akBottom]
    BorderSpacing.Left = 6
    BorderSpacing.Right = 6
    BorderSpacing.Bottom = 6
    Columns = <    
      item
      end    
      item
      end    
      item
      end    
      item
        Width = 546
      end>
    PopupMenu = SVNActionsPopupMenu
    RowSelect = True
    SortType = stText
    TabOrder = 2
    ViewStyle = vsReport
  end
  object ButtonPanel: TButtonPanel
    Left = 6
    Height = 39
    Top = 521
    Width = 714
    OKButton.Name = 'OKButton'
    OKButton.DefaultCaption = True
    OKButton.OnClick = OKButtonClick
    HelpButton.Name = 'HelpButton'
    HelpButton.DefaultCaption = True
    HelpButton.Enabled = False
    CloseButton.Name = 'CloseButton'
    CloseButton.DefaultCaption = True
    CloseButton.Enabled = False
    CancelButton.Name = 'CancelButton'
    CancelButton.DefaultCaption = True
    CancelButton.Enabled = False
    TabOrder = 3
    ShowButtons = [pbOK]
  end
  object Splitter1: TSplitter
    Cursor = crVSplit
    Left = 0
    Height = 4
    Top = 270
    Width = 726
    Align = alTop
    ResizeAnchor = akTop
  end
  object Splitter2: TSplitter
    Cursor = crVSplit
    Left = 0
    Height = 4
    Top = 206
    Width = 726
    Align = alTop
    ResizeAnchor = akTop
  end
  object SVNLogLimit: TSpinEdit
    AnchorSideLeft.Control = Label1
    AnchorSideLeft.Side = asrBottom
    AnchorSideBottom.Control = ButtonPanel
    Left = 145
    Height = 25
    Top = 490
    Width = 94
    Anchors = [akLeft, akBottom]
    BorderSpacing.Around = 6
    MaxValue = 100000
    TabOrder = 6
    Value = 100
  end
  object RefreshButton: TButton
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = ButtonPanel
    Left = 659
    Height = 27
    Top = 488
    Width = 61
    Anchors = [akRight, akBottom]
    AutoSize = True
    BorderSpacing.Around = 6
    Caption = 'Refresh'
    OnClick = RefreshButtonClick
    TabOrder = 7
  end
  object SVNActionsPopupMenu: TPopupMenu
    Images = ImageList
    OnPopup = SVNActionsPopupMenuPopup
    left = 37
    top = 369
    object mnuShowDiff: TMenuItem
      Caption = 'diff'
      ImageIndex = 0
      OnClick = mnuShowDiffClick
    end
    object mnuOpenCurent: TMenuItem
      Caption = 'open'
      OnClick = mnuOpenCurentClick
    end
    object mnuOpenRevision: TMenuItem
      Caption = 'open rev'
      Enabled = False
      OnClick = mnuOpenRevisionClick
    end
    object mnuOpenPrevRevision: TMenuItem
      Caption = 'open rev-1'
      Enabled = False
      OnClick = mnuOpenPrevRevisionClick
    end
  end
  object ImageList: TImageList
    left = 75
    top = 369
  end
end