paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-29 09:43:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Set AntialiasingMode in the beginning of TArrow.Paint. Fix a bug made in previous commit.

Browse Source 
git-svn-id: trunk@41236 -
This commit is contained in:
juha 2013-05-17 14:25:29 +00:00
parent e3b6cb9315
commit 1a09feaa30
2 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/arrow.pp
View File

@ -208,6 +208,7 @@ const
end; end;
begin begin
Canvas.AntialiasingMode := AntiAliasingMode;
// Paint background // Paint background
Canvas.Brush.Color := Color; Canvas.Brush.Color := Color;
Canvas.FillRect(ClientRect); Canvas.FillRect(ClientRect);

7
lcl/industrialbase.pp
View File

@ -17,7 +17,6 @@ type
procedure SetAntiAliasingMode(AValue: TAntialiasingMode); procedure SetAntiAliasingMode(AValue: TAntialiasingMode);
protected protected
procedure GraphicChanged; procedure GraphicChanged;
procedure Paint; override;
public public
constructor Create(aOwner: TComponent); override; constructor Create(aOwner: TComponent); override;
published published
@ -42,12 +41,6 @@ begin
then Invalidate; then Invalidate;
end; end;
procedure TIndustrialBase.Paint;
begin
Canvas.AntialiasingMode := FAntiAliasingMode;
inherited Paint;
end;
procedure TIndustrialBase.SetAntiAliasingMode(AValue: TAntialiasingMode); procedure TIndustrialBase.SetAntiAliasingMode(AValue: TAntialiasingMode);
begin begin
if FAntiAliasingMode=AValue then Exit; if FAntiAliasingMode=AValue then Exit;