Переглянути джерело

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;
 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;
 end;