1object SourceNotebook: TSourceNotebook 2 Left = 533 3 Height = 300 4 Top = 374 5 Width = 400 6 AllowDropFiles = True 7 Caption = 'SourceNotebook' 8 ClientHeight = 300 9 ClientWidth = 400 10 OnMouseUp = FormMouseUp 11 LCLVersion = '2.1.0.0' 12 object StatusBar: TStatusBar 13 Left = 0 14 Height = 23 15 Top = 277 16 Width = 400 17 Panels = < 18 item 19 Width = 100 20 end 21 item 22 Style = psOwnerDraw 23 Width = 0 24 end 25 item 26 Width = 150 27 end 28 item 29 Width = 50 30 end 31 item 32 Text = 'INS' 33 Width = 50 34 end> 35 SimpleText = 'This is a test' 36 SimplePanel = False 37 OnClick = StatusBarClick 38 OnContextPopup = StatusBarContextPopup 39 OnDblClick = StatusBarDblClick 40 OnDrawPanel = StatusBarDrawPanel 41 end 42 object StatusPopUpMenu: TPopupMenu 43 left = 48 44 top = 36 45 object GoToLineMenuItem: TMenuItem 46 Caption = 'Goto line ...' 47 OnClick = GoToLineMenuItemClick 48 end 49 object OpenFolderMenuItem: TMenuItem 50 Caption = 'Open folder ...' 51 OnClick = OpenFolderMenuItemClick 52 end 53 end 54end 55