paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 02:40:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Use FPColorToBGRA function in bgra drawer

Browse Source 
git-svn-id: trunk@30202 -
This commit is contained in:
ask 2011-04-05 18:58:43 +00:00
parent a3dc79e297
commit 80cc108bec
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/tachart/tadrawerbgra.pas
View File

@ -258,8 +258,7 @@ end;
procedure TBGRABitmapDrawer.SetBrush(ABrush: TFPCustomBrush);
begin
with ABrush.FPColor do
FBrushColor := BGRA(red shr 8, green shr 8, blue shr 8, alpha shr 8);
FBrushColor := FPColorToBGRA(ABrush.FPColor);
FBrushStyle := ABrush.Style;
end;
@ -281,8 +280,7 @@ begin
FCanvas.FontName := AFont.Name;
FCanvas.FontHeight := AFont.Size * 96 div 72;
FFontOrientation := FGetFontOrientationFunc(AFont);
with AFont.FPColor do
FFontColor := BGRA(red shr 8, green shr 8, blue shr 8, alpha shr 8);
FFontColor := FPColorToBGRA(AFont.FPColor);
// TODO: FontStyle
end;
@ -291,8 +289,7 @@ begin
FCanvas.PenStyle := APen.Style;
FPenWidth := APen.Width;
// TODO: JoinStyle
with APen.FPColor do
FPenColor := BGRA(red shr 8, green shr 8, blue shr 8, alpha shr 8);
FPenColor := FPColorToBGRA(APen.FPColor);
end;
procedure TBGRABitmapDrawer.SetPenParams(