paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 01:39: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;
// createform
function AddCreateFormToProgram(Source:TSourceLog;
{function AddCreateFormToProgram(Source:TSourceLog;
const AClassName,AName:string):boolean;
function RemoveCreateFormFromProgram(Source:TSourceLog;
const AClassName,AName:string):boolean;
function CreateFormExistsInProgram(const Source,
AClassName,AName:string):boolean;
function CreateFormExistsInProgram(const Source,AClassName,AName:string):boolean;
function ListAllCreateFormsInProgram(const Source:string):TStrings;
}
// resource code
function FindResourceInCode(const Source, AddCode:string;
out Position,EndPosition:integer):boolean;
@ -974,16 +973,14 @@ begin
until Atom<>',';
// unit not used
end;
{
function AddCreateFormToProgram(Source:TSourceLog;
const AClassName,AName:string):boolean;
// insert 'Application.CreateForm(<AClassName>,<AName>);'
// in front of 'Application.Run;'
// insert 'Application.CreateForm(<AClassName>,<AName>);' in front of 'Application.Run;'
var Position, EndPosition: integer;
begin
Result:=false;
Position:=SearchCodeInSource(Source.Source,'application.run',1
,EndPosition,false);
Position:=SearchCodeInSource(Source.Source,'application.run',1,EndPosition,false);
if Position<1 then exit;
if EndPosition=0 then ;
Source.Insert(Position,
@ -1007,8 +1004,7 @@ begin
Result:=true;
end;
function CreateFormExistsInProgram(const Source,
AClassName,AName:string):boolean;
function CreateFormExistsInProgram(const Source,AClassName,AName:string):boolean;
var Position,EndPosition:integer;
begin
Position:=SearchCodeInSource(Source,
@ -1035,7 +1031,7 @@ begin
end;
until Position<1;
end;
}
function FindResourceInCode(const Source, AddCode:string;
out Position,EndPosition:integer):boolean;
var Find,Atom:string;