refac

Alexey-T · Jul 5, 2023 · a33c442 · a33c442
1 parent 3804a70
commit a33c442
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/atsynedit/atsynedit.pas b/atsynedit/atsynedit.pas
@@ -4460,6 +4460,7 @@ procedure TATSynEdit.DoPaintMinimapSelToBGRABitmap;
   C: TBGRABitmap;
   R: TRect;
   rColor: TBGRAPixel;
+  nAlphaValue: integer;
 begin
   C:= FMinimapBmp;
   if FMinimapShowSelAlways or FCursorOnMinimap then
@@ -4468,10 +4469,11 @@ procedure TATSynEdit.DoPaintMinimapSelToBGRABitmap;
     OffsetRect(R, -FRectMinimap.Left, -FRectMinimap.Top);
 
     // https://forum.lazarus.freepascal.org/index.php/topic,51383.msg377195.html#msg377195
+    nAlphaValue:= FMinimapSelColorChange*255 div 100;
     if _IsColorDark(FColorBG) then
-      rColor.FromRGB(255, 255, 255, FMinimapSelColorChange*255 div 100)
+      rColor.FromRGB(255, 255, 255, nAlphaValue)
     else
-      rColor.FromRGB(0, 0, 0, FMinimapSelColorChange*255 div 100);
+      rColor.FromRGB(0, 0, 0, nAlphaValue);
 
     C.FillRect(R, rColor, dmDrawWithTransparency);