diff --git a/2.10/Source/Fullscreen.pas b/2.10/Source/Fullscreen.pas index d9e6637..3b75d41 100644 --- a/2.10/Source/Fullscreen.pas +++ b/2.10/Source/Fullscreen.pas @@ -140,7 +140,7 @@ end; procedure TFullscreenForm.FormShow(Sender: TObject); begin - MainForm.mnuShowFull.enabled := true; + MainForm.mnuFullScreen.enabled := true; HideTaskbar; if calculate then DrawFlame; diff --git a/2.10/Source/Main.dfm b/2.10/Source/Main.dfm index 55d1d06..bfa5c6a 100644 --- a/2.10/Source/Main.dfm +++ b/2.10/Source/Main.dfm @@ -27,7 +27,7 @@ object MainForm: TMainForm Left = 160 Top = 28 Width = 4 - Height = 534 + Height = 540 end object ToolBar: TToolBar Left = 0 @@ -284,7 +284,7 @@ object MainForm: TMainForm Left = 0 Top = 28 Width = 160 - Height = 534 + Height = 540 Align = alLeft Columns = < item @@ -303,7 +303,7 @@ object MainForm: TMainForm Left = 164 Top = 28 Width = 433 - Height = 534 + Height = 540 Align = alClient BevelInner = bvLowered BevelOuter = bvNone @@ -314,7 +314,7 @@ object MainForm: TMainForm Left = 1 Top = 1 Width = 431 - Height = 532 + Height = 538 Align = alClient AutoSize = True PopupMenu = DisplayPopup @@ -327,7 +327,7 @@ object MainForm: TMainForm end object StatusBar: TStatusBar Left = 0 - Top = 562 + Top = 568 Width = 597 Height = 19 Panels = < @@ -2847,30 +2847,6 @@ object MainForm: TMainForm OnClick = mnuAboutClick end end - object mnuHiddenGraph: TMenuItem - Caption = 'Graph' - Visible = False - object mnuAutoZoom: TMenuItem - Caption = 'Auto Zoom' - ShortCut = 16449 - OnClick = mnuAutoZoomClick - end - object mnuDelete: TMenuItem - Caption = 'Delete' - ShortCut = 8238 - end - object mnuRefresh: TMenuItem - Caption = 'Refresh' - ShortCut = 16454 - OnClick = mnuRefreshClick - end - object mnuShowFull: TMenuItem - Caption = 'Show Full' - Enabled = False - ShortCut = 49222 - OnClick = mnuShowFullClick - end - end end object OpenDialog: TOpenDialog Filter =