paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 22:58:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE/Options: Fix some suspicious copy-paste and probably a debugging leftover

Browse Source 
(cherry picked from commit 8986b1b0b9)
This commit is contained in:
Dmitry D. Chernov 2024-02-01 23:47:04 +10:00 committed by Martin
parent ce32bdf1c8
commit 84b7bb2ca4
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/syncolorattribeditor.pas
View File

@ -592,7 +592,6 @@ begin
ForeAlphaLabel.Visible := ForeAlphaSpin.Visible;
if FCurHighlightElement.ForeAlpha = 0 then begin
ForeAlphaSpin.Value := 256; // Off
Application.ProcessMessages;
ForeAlphaSpin.Caption := dlgEdOff;
end
else
@ -628,7 +627,7 @@ begin
else
BackAlphaSpin.Value := FCurHighlightElement.BackAlpha;
BackPriorSpin.Visible := ForegroundColorBox.Visible and FShowPrior and
BackPriorSpin.Visible := BackGroundColorBox.Visible and FShowPrior and
(hafPrior in FCurHighlightElement.Features);
BackPriorLabel.Visible := BackPriorSpin.Visible;
BackPriorSpin.Value := FCurHighlightElement.BackPriority;
@ -660,8 +659,8 @@ begin
else
FrameAlphaSpin.Value := FCurHighlightElement.FrameAlpha;
FramePriorSpin.Visible := ForegroundColorBox.Visible and FShowPrior and
(hafPrior in FCurHighlightElement.Features);
FramePriorSpin.Visible := FrameColorBox.Visible and FShowPrior and
(hafPrior in FCurHighlightElement.Features);
FramePriorLabel.Visible := FramePriorSpin.Visible;
FramePriorSpin.Value := FCurHighlightElement.FramePriority;
@ -724,7 +723,7 @@ begin
TextItalicRadioOff.Checked := True;
TextUnderlineCheckBox.Checked := (fsUnderline in FCurHighlightElement.Style) or
(fsUnderline in FCurHighlightElement.StyleMask);
(fsUnderline in FCurHighlightElement.StyleMask);
TextUnderlineRadioPanel.Enabled := TextUnderlineCheckBox.Checked;
if not(fsUnderline in FCurHighlightElement.StyleMask) then