浏览代码

Clarify UpdateBevel1Visibility.

Martijn Laan 1 年之前
父节点
当前提交
d19b426ddb
共有 1 个文件被更改,包括 3 次插入3 次删除
  1. 3 3
      Projects/Src/IDE.MainForm.pas

+ 3 - 3
Projects/Src/IDE.MainForm.pas

@@ -7556,9 +7556,9 @@ end;
 
 
 procedure TMainForm.UpdateBevel1Visibility;
 procedure TMainForm.UpdateBevel1Visibility;
 begin
 begin
-  { Bevel1 is the line between the toolbar and the memo when there's nothing in
-    between and they have the same color }
-  Bevel1.Visible := (FTheme.Colors[tcMarginBack] = ToolBarPanel.Color) and
+  { Bevel1 is the line between the toolbar and memos when there's nothing in
+    between and the color of the toolbar and memo margins is the same }
+  Bevel1.Visible := (ToolBarPanel.Color = FTheme.Colors[tcMarginBack]) and
                     not UpdatePanel.Visible and not MemosTabSet.Visible;
                     not UpdatePanel.Visible and not MemosTabSet.Visible;
 end;
 end;