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

ide: less hints

Browse Source
This commit is contained in:
mattias 2024-03-30 09:02:34 +01:00
parent 6e7ce6c7a2
commit 4021b5235c
4 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/etmakemsgparser.pas
View File

@ -131,7 +131,7 @@ begin
inc(e);
inc(len);
end;
SetLength(Result,len);
SetLength(Result{%H-},len);
if len>0 then
System.Move(p^,Result[1],len);
end;
@ -344,7 +344,7 @@ begin
Run:=p;
while not (Run^ in [' ',#9,#0]) do inc(Run);
if Run^<>#0 then begin
SetLength(Filename,Run-p);
SetLength(Filename{%H-},Run-p);
System.Move(p^,Filename[1],length(Filename));
Filename:=TrimFilename(Filename);
if FilenameIsAbsolute(Filename)

2
ide/projecticon.pas
View File

@ -225,7 +225,7 @@ begin
try
fs:=TFileStream.Create(IcoFileName,fmOpenRead);
try
SetLength(NewData, fs.Size);
SetLength(NewData{%H-}, fs.Size);
if length(NewData)>0 then
fs.Read(NewData[0],length(NewData));
IconData := NewData;

2
packager/packagedefs.pas
View File

@ -89,13 +89,13 @@ type
FPkgFile: TPkgFile;
procedure SetPkgFile(const AValue: TPkgFile);
protected
function CanBeCreatedInDesigner: boolean; override;
procedure ConsistencyCheck; override;
function GetPriority: TComponentPriority; override;
public
constructor Create(ThePkgFile: TPkgFile; TheComponentClass: TComponentClass;
const ThePageName: string);
destructor Destroy; override;
function CanBeCreatedInDesigner: boolean; override;
function GetUnitName: string; override;
public
property PkgFile: TPkgFile read FPkgFile write SetPkgFile;

2
packager/packagelinks.pas
View File

@ -44,7 +44,7 @@ uses
Forms,
// LazUtils
Laz2_XMLCfg, LazFileCache, LazFileUtils, FileUtil, LazUtilities, LazTracer,
AvgLvlTree, LazConfigStorage,
AvgLvlTree,
// Codetools
FileProcs, CodeToolManager,
// BuildIntf