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

JCF2: Cleanup based on compiler hints.

Browse Source 
git-svn-id: trunk@48477 -
This commit is contained in:
juha 2015-03-24 17:50:33 +00:00
parent addc44e0f5
commit c666926244
23 changed files with 47 additions and 90 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/jcf2/Ui/Settings/frAnyCapsSettings.pas
View File

@ -30,9 +30,7 @@ unit frAnyCapsSettings;
interface
uses
{ delphi }
Classes, Controls, Forms, StdCtrls,
{ local }
Classes, StdCtrls,
IDEOptionsIntf;
type
@ -60,7 +58,7 @@ implementation
{$R *.lfm}
uses
JcfHelp, JcfSettings, jcfuiconsts;
JcfSettings, jcfuiconsts;
constructor TfrAnyCapsSettings.Create(AOwner: TComponent);
begin

6
components/jcf2/Ui/Settings/frAsm.pas
View File

@ -30,9 +30,7 @@ See http://www.gnu.org/licenses/gpl.html
interface
uses
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Spin,
{ local}
SysUtils, StdCtrls, ExtCtrls, Spin,
IDEOptionsIntf;
type
@ -68,7 +66,7 @@ implementation
uses
{ jcf }
JcfHelp, JcfSettings, jcfuiconsts,
JcfSettings, jcfuiconsts,
{ local }
Capitalisation, SettingsTypes, SetAsm;

9
components/jcf2/Ui/Settings/frBlankLines.pas
View File

@ -29,9 +29,7 @@ unit frBlankLines;
interface
uses
{ delphi }
Classes, Controls, Forms, StdCtrls, Spin,
{ local}
Classes, Math, StdCtrls, Spin,
IDEOptionsIntf;
@ -68,10 +66,7 @@ implementation
{$R *.lfm}
uses
{ delphi }
Math,
{ local }
JcfSettings, SetReturns, JcfHelp, jcfuiconsts;
JcfSettings, jcfuiconsts;
constructor TfBlankLines.Create(AOwner: TComponent);
begin

6
components/jcf2/Ui/Settings/frClarify.pas
View File

@ -30,9 +30,7 @@ unit frClarify;
interface
uses
{ delphi }
Classes, Controls, Forms, StdCtrls, ExtCtrls,
{ local}
Classes, StdCtrls, ExtCtrls,
IDEOptionsIntf;
type
@ -59,7 +57,7 @@ implementation
{$R *.lfm}
uses
JcfSettings, JcfHelp, SetClarify, jcfuiconsts;
JcfSettings, SetClarify, jcfuiconsts;
constructor TfClarify.Create(AOwner: TComponent);
begin

6
components/jcf2/Ui/Settings/frClarifyAlign.pas
View File

@ -30,9 +30,7 @@ unit frClarifyAlign;
interface
uses
{ delphi }
Classes, Controls, Forms, StdCtrls, Spin,
{ local}
Classes, StdCtrls, Spin,
IDEOptionsIntf;
type
@ -78,7 +76,7 @@ implementation
{$R *.lfm}
uses
JcfSettings, JcfHelp, SetAlign, jcfuiconsts;
JcfSettings, jcfuiconsts;
constructor TfClarifyAlign.Create(AOwner: TComponent);
begin

5
components/jcf2/Ui/Settings/frClarifyBlocks.pas
View File

@ -30,8 +30,7 @@ unit frClarifyBlocks;
interface
uses
{ delphi }
Classes, Controls, Forms, StdCtrls, ExtCtrls,
Classes, StdCtrls, ExtCtrls,
IDEOptionsIntf;
type
@ -61,7 +60,7 @@ implementation
{$R *.lfm}
uses
JcfSettings, SettingsTypes, JcfHelp, jcfuiconsts;
JcfSettings, SettingsTypes, jcfuiconsts;
procedure TfClarifyBlocks.FrameResize(Sender:TObject);
begin

6
components/jcf2/Ui/Settings/frClarifyCaseBlocks.pas
View File

@ -30,9 +30,7 @@ unit frClarifyCaseBlocks;
interface
uses
{ delphi }
Classes, Controls, Forms, StdCtrls, ExtCtrls,
{ local}
Classes, StdCtrls, ExtCtrls,
IDEOptionsIntf;
type
@ -63,7 +61,7 @@ implementation
{$R *.lfm}
uses
JcfSettings, SettingsTypes, JcfHelp, jcfuiconsts;
JcfSettings, SettingsTypes, jcfuiconsts;
procedure TfClarifyCaseBlocks.FrameResize(Sender:TObject);
begin

5
components/jcf2/Ui/Settings/frClarifyIndent.pas
View File

@ -30,8 +30,7 @@ See http://www.gnu.org/licenses/gpl.html
interface
uses
{ delphi }
Classes, Controls, Forms, StdCtrls, Spin,
Classes, StdCtrls, Spin,
IDEOptionsIntf;
type
@ -73,7 +72,7 @@ implementation
{$R *.lfm}
uses
JcfHelp, JcfSettings, SetIndent, jcfuiconsts;
JcfSettings, jcfuiconsts;
constructor TfClarifyIndent.Create(AOwner: TComponent);
begin

5
components/jcf2/Ui/Settings/frClarifyLongLineBreaker.pas
View File

@ -30,8 +30,7 @@ unit frClarifyLongLineBreaker;
interface
uses
{ delphi }
Classes, Controls, Forms, StdCtrls, ExtCtrls, Spin,
Classes, StdCtrls, ExtCtrls, Spin,
IDEOptionsIntf;
type
@ -58,7 +57,7 @@ implementation
{$R *.lfm}
uses
JcfSettings, SetReturns, JcfHelp, jcfuiconsts;
JcfSettings, SetReturns, jcfuiconsts;
constructor TfClarifyLongLineBreaker.Create(AOwner: TComponent);

6
components/jcf2/Ui/Settings/frClarifyReturns.pas
View File

@ -30,9 +30,7 @@ unit frClarifyReturns;
interface
uses
{ delphi }
Classes, Controls, Forms, StdCtrls, ExtCtrls,
{ local}
Classes, StdCtrls, ExtCtrls,
IDEOptionsIntf;
type
@ -67,7 +65,7 @@ implementation
{$R *.lfm}
uses
SettingsTypes, JcfSettings, SetReturns, JcfHelp, jcfuiconsts;
SettingsTypes, JcfSettings, jcfuiconsts;
procedure TfClarifyReturns.FrameResize(Sender:TObject);
begin

6
components/jcf2/Ui/Settings/frClarifySpaces.pas
View File

@ -30,9 +30,7 @@ unit frClarifySpaces;
interface
uses
{ delphi }
Classes, Controls, Forms, StdCtrls, ExtCtrls, Spin,
{ local}
Classes, StdCtrls, ExtCtrls, Spin,
IDEOptionsIntf;
type
@ -98,7 +96,7 @@ implementation
{$R *.lfm}
uses
JcfHelp, JcfSettings, SetSpaces, SettingsTypes, jcfuiconsts;
JcfSettings, SettingsTypes, jcfuiconsts;
constructor TfClarifySpaces.Create(AOwner: TComponent);
begin

6
components/jcf2/Ui/Settings/frComments.pas
View File

@ -30,9 +30,7 @@ See http://www.gnu.org/licenses/gpl.html
interface
uses
{ delphi }
StdCtrls, Classes, Controls, Forms,
{ local }
StdCtrls, Classes,
IDEOptionsIntf;
type
@ -57,7 +55,7 @@ implementation
{$R *.lfm}
uses
JcfHelp, JcfSettings, SetComments, jcfuiconsts;
JcfSettings, jcfuiconsts;
constructor TfComments.Create(AOwner: TComponent);
begin

5
components/jcf2/Ui/Settings/frIdentifierCapsSettings.pas
View File

@ -30,8 +30,7 @@ unit frIdentifierCapsSettings;
interface
uses
{ delphi }
Classes, Controls, Forms, StdCtrls,
Classes, StdCtrls,
IDEOptionsIntf;
type
@ -59,7 +58,7 @@ implementation
{$R *.lfm}
uses
JcfHelp, JcfSettings, jcfuiconsts;
JcfSettings, jcfuiconsts;
constructor TfIdentifierCapsSettings.Create(AOwner: TComponent);
begin

5
components/jcf2/Ui/Settings/frNotIdentifierCapsSettings.pas
View File

@ -30,8 +30,7 @@ unit frNotIdentifierCapsSettings;
interface
uses
{ delphi }
Classes, Controls, Forms, StdCtrls,
Classes, StdCtrls,
IDEOptionsIntf;
type
@ -59,7 +58,7 @@ implementation
{$R *.lfm}
uses
JcfHelp, JcfSettings, jcfuiconsts;
JcfSettings, jcfuiconsts;
constructor TfNotIdentifierCapsSettings.Create(AOwner: TComponent);
begin

6
components/jcf2/Ui/Settings/frObfuscateSettings.pas
View File

@ -30,9 +30,7 @@ unit frObfuscateSettings;
interface
uses
{ delphi }
Classes, Controls, Forms, StdCtrls, ExtCtrls,
{ local }
Classes, StdCtrls, ExtCtrls,
IDEOptionsIntf;
type
@ -61,7 +59,7 @@ implementation
{$R *.lfm}
uses
JcfSettings, SettingsTypes, JcfHelp, SetObfuscate, jcfuiconsts;
JcfSettings, SettingsTypes, jcfuiconsts;
{ TfObfuscateSettings }

6
components/jcf2/Ui/Settings/frReplace.pas
View File

@ -30,9 +30,7 @@ unit frReplace;
interface
uses
{ delphi }
Classes, Controls, Forms, StdCtrls,
{ local }
Classes, StdCtrls,
IDEOptionsIntf;
type
@ -60,7 +58,7 @@ implementation
{$R *.lfm}
uses
JcfHelp, JcfSettings, jcfuiconsts;
JcfSettings, jcfuiconsts;
{ TfReplace }

6
components/jcf2/Ui/Settings/frReservedCapsSettings.pas
View File

@ -30,9 +30,7 @@ unit frReservedCapsSettings;
interface
uses
{ delphi }
Classes, Controls, Forms, StdCtrls, ExtCtrls,
{ local }
Classes, StdCtrls, ExtCtrls,
IDEOptionsIntf;
type
@ -63,7 +61,7 @@ implementation
{$R *.lfm}
uses
SettingsTypes, JcfHelp, JcfSettings, jcfuiconsts;
SettingsTypes, JcfSettings, jcfuiconsts;
constructor TfrReservedCapsSettings.Create(AOwner: TComponent);
begin

5
components/jcf2/Ui/Settings/frTransform.pas
View File

@ -30,8 +30,7 @@ See http://www.gnu.org/licenses/gpl.html
interface
uses
Classes, Graphics, Controls, Forms, StdCtrls, ExtCtrls,
{ local }
Classes, StdCtrls, ExtCtrls,
IDEOptionsIntf;
type
@ -64,7 +63,7 @@ implementation
{$R *.lfm}
uses
SettingsTypes, JcfSettings, JcfHelp, SetTransform, jcfuiconsts;
SettingsTypes, JcfSettings, SetTransform, jcfuiconsts;
constructor TfTransform.Create(AOwner: TComponent);
begin

6
components/jcf2/Ui/Settings/frUses.pas
View File

@ -30,9 +30,7 @@ See http://www.gnu.org/licenses/gpl.html
interface
uses
{ delphi }
Classes, Controls, Forms, StdCtrls,
{ local }
Classes, StdCtrls,
IDEOptionsIntf;
type
@ -69,7 +67,7 @@ implementation
{$R *.lfm}
uses
JcfHelp, JcfSettings, jcfuiconsts;
JcfSettings, jcfuiconsts;
constructor TfUses.Create(AOwner: TComponent);
begin

6
components/jcf2/Ui/Settings/frWarnings.pas
View File

@ -30,9 +30,7 @@ See http://www.gnu.org/licenses/gpl.html
interface
uses
{ delphi }
StdCtrls, Classes, Controls, Forms,
{ local }
StdCtrls, Classes,
IDEOptionsIntf;
type
@ -62,7 +60,7 @@ implementation
{$R *.lfm}
uses
JcfHelp, JcfSettings, jcfuiconsts;
JcfSettings, jcfuiconsts;
constructor TfWarnings.Create(AOwner: TComponent);
begin

6
components/jcf2/Ui/fAbout.pas
View File

@ -30,9 +30,7 @@ unit fAbout;
interface
uses
{ delphi }
Classes, Forms, Graphics, Controls, StdCtrls,
Buttons, ExtCtrls, SysUtils;
Classes, Forms, Graphics, StdCtrls, Buttons, ExtCtrls, SysUtils;
type
TfrmAboutBox = class(TForm)
@ -71,7 +69,7 @@ uses
LCLIntf,
{$endif}
{ local }
JcfVersionConsts, JcfHelp, JcfFontSetFunctions, JcfStringUtils, jcfuiconsts;
JcfVersionConsts, JcfFontSetFunctions, JcfStringUtils, jcfuiconsts;
{$ifdef fpc}
procedure ShowURL(const ps: string);

6
components/jcf2/Utils/JcfFontSetFunctions.pas
View File

@ -40,10 +40,8 @@ procedure SetObjectFontToSystemFont(
implementation
uses
{ delphi }
StdCtrls, ComCtrls, Graphics, TypInfo,
{ local }
JcfStringUtils, JcfSystemUtils;
StdCtrls, Graphics, TypInfo,
JcfSystemUtils;
procedure SetCaptionFont(const AObjectFont: TFont);
begin

8
components/jcf2/Utils/JcfStringUtils.pas
View File

@ -160,14 +160,12 @@ implementation
uses
{$ifdef MSWINDOWS}
Windows, ShellApi
//Windows, ShellApi
{$endif}
{$ifdef Unix}
Unix
//Unix
{$endif}
{$ifdef fpc}
, LCLIntf, fileutil
{$endif};
LCLIntf, fileutil;
{$IFNDEF DELPHI12}
{$IFNDEF DELPHI14}