1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
|
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
|
