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

TAChart, TurboPower_IPro: Fix "OffsetRect deprecated" message.

Browse Source
This commit is contained in:
wp_xyz 2023-06-16 01:50:13 +02:00
parent 87fe030800
commit 50a68c5dc8
6 changed files with 18 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpvectorial/fpvectorial2canvas.pas
View File

@ -78,7 +78,7 @@ var
i: Integer; i: Integer;
j, n: Integer; j, n: Integer;
x1, y1, x2, y2: Integer; x1, y1, x2, y2: Integer;
pts: TPointsArray; pts: TPointsArray = nil;
ACanvas: TCanvas absolute ARenderInfo.Canvas; ACanvas: TCanvas absolute ARenderInfo.Canvas;
coordX, coordY: Integer; coordX, coordY: Integer;
curSegment: TPathSegment; curSegment: TPathSegment;

3
components/tachart/tachartlazaruspkg.lpk
View File

@ -19,6 +19,9 @@
</Debugging> </Debugging>
</Linking> </Linking>
<Other> <Other>
<CompilerMessages>
<IgnoredMessages idx6058="True"/>
</CompilerMessages>
<CustomOptions Value="-dCHECK_VALID_SCALING"/> <CustomOptions Value="-dCHECK_VALID_SCALING"/>
<OtherDefines Count="1"> <OtherDefines Count="1">
<Define0 Value="CHECK_VALID_SCALING"/> <Define0 Value="CHECK_VALID_SCALING"/>

4
components/tachart/tatools.pas
View File

@ -17,10 +17,12 @@ unit TATools;
interface interface
uses uses
// LCL
LCLIntf, LCLType, // must be before Types
// RTL, FCL
Classes, SysUtils, Types, Math, FPCanvas, Classes, SysUtils, Types, Math, FPCanvas,
// LCL // LCL
Controls, CustomTimer, {GraphMath,} Forms, LCLPlatformDef, InterfaceBase, Controls, CustomTimer, {GraphMath,} Forms, LCLPlatformDef, InterfaceBase,
LCLType, LCLIntf,
// TAChart // TAChart
TAChartUtils, TADrawUtils, TAChartAxis, TALegend, TACustomSeries, TAGraph, TAChartUtils, TADrawUtils, TAChartAxis, TALegend, TACustomSeries, TAGraph,
TATypes, TATextElements; TATypes, TATextElements;

5
components/turbopower_ipro/iphtml.pas
View File

@ -50,10 +50,11 @@ unit IpHtml;
interface interface
uses uses
//MemCheck, // LCL
LCLType, LCLIntf,
Types, contnrs, SysUtils, Classes, TypInfo, Types, contnrs, SysUtils, Classes, TypInfo,
// LCL // LCL
LCLType, LCLIntf, LResources, LMessages, Messages, LCLMemManager, LResources, LMessages, Messages, LCLMemManager,
Graphics, Controls, StdCtrls, ExtCtrls, Buttons, Forms, ClipBrd, Dialogs, Graphics, Controls, StdCtrls, ExtCtrls, Buttons, Forms, ClipBrd, Dialogs,
{$IFDEF UseGifImageUnit} //TODO all of this units not exists {$IFDEF UseGifImageUnit} //TODO all of this units not exists
GifImage, GifImage,

5
components/turbopower_ipro/iphtmlblocklayout.pas
View File

@ -6,9 +6,12 @@ unit ipHtmlBlockLayout;
interface interface
uses uses
// LCL
LCLIntf, // Must be before Types
// RTL, FCL
Types, Classes, SysUtils, Types, Classes, SysUtils,
// LCL // LCL
LCLIntf, Graphics, Graphics,
// TurboPower_ipro // TurboPower_ipro
IpUtils, IpHtmlTypes, IpHtmlProp, IpHtmlUtils, IpHtml, IpHtmlNodes; IpUtils, IpHtmlTypes, IpHtmlProp, IpHtmlUtils, IpHtml, IpHtmlNodes;

5
components/turbopower_ipro/iphtmlnodes.pas
View File

@ -6,9 +6,12 @@ unit IpHtmlNodes;
interface interface
uses uses
// LCL
LCLType, LCLIntf,
// RTL, FCL
Types, Classes, SysUtils, Types, Classes, SysUtils,
// LCL // LCL
Graphics, GraphUtil, LCLIntf, LCLType, Graphics, GraphUtil,
Controls, StdCtrls, ExtCtrls, Buttons, Dialogs, Controls, StdCtrls, ExtCtrls, Buttons, Dialogs,
// TurboPower_ipro // TurboPower_ipro
IpConst, IpCSS, IpHtmlTypes, IpHtmlClasses, IpHtmlProp, IpConst, IpCSS, IpHtmlTypes, IpHtmlClasses, IpHtmlProp,