pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

industrial: Fix compilation with Laz versions before 3.0

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9028 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-11-15 10:18:03 +00:00
parent 51c5415881
commit 7414f68f5b
1 changed files with 12 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
components/industrialstuff/source/switches.pas
View File

@ -18,7 +18,7 @@ unit Switches;
interface interface
uses uses
LCLIntf, LCLType, LMessages, LCLIntf, LCLType, LMessages, LCLVersion,
Graphics, GraphType, Classes, SysUtils, Types, Controls, ExtCtrls, ImgList; Graphics, GraphType, Classes, SysUtils, Types, Controls, ExtCtrls, ImgList;
type type
@ -244,6 +244,17 @@ begin
end; end;
end; end;
{$IF LCL_FullVersion < 3000000}
function RotatePoint(const APoint: TPoint; AAngle: Double): TPoint;
var
sa, ca: Double;
begin
SinCos(AAngle, sa, ca);
Result.X := Round( ca * APoint.X + sa * APoint.Y);
Result.Y := Round(-sa * APoint.X + ca * APoint.Y);
end;
{$ENDIF}
procedure RotateImage(Img: TFPCustomImage; Angle: Double); procedure RotateImage(Img: TFPCustomImage; Angle: Double);
var var
Buffer: TFPCustomImage; Buffer: TFPCustomImage;