paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 11:18:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix border color of rectangular series icons in ChartImageList.

Browse Source 
(cherry picked from commit 9c392f31d0)
This commit is contained in:
wp_xyz 2023-07-11 23:32:12 +02:00
parent 182d9f6981
commit 161312c68d
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/tachart/tachartimagelist.pas
View File

@ -26,7 +26,7 @@ unit TAChartImageList;
interface
uses
Classes, Graphics, Controls,
LCLIntf, Classes, Graphics, Controls,
TAChartUtils, TACustomSeries, TAGraph;
type
@ -154,7 +154,7 @@ var
s: TCustomChartSeries;
id: IChartDrawer;
li: TLegendItem;
i, n: Integer;
i, n, idx: Integer;
begin
ClearAllSeries;
if FChart = nil then exit;
@ -195,9 +195,12 @@ begin
bmp[i].Transparent := true;
bmp[i].TransparentMode := tmAuto;
bmp[i].Canvas.FillRect(r);
InflateRect(r, -1, -1);
li.Draw(id, r);
end;
AddMultipleResolutions(bmp);
idx := AddMasked(TBitmap(bmp[0]), bmp[0].TransparentColor);
for i := 1 to n-1 do
ReplaceMasked(idx, bmp[i], bmp[i].TransparentColor, false);
inc(FSeriesCount);
end;
if Assigned(FOnPopulate) then FOnPopulate(self);