mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-12-05 21:18:06 +01:00
62 lines
1.3 KiB
Plaintext
62 lines
1.3 KiB
Plaintext
object SourceNotebook: TSourceNotebook
|
|
Left = 533
|
|
Height = 300
|
|
Top = 374
|
|
Width = 400
|
|
AllowDropFiles = True
|
|
Caption = 'SourceNotebook'
|
|
ClientHeight = 300
|
|
ClientWidth = 400
|
|
LCLVersion = '4.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 CopyFullPathMenuItem: TMenuItem
|
|
Caption = 'Copy full path'
|
|
OnClick = CopyFullPathMenuItemClick
|
|
end
|
|
object OpenFolderMenuItem: TMenuItem
|
|
Caption = 'Open folder ...'
|
|
OnClick = OpenFolderMenuItemClick
|
|
end
|
|
end
|
|
end
|