refac

Alexey-T · Oct 25, 2022 · 97c086c · 97c086c
1 parent 570fa24
commit 97c086c
Showing 1 changed file with 3 additions and 6 deletions.
diff --git a/app/formcolorsetup.pas b/app/formcolorsetup.pas
@@ -272,7 +272,6 @@ procedure TfmColorSetup.ListStylesDrawItem(Control: TWinControl; AIndex: Integer
 var
   C: TCanvas;
   st: TecSyntaxFormat;
-  S: string;
   NWidth: integer;
 begin
   if (AIndex<0) or (AIndex>=ListStyles.Items.Count) then exit;
@@ -289,9 +288,8 @@ procedure TfmColorSetup.ListStylesDrawItem(Control: TWinControl; AIndex: Integer
   if st.BgColor=clNone then
     C.Brush.Color:= FColorBg;
 
-  S:= cExample;
-  NWidth:= C.TextWidth(S);
-  C.TextOut(ARect.Right-NWidth, ARect.Top, S);
+  NWidth:= C.TextWidth(cExample);
+  C.TextOut(ARect.Right-NWidth, ARect.Top, cExample);
 
   if st.BorderColorBottom<>clNone then
   begin
@@ -307,10 +305,9 @@ procedure TfmColorSetup.ListStylesDrawItem(Control: TWinControl; AIndex: Integer
   else
     C.Brush.Color:= clWindow;
 
-  S:= ListStyles.Items[AIndex];
   C.Font.Color:= clWindowText;
   C.Font.Style:= [];
-  C.TextOut(ARect.Left+cIndent, ARect.Top, S);
+  C.TextOut(ARect.Left+cIndent, ARect.Top, ListStyles.Items[AIndex]);
 end;
 
 procedure TfmColorSetup.OKButtonClick(Sender: TObject);