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

Codetools: Comment out functions in BasicCodetools dealing with CreateForm. Methods in StdCodetools are used.

Browse Source 
git-svn-id: trunk@63006 -
This commit is contained in:
juha 2020-04-17 09:32:13 +00:00
parent f5472e8233
commit 83b5ba73f2
1 changed files with 8 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/codetools/basiccodetools.pas
View File

@ -344,14 +344,13 @@ function SplitCompilerDirective(const Directive:string;
out DirectiveName,Parameters:string):boolean; out DirectiveName,Parameters:string):boolean;
// createform // createform
function AddCreateFormToProgram(Source:TSourceLog; {function AddCreateFormToProgram(Source:TSourceLog;
const AClassName,AName:string):boolean; const AClassName,AName:string):boolean;
function RemoveCreateFormFromProgram(Source:TSourceLog; function RemoveCreateFormFromProgram(Source:TSourceLog;
const AClassName,AName:string):boolean; const AClassName,AName:string):boolean;
function CreateFormExistsInProgram(const Source, function CreateFormExistsInProgram(const Source,AClassName,AName:string):boolean;
AClassName,AName:string):boolean;
function ListAllCreateFormsInProgram(const Source:string):TStrings; function ListAllCreateFormsInProgram(const Source:string):TStrings;
}
// resource code // resource code
function FindResourceInCode(const Source, AddCode:string; function FindResourceInCode(const Source, AddCode:string;
out Position,EndPosition:integer):boolean; out Position,EndPosition:integer):boolean;
@ -974,16 +973,14 @@ begin
until Atom<>','; until Atom<>',';
// unit not used // unit not used
end; end;
{
function AddCreateFormToProgram(Source:TSourceLog; function AddCreateFormToProgram(Source:TSourceLog;
const AClassName,AName:string):boolean; const AClassName,AName:string):boolean;
// insert 'Application.CreateForm(<AClassName>,<AName>);' // insert 'Application.CreateForm(<AClassName>,<AName>);' in front of 'Application.Run;'
// in front of 'Application.Run;'
var Position, EndPosition: integer; var Position, EndPosition: integer;
begin begin
Result:=false; Result:=false;
Position:=SearchCodeInSource(Source.Source,'application.run',1 Position:=SearchCodeInSource(Source.Source,'application.run',1,EndPosition,false);
,EndPosition,false);
if Position<1 then exit; if Position<1 then exit;
if EndPosition=0 then ; if EndPosition=0 then ;
Source.Insert(Position, Source.Insert(Position,
@ -1007,8 +1004,7 @@ begin
Result:=true; Result:=true;
end; end;
function CreateFormExistsInProgram(const Source, function CreateFormExistsInProgram(const Source,AClassName,AName:string):boolean;
AClassName,AName:string):boolean;
var Position,EndPosition:integer; var Position,EndPosition:integer;
begin begin
Position:=SearchCodeInSource(Source, Position:=SearchCodeInSource(Source,
@ -1035,7 +1031,7 @@ begin
end; end;
until Position<1; until Position<1;
end; end;
}
function FindResourceInCode(const Source, AddCode:string; function FindResourceInCode(const Source, AddCode:string;
out Position,EndPosition:integer):boolean; out Position,EndPosition:integer):boolean;
var Find,Atom:string; var Find,Atom:string;