paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 18:39:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Less hints

Browse Source 
git-svn-id: trunk@54096 -
This commit is contained in:
wp 2017-02-05 11:39:37 +00:00
parent a8d39ca0bf
commit d358020cf0
2 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/tachart/tadrawerfpvectorial.pas
View File

@ -331,10 +331,7 @@ begin
end; end;
procedure TFPVectorialDrawer.SetFont(AFont: TFPCustomFont); procedure TFPVectorialDrawer.SetFont(AFont: TFPCustomFont);
var
angle: Integer;
begin begin
angle := AFont.Orientation;
FFont.Name := AFont.Name; FFont.Name := AFont.Name;
FFont.Size := IfThen(AFont.Size = 0, 10, AFont.Size); FFont.Size := IfThen(AFont.Size = 0, 10, AFont.Size);
FFont.Color := AFont.FPColor; FFont.Color := AFont.FPColor;

3
components/tachart/tadrawerwmf.pas
View File

@ -346,7 +346,6 @@ procedure TMetafile.CopyToClipboard;
// http://www.olivierlanglois.net/metafile-clipboard.html // http://www.olivierlanglois.net/metafile-clipboard.html
var var
Format: Word; Format: Word;
Data: THandle;
begin begin
if FImageHandle = 0 then exit; if FImageHandle = 0 then exit;
@ -354,7 +353,7 @@ begin
try try
EmptyClipboard; EmptyClipboard;
Format := CF_ENHMETAFILE; Format := CF_ENHMETAFILE;
SetClipboardData(Format, FImageHandle); //Data); SetClipboardData(Format, FImageHandle);
finally finally
CloseClipboard; CloseClipboard;
end; end;