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
|
object SourceNotebook: TSourceNotebook
Left = 533
Height = 300
Top = 374
Width = 400
AllowDropFiles = True
Caption = 'SourceNotebook'
ClientHeight = 300
ClientWidth = 400
LCLVersion = '3.99.0.0'
OnMouseUp = FormMouseUp
OnResize = FormResize
object StatusBar: TStatusBar
Left = 0
Height = 23
Top = 277
Width = 400
Panels = <
item
Width = 100
end
item
Style = psOwnerDraw
Width = 0
end
item
Width = 150
end
item
Width = 50
end
item
Width = 0
end
item
Width = 50
end>
SimpleText = 'This is a test'
SimplePanel = False
OnClick = StatusBarClick
OnContextPopup = StatusBarContextPopup
OnDblClick = StatusBarDblClick
OnDrawPanel = StatusBarDrawPanel
end
object StatusPopUpMenu: TPopupMenu
Left = 48
Top = 36
object GoToLineMenuItem: TMenuItem
Caption = 'Goto line ...'
OnClick = GoToLineMenuItemClick
end
object OpenFolderMenuItem: TMenuItem
Caption = 'Open folder ...'
OnClick = OpenFolderMenuItemClick
end
end
end
|
