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

splitted off unit FileUtil, it doesn't depend on other LCL units

Browse Source 
git-svn-id: trunk@6081 -
This commit is contained in:
vincents 2004-09-27 22:05:41 +00:00
parent bcf90ce19b
commit 450371882c
39 changed files with 66 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/addtoprojectdlg.pas
View File

@ -36,7 +36,7 @@ interface
uses
Classes, SysUtils, Math, LCLProc, LResources, Forms, Controls, Buttons,
ComCtrls, StdCtrls, ExtCtrls, Menus, Dialogs, Graphics, FileCtrl, AVL_Tree,
ComCtrls, StdCtrls, ExtCtrls, Menus, Dialogs, Graphics, FileUtil, AVL_Tree,
LazarusIDEStrConsts, IDEProcs, IDEOptionDefs, EnvironmentOpts,
Project, PackageDefs, PackageSystem;

2
ide/buildfiledlg.pas
View File

@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils, LResources, LCLType, Forms, Controls, Graphics, Dialogs,
Buttons, ExtCtrls, StdCtrls, BasicCodeTools, FileCtrl, IDEProcs, InputHistory,
Buttons, ExtCtrls, StdCtrls, BasicCodeTools, FileUtil, IDEProcs, InputHistory,
EnvironmentOpts, TransferMacros;
type

2
ide/buildlazdialog.pas
View File

@ -35,7 +35,7 @@ interface
uses
Classes, SysUtils, Math, LCLProc, Forms, Controls, LCLType, LCLIntf,
Graphics, GraphType, StdCtrls, ExtCtrls, Buttons, FileCtrl, Dialogs,
Graphics, GraphType, StdCtrls, ExtCtrls, Buttons, FileUtil, Dialogs,
LResources, Laz_XMLCfg, LazarusIDEStrConsts, TransferMacros, LazConf,
IDEProcs, InputHistory, ExtToolDialog, ExtToolEditDlg, CompilerOptions;

2
ide/checkcompileropts.pas
View File

@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
Buttons, LazarusIDEStrConsts, FileCtrl, IDEProcs, EnvironmentOpts,
Buttons, LazarusIDEStrConsts, FileUtil, IDEProcs, EnvironmentOpts,
CompilerOptions, ExtToolEditDlg, TransferMacros;
type

2
ide/cleandirdlg.pas
View File

@ -31,7 +31,7 @@ interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons,
StdCtrls, FileCtrl, LCLProc, Laz_XMLCfg, SynRegExpr,
StdCtrls, FileUtil, LCLProc, Laz_XMLCfg, SynRegExpr,
LazarusIDEStrConsts, LazConf, IDEProcs, TransferMacros;
type

2
ide/codetoolsdefpreview.pas
View File

@ -7,7 +7,7 @@ interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
Buttons, ComCtrls, SynEdit, DefineTemplates, ExprEval, LazarusIDEStrConsts,
FileCtrl, InputHistory;
FileUtil, InputHistory;
type
TCodeToolsDefinesDialog = class(TForm)

5
ide/compiler.pp
View File

@ -40,7 +40,7 @@ interface
uses
Classes, SysUtils, LCLProc, Forms, Controls, CompilerOptions, Project,
Process, LazarusIDEStrConsts, IDEProcs, OutputFilter, FileCtrl;
Process, LazarusIDEStrConsts, IDEProcs, OutputFilter, FileUtil;
type
TOnCmdLineCreate = procedure(var CmdLine: string; var Abort:boolean)
@ -190,6 +190,9 @@ end.
{
$Log$
Revision 1.45 2004/09/27 22:05:40 vincents
splitted off unit FileUtil, it doesn't depend on other LCL units
Revision 1.44 2004/09/17 20:04:34 vincents
replaced writeln by DebugLn

2
ide/compileroptions.pp
View File

@ -41,7 +41,7 @@ unit CompilerOptions;
interface
uses
Classes, SysUtils, FileCtrl, LCLProc,
Classes, SysUtils, FileUtil, LCLProc,
Laz_XMLCfg,
IDEProcs, LazConf,
TransferMacros;

2
ide/compileroptionsdlg.pp
View File

@ -37,7 +37,7 @@ interface
uses
Forms, Classes, LCLProc, SysUtils, ComCtrls, Buttons, StdCtrls, ExtCtrls,
Graphics, LResources, FileCtrl, Dialogs, Controls, GraphType,
Graphics, LResources, FileUtil, Dialogs, Controls, GraphType,
PathEditorDlg, LazarusIDEStrConsts, IDEOptionDefs, LazConf, IDEProcs,
CompilerOptions, ShowCompilerOpts, Project, PackageDefs;

5
ide/debugmanager.pas
View File

@ -39,7 +39,7 @@ uses
{$IFDEF IDE_MEM_CHECK}
MemCheck,
{$ENDIF}
Classes, SysUtils, Forms, Controls, Dialogs, Menus, FileCtrl, LCLProc,
Classes, SysUtils, Forms, Controls, Dialogs, Menus, FileUtil, LCLProc,
Laz_XMLCfg, SynEdit, CodeCache, CodeToolManager, LazConf, DebugOptionsFrm,
CompilerOptions, EditorOptions, EnvironmentOpts, KeyMapping, UnitEditor,
Project, IDEProcs, InputHistory, Debugger,
@ -1894,6 +1894,9 @@ end.
{ =============================================================================
$Log$
Revision 1.75 2004/09/27 22:05:40 vincents
splitted off unit FileUtil, it doesn't depend on other LCL units
Revision 1.74 2004/09/23 07:45:53 vincents
moved FDebugger field from BaseDebugManager to DebugManager

2
ide/delphiunit2laz.pas
View File

@ -40,7 +40,7 @@ interface
uses
// FCL+LCL
Classes, SysUtils, LCLProc, LResources, Forms, Controls, Graphics,
Dialogs, Buttons, StdCtrls, FileCtrl,
Dialogs, Buttons, StdCtrls, FileUtil,
// Components
SynEdit, CodeCache, CodeToolManager, DefineTemplates,
// IDE

2
ide/dialogprocs.pas
View File

@ -37,7 +37,7 @@ unit DialogProcs;
interface
uses
Classes, SysUtils, Forms, Controls, Dialogs, FileCtrl, CodeCache,
Classes, SysUtils, Forms, Controls, Dialogs, FileUtil, CodeCache,
CodeToolManager, AVL_Tree,
IDEProcs, LazarusIDEStrConsts;

2
ide/editdefinetree.pas
View File

@ -35,7 +35,7 @@ unit EditDefineTree;
interface
uses
Classes, SysUtils, FileProcs, FileCtrl, IDEProcs, CodeToolManager,
Classes, SysUtils, FileProcs, FileUtil, IDEProcs, CodeToolManager,
DefineTemplates, CompilerOptions, TransferMacros, LinkScanner,
LazarusIDEStrConsts;

2
ide/environmentopts.pp
View File

@ -38,7 +38,7 @@ uses
Classes, SysUtils, FPCAdds, LCLProc, Forms, Controls, Buttons, GraphType, Graphics,
Laz_XMLCfg, ObjectInspector, ExtCtrls, StdCtrls, Spin, EditorOptions,
LResources, LazConf, Dialogs, ExtToolDialog, IDEProcs, IDEOptionDefs,
InputHistory, LazarusIDEStrConsts, FileCtrl;
InputHistory, LazarusIDEStrConsts, FileUtil;
const
EnvOptsVersion: integer = 102;

2
ide/exttooldialog.pas
View File

@ -42,7 +42,7 @@ uses
Classes, SysUtils, LCLType, LCLProc, Controls, Forms, Buttons, StdCtrls,
ComCtrls, Dialogs, LResources, Laz_XMLCfg, ExtToolEditDlg, Process,
IDECommands, KeyMapping, TransferMacros, IDEProcs, CompilerOptions,
OutputFilter, FileCtrl, LazarusIDEStrConsts;
OutputFilter, FileUtil, LazarusIDEStrConsts;
const
MaxExtTools = ecExtToolLast-ecExtToolFirst+1;

2
ide/filereferencelist.pas
View File

@ -39,7 +39,7 @@ unit FileReferenceList;
interface
uses
Classes, SysUtils, AVL_Tree, FileCtrl, IDEProcs;
Classes, SysUtils, AVL_Tree, FileUtil, IDEProcs;
type
{ TFileReference }

4
ide/findinfilesdlg.pas
View File

@ -24,7 +24,7 @@ interface
uses
Classes, SysUtils, LCLIntf, Controls, StdCtrls, Forms, Buttons, ExtCtrls,
LResources, FileCtrl, LazarusIDEStrConsts, Dialogs, SynEditTypes,
LResources, FileUtil, LazarusIDEStrConsts, Dialogs, SynEditTypes,
InputHistory;
type
@ -232,6 +232,7 @@ begin
SetBounds(Self.ClientWidth-200,Self.ClientHeight-40,80,Height);
Caption:=lisLazBuildOk;
OnClick:=@OkButtonClick;
Default:= true;
end;
CancelButton:=TButton.Create(Self);
@ -241,6 +242,7 @@ begin
SetBounds(Self.ClientWidth-100,Self.ClientHeight-40,80,Height);
Caption:=dlgCancel;
OnClick:=@CancelButtonClick;
Cancel := true;
end;
end;
LazFindInFilesDialogResize(nil);

2
ide/frmsearch.pas
View File

@ -33,7 +33,7 @@ interface
uses
// LCL
Classes, SysUtils, LResources, LCLType, LCLIntf, Forms, Controls, Graphics,
Dialogs, ExtCtrls, StdCtrls, Buttons, FileCtrl,
Dialogs, ExtCtrls, StdCtrls, Buttons, FileUtil,
// synedit, codetools
SynRegExpr, SourceLog, KeywordFuncLists,
// ide

12
ide/ideprocs.pp
View File

@ -30,7 +30,7 @@ unit IDEProcs;
interface
uses
Classes, SysUtils, Laz_XMLCfg, GetText, FileCtrl, FileProcs, SynRegExpr,
Classes, SysUtils, Laz_XMLCfg, GetText, FileUtil, FileProcs, SynRegExpr,
LazConf;
type
@ -549,7 +549,7 @@ begin
end;
if CurDirEndPos-StartPos=CurDirLen then begin
// directories have same length -> compare chars
if FileCtrl.CompareFilenames(@SearchPath[StartPos],CurDirLen,
if FileUtil.CompareFilenames(@SearchPath[StartPos],CurDirLen,
@Directory[DirStartPos],CurDirLen,
false)=0
then begin
@ -819,7 +819,7 @@ end;
function CompareFilenames(const Filename1, Filename2: string): integer;
begin
Result:=FileCtrl.CompareFilenames(FileName1,FileName2);
Result:=FileUtil.CompareFilenames(FileName1,FileName2);
end;
function FilenameIsAbsolute(Filename: string):boolean;
@ -845,7 +845,7 @@ end;
function CompareFilenames(const Filename1, Filename2: string;
ResolveLinks: boolean): integer;
begin
Result:=FileCtrl.CompareFilenames(FileName1,FileName2,ResolveLinks);
Result:=FileUtil.CompareFilenames(FileName1,FileName2,ResolveLinks);
end;
function FilenameIsMatching(const Mask, Filename: string;
@ -1269,7 +1269,7 @@ begin
if not WithBaseDirectory then
Include(Flags,sffDontSearchInBasePath);
GetProgramSearchPath(SearchPath,Delim);
Result:=FileCtrl.SearchFileInPath(Programname,BaseDirectory,SearchPath,
Result:=FileUtil.SearchFileInPath(Programname,BaseDirectory,SearchPath,
Delim,Flags);
end;
@ -2031,7 +2031,7 @@ end;
function ProgramDirectory: string;
begin
Result:=FileCtrl.ProgramDirectory;
Result:=FileUtil.ProgramDirectory;
end;
function CreateEmptyFile(const Filename: string): boolean;

2
ide/imexportcompileropts.pas
View File

@ -33,7 +33,7 @@ interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
Buttons, FileCtrl, Laz_XMLCfg,
Buttons, FileUtil, Laz_XMLCfg,
LazarusIDEStrConsts, InputHistory, CompilerOptions, CompilerOptionsDlg;
type

2
ide/initialsetupdlgs.pas
View File

@ -40,7 +40,7 @@ unit InitialSetupDlgs;
interface
uses
Classes, SysUtils, Forms, Controls, Buttons, Dialogs, FileCtrl, StdCtrls,
Classes, SysUtils, Forms, Controls, Buttons, Dialogs, FileUtil, StdCtrls,
ComCtrls,
LazarusIDEStrConsts, LazConf, EnvironmentOpts, IDEProcs;

2
ide/inputfiledialog.pas
View File

@ -30,7 +30,7 @@ interface
uses
// LCL
Classes, SysUtils, Math, Forms, Controls, Dialogs, Buttons, StdCtrls,
FileCtrl, LResources,
FileUtil, LResources,
// IDE
TransferMacros, InputHistory;

2
ide/inputhistory.pas
View File

@ -35,7 +35,7 @@ unit InputHistory;
interface
uses
Classes, SysUtils, FileCtrl, DiffPatch, IDEProcs, Laz_XMLCfg, LazConf,
Classes, SysUtils, FileUtil, DiffPatch, IDEProcs, Laz_XMLCfg, LazConf,
Dialogs, LCLProc;
const

8
ide/lazarusmanager.pas
View File

@ -7,7 +7,7 @@ interface
uses
Classes, SysUtils, Process,
FileCtrl, Forms,
FileUtil, Forms,
LazConf,
StartLazOpts, Splash;
@ -124,7 +124,8 @@ begin
FLazarusPath := LazarusPath;
FProcess := TProcess.Create(nil);
FProcess.Options := [];
FProcess.CommandLine := FLazarusPath + ' --no-splash-screen';
FProcess.ShowWindow := swoShow;
FProcess.CommandLine := FLazarusPath + ' --no-splash-screen --by-starter';
end;
destructor TLazarusProcess.Destroy;
@ -152,6 +153,9 @@ end;
end.
{
$Log$
Revision 1.5 2004/09/27 22:05:40 vincents
splitted off unit FileUtil, it doesn't depend on other LCL units
Revision 1.4 2004/09/04 23:02:56 mattias
added reintroduce to get rid of the warning

5
ide/lazconf.pp
View File

@ -46,7 +46,7 @@ interface
{$endif}
uses
SysUtils, Classes, FileCtrl;
SysUtils, Classes, FileUtil;
type
TLCLPlatform = (
@ -206,6 +206,9 @@ end.
{
$Log$
Revision 1.31 2004/09/27 22:05:40 vincents
splitted off unit FileUtil, it doesn't depend on other LCL units
Revision 1.30 2004/09/06 22:24:52 mattias
started the carbon LCL interface

5
ide/main.pp
View File

@ -60,7 +60,7 @@ uses
Classes, SysUtils, Process, TypInfo,
// lcl
LCLProc, LCLMemManager, LCLType, LCLIntf, LMessages, LResources, StdCtrls,
Forms, Buttons, Menus, FileCtrl, Controls, GraphType, Graphics, ExtCtrls,
Forms, Buttons, Menus, FileUtil, Controls, GraphType, Graphics, ExtCtrls,
Dialogs, InterfaceBase, {SetDesigning}
// codetools
AVL_Tree, Laz_XMLCfg, CodeToolsStructs, CodeToolManager, CodeCache,
@ -10897,6 +10897,9 @@ end.
{ =============================================================================
$Log$
Revision 1.780 2004/09/27 22:05:40 vincents
splitted off unit FileUtil, it doesn't depend on other LCL units
Revision 1.779 2004/09/25 15:05:38 mattias
implemented Rename Identifier

2
ide/mainbase.pas
View File

@ -55,7 +55,7 @@ uses
MemCheck,
{$ENDIF}
Classes, LCLType, LCLIntf, StdCtrls, Buttons, Menus, ComCtrls, SysUtils,
Controls, Graphics, ExtCtrls, Dialogs, FileCtrl, Forms, CodeToolManager,
Controls, Graphics, ExtCtrls, Dialogs, FileUtil, Forms, CodeToolManager,
CodeCache, AVL_Tree, SynEditKeyCmds,
// IDE
LazConf, LazarusIDEStrConsts, SrcEditorIntf,

2
ide/mainintf.pas
View File

@ -58,7 +58,7 @@ uses
MemCheck,
{$ENDIF}
Classes, LCLType, LCLIntf, StdCtrls, Buttons, Menus, ComCtrls, SysUtils,
Controls, Graphics, ExtCtrls, Dialogs, FileCtrl, Forms, CodeToolManager,
Controls, Graphics, ExtCtrls, Dialogs, FileUtil, Forms, CodeToolManager,
CodeCache, AVL_Tree, SynEditKeyCmds,
// IDE
ObjectInspector,

2
ide/outputfilter.pas
View File

@ -30,7 +30,7 @@ interface
uses
Classes, SysUtils, Forms, Controls, CompilerOptions, Project, Process,
IDEProcs, FileCtrl, LclProc, LazConf;
IDEProcs, FileUtil, LclProc, LazConf;
type
TOnOutputString = procedure(const Msg, Directory: String) of Object;

2
ide/patheditordlg.pas
View File

@ -29,7 +29,7 @@ interface
uses
Classes, SysUtils, Forms, Controls, SynEdit, Buttons, StdCtrls, Dialogs,
LResources, FileCtrl, LazarusIDEStrConsts;
LResources, FileUtil, LazarusIDEStrConsts;
type
TPathEditorDialog = class(TForm)

5
ide/project.pp
View File

@ -48,7 +48,7 @@ uses
MemCheck,
{$ENDIF}
Classes, SysUtils, FPCAdds, LCLProc, LCLIntf, LCLType, Laz_XMLCfg, LazConf,
CompilerOptions, FileCtrl, CodeToolManager, CodeCache, Forms, Controls,
CompilerOptions, FileUtil, CodeToolManager, CodeCache, Forms, Controls,
EditorOptions, Dialogs, IDEProcs, RunParamsOpts, ProjectIntf, ProjectDefs,
EditDefineTree, DefineTemplates, PackageDefs;
@ -2920,6 +2920,9 @@ end.
{
$Log$
Revision 1.165 2004/09/27 22:05:40 vincents
splitted off unit FileUtil, it doesn't depend on other LCL units
Revision 1.164 2004/09/18 01:02:23 mattias
started new feature: find identifier references

2
ide/projectdefs.pas
View File

@ -37,7 +37,7 @@ unit ProjectDefs;
interface
uses
Classes, SysUtils, Laz_XMLCfg, Forms, SynRegExpr, FileCtrl, LCLProc,
Classes, SysUtils, Laz_XMLCfg, Forms, SynRegExpr, FileUtil, LCLProc,
ProjectIntf,
LazarusIDEStrConsts, PublishModule;

2
ide/projectinspector.pas
View File

@ -39,7 +39,7 @@ interface
uses
Classes, SysUtils, LCLProc, LResources, Forms, Controls, Buttons, ComCtrls,
StdCtrls, Menus, Dialogs, Graphics, FileCtrl,
StdCtrls, Menus, Dialogs, Graphics, FileUtil,
IDECommands,
LazarusIDEStrConsts, IDEProcs, IDEOptionDefs, EnvironmentOpts,
Project, AddToProjectDlg, PackageSystem, PackageDefs;

2
ide/publishmodule.pas
View File

@ -35,7 +35,7 @@ unit PublishModule;
interface
uses
Classes, SysUtils, Laz_XMLCfg, IDEProcs, SynRegExpr, FileCtrl, LCLProc;
Classes, SysUtils, Laz_XMLCfg, IDEProcs, SynRegExpr, FileUtil, LCLProc;
type
{ TPublishModuleOptions }

2
ide/runparamsopts.pas
View File

@ -49,7 +49,7 @@ uses
{$ENDIF}
Classes, SysUtils, Controls, Forms, Buttons, StdCtrls, ComCtrls, Dialogs,
ExtCtrls, LResources, Laz_XMLCfg, IDEProcs, SysVarUserOverrideDlg,
InputHistory, LazarusIDEStrConsts, FileCtrl;
InputHistory, LazarusIDEStrConsts, FileUtil;
{ The xml format version:
When the format changes (new values, changed formats) we can distinguish old

2
ide/todolist.pp
View File

@ -109,7 +109,7 @@ uses
{$ifndef ver1_0}
StrUtils,
{$endif}
FileCtrl;
FileUtil;
Type
PCharArray = Array[0..16+5] of PChar;

2
ide/transfermacros.pp
View File

@ -46,7 +46,7 @@ unit TransferMacros;
interface
uses Classes, SysUtils, FileCtrl, LazarusIDEStrConsts;
uses Classes, SysUtils, FileUtil, LazarusIDEStrConsts;
type
TTransferMacro = class;

2
ide/unitdependencies.pas
View File

@ -45,7 +45,7 @@ uses
MemCheck,
{$ENDIF}
Classes, SysUtils, Controls, Forms, Dialogs, Buttons, ComCtrls, StdCtrls,
Graphics, LCLType, FileCtrl, LResources, LCLProc,
Graphics, LCLType, FileUtil, LResources, LCLProc,
CodeToolManager, CodeCache,
IDECommands,
EnvironmentOpts, IDEOptionDefs, LazarusIDEStrConsts, InputHistory;

2
ide/uniteditor.pp
View File

@ -41,7 +41,7 @@ uses
{$IFDEF IDE_MEM_CHECK}
MemCheck,
{$ENDIF}
Classes, SysUtils, Controls, LCLProc, LCLType, LResources, LCLIntf, FileCtrl,
Classes, SysUtils, Controls, LCLProc, LCLType, LResources, LCLIntf, FileUtil,
Forms, Buttons, ComCtrls, Dialogs, StdCtrls, GraphType, Graphics,
Extctrls, Menus,
// codetools