paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 06:18:20 +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;
procedure TFPVectorialDrawer.SetFont(AFont: TFPCustomFont);
var
angle: Integer;
begin
angle := AFont.Orientation;
FFont.Name := AFont.Name;
FFont.Size := IfThen(AFont.Size = 0, 10, AFont.Size);
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
var
Format: Word;
Data: THandle;
begin
if FImageHandle = 0 then exit;
@ -354,7 +353,7 @@ begin
try
EmptyClipboard;
Format := CF_ENHMETAFILE;
SetClipboardData(Format, FImageHandle); //Data);
SetClipboardData(Format, FImageHandle);
finally
CloseClipboard;
end;