paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 05:39:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE/Options: Removing code duplication in method TEditorColorOptionsFrame.ColorPreviewMouseUp

Browse Source
This commit is contained in:
n7800 2025-04-16 03:31:32 +05:00
parent e8bebc065b
commit d90342a070
1 changed files with 4 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ide/frames/editor_color_options.pas
View File

@ -538,17 +538,10 @@ begin
ColorPreview.GetHighlighterAttriAtRowCol(XY, Token, Attri); ColorPreview.GetHighlighterAttriAtRowCol(XY, Token, Attri);
if Attri = nil then if Attri = nil then
Attri := FCurrentHighlighter.WhitespaceAttribute; Attri := FCurrentHighlighter.WhitespaceAttribute;
if Attri <> nil then begin
NewNode := ColorElementTree.Items.GetFirstNode; if Attri <> nil then
while Assigned(NewNode) do begin begin
if (NewNode.Data <> nil) SelectNamedColor(Attri.StoredName);
and (TColorSchemeAttribute(NewNode.Data).StoredName = Attri.StoredName) then
break;
NewNode := NewNode.GetNext;
end;
end;
if NewNode <> nil then begin
NewNode.Selected := True;
FindCurHighlightElement; FindCurHighlightElement;
end; end;
end; end;