lazarus/components/lazsvnpkg/svnlogform.lfm
darius 7b8ef5e908 added popup-menu icon
git-svn-id: trunk@17604 -
2008-11-26 18:45:55 +00:00

226 lines
5.1 KiB
Plaintext

object SVNLogFrm: TSVNLogFrm
Left = 290
Height = 566
Top = 175
Width = 726
HelpContext = 0
ActiveControl = LogListView
Caption = 'SVNLogFrm'
ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
ClientHeight = 566
ClientWidth = 726
Font.Height = 0
Font.Style = []
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '0.9.27'
object Label1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = SVNLogLimit
Left = 6
Height = 18
Top = 489
Width = 134
HelpContext = 0
BorderSpacing.Left = 6
BorderSpacing.Top = 0
BorderSpacing.Right = 6
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'Show last X commits'
ParentColor = False
end
object LogListView: TListView
Left = 6
Height = 159
Top = 6
Width = 714
HelpContext = 0
Align = alTop
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Columns = <
item
AutoSize = False
end
item
AutoSize = False
end
item
AutoSize = False
end
item
AutoSize = False
Width = 546
end>
RowSelect = True
SortColumn = 0
SortType = stNone
TabOrder = 0
ViewStyle = vsReport
OnSelectItem = LogListViewSelectItem
end
object SVNLogMsgMemo: TMemo
Left = 6
Height = 151
Top = 170
Width = 714
HelpContext = 0
Align = alTop
BorderSpacing.Left = 6
BorderSpacing.Top = 0
BorderSpacing.Right = 6
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Font.Height = 0
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 1
end
object SVNActionsListView: TListView
AnchorSideBottom.Control = RefreshButton
Left = 6
Height = 155
Top = 326
Width = 714
HelpContext = 0
Align = alTop
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Top = 0
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Columns = <
item
AutoSize = False
end
item
AutoSize = False
end
item
AutoSize = False
end
item
AutoSize = False
Width = 546
end>
PopupMenu = SVNActionsPopupMenu
RowSelect = True
SortColumn = 0
SortType = stNone
TabOrder = 2
ViewStyle = vsReport
end
object ButtonPanel: TButtonPanel
Left = 6
Height = 48
Top = 518
Width = 714
HelpContext = 0
Align = alBottom
AutoSize = True
ButtonOrder = boDefault
TabOrder = 3
DefaultButton = pbOK
ShowButtons = [pbOK]
end
object Splitter1: TSplitter
Cursor = crVSplit
Left = 0
Height = 5
Top = 165
Width = 726
HelpContext = 0
Align = alTop
ResizeAnchor = akTop
end
object Splitter2: TSplitter
Cursor = crVSplit
Left = 0
Height = 5
Top = 321
Width = 726
HelpContext = 0
Align = alTop
ResizeAnchor = akTop
end
object SVNLogLimit: TSpinEdit
AnchorSideLeft.Control = Label1
AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = ButtonPanel
Left = 146
Height = 23
Top = 489
Width = 94
HelpContext = 0
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 6
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
MaxValue = 100000
TabOrder = 6
Value = 100
end
object RefreshButton: TButton
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ButtonPanel
Left = 645
Height = 25
Top = 487
Width = 75
HelpContext = 0
Anchors = [akRight, akBottom]
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 6
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'Refresh'
OnClick = RefreshButtonClick
TabOrder = 7
end
object SVNActionsPopupMenu: TPopupMenu
Images = ImageList
left = 37
top = 369
object mnuShowDiff: TMenuItem
Caption = 'New Item1'
ImageIndex = 0
RightJustify = False
ShowAlwaysCheckable = False
OnClick = mnuShowDiffClick
end
end
object ImageList: TImageList
Masked = False
left = 75
top = 369
end
end