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

Misc packages: Adjust to changes in Laz/main (deprecated OffsetRect), less hints and warnings

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8838 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-06-15 23:33:46 +00:00
parent d060e53a49
commit 7940c5f9df
36 changed files with 65 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/jvcllaz/run/JvRuntimeDesign/jvdesignclip.pas
View File

@ -5,7 +5,7 @@ unit JvDesignClip;
interface
uses
LCLProc, LCLType, LResources, LCLIntf, Classes;
LCLType, LResources, LCLIntf, Classes;
type
TJvDesignComponentClipboard = class(TObject)

2
components/jvcllaz/run/JvRuntimeDesign/jvdesignimp.pas
View File

@ -5,7 +5,7 @@ unit JvDesignImp;
interface
uses
LCLProc, LCLType, LResources, LCLIntf, LMessages,
LCLType, LCLIntf, LMessages, LResources,
SysUtils, Types, Classes, Controls, Graphics, Forms, ExtCtrls, Contnrs,
JvDesignUtils, JvDesignSurface;

3
components/jvcllaz/run/JvRuntimeDesign/jvdesignsurface.pas
View File

@ -40,7 +40,7 @@ interface
uses
Classes, SysUtils,
LCLProc, LCLType, LResources, LCLIntf, LMessages,
LCLType, LResources, LCLIntf, LMessages,
Forms, Controls, Graphics, Dialogs, ExtCtrls;
type
@ -543,6 +543,7 @@ function TJvDesignSurface.GetSelected: TJvDesignObjectArray;
var
I: Integer;
begin
Result := nil;
SetLength(Result, Count);
for I := 0 to Count - 1 do
Result[I] := Selector.Selection[I];

2
components/jvcllaz/run/JvRuntimeDesign/jvdesignutils.pas
View File

@ -6,7 +6,7 @@ unit JvDesignUtils;
interface
uses
SysUtils, LCLProc, LCLType, LResources, LCLIntf, LMessages,
SysUtils, LCLType, LResources, LCLIntf, LMessages,
Classes, Controls, Graphics, Forms, dialogs;
type