paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 05:37:14 +01:00
Code Issues Packages Projects Releases Wiki Activity

Jedi code format: suppress compiler hints.

Browse Source
This commit is contained in:
DomingoGP 2024-01-17 14:33:49 +01:00
parent 05f867ee4b
commit efc43d0463
3 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/jcf2/IdePlugin/lazarus/jcfideregister.pas
View File

@ -47,7 +47,9 @@ uses
type
TIDEFormattingSettings = class(TAbstractIDEEnvironmentOptions)
public
{$push}{$warn 5024 off}
constructor Create(const pbReadRegFile: boolean);
{$pop}
destructor Destroy; override;
class function GetGroupCaption: String; override;
class function GetInstance: TAbstractIDEOptions; override;
@ -154,11 +156,13 @@ var
// a module var
mcIDEFormattingSettings: TIDEFormattingSettings = nil;
{$push}{$warn 5024 off}
constructor TIDEFormattingSettings.Create(const pbReadRegFile: boolean);
begin
inherited Create();
FormattingSettings; //create JCF FormattingSetting if not exitst.
end;
{$pop}
destructor TIDEFormattingSettings.Destroy;
begin

1
components/jcf2/ReadWrite/UI/Diff.pas
View File

@ -1,6 +1,7 @@
unit Diff;
{$mode delphi}{$H+}
{$WARN 6058 off} // supress note: call function/procedure marked as inline is not inlined
(*******************************************************************************
* Component TDiff *

2
components/jcf2/ReadWrite/UI/diffmerge.pas
View File

@ -39,6 +39,8 @@
unit diffmerge;
{$mode objfpc}{$H+}
{$WARN 6058 off} // supress note: call function/procedure marked as inline is not inlined
interface
uses