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

Formatting

Browse Source 
git-svn-id: trunk@52021 -
This commit is contained in:
juha 2016-03-22 21:57:06 +00:00
parent 75791c984b
commit e5845a0818
5 changed files with 14 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/basiccodetools.pas
View File

@ -109,8 +109,7 @@ function FindNextIdentifier(const Source: string; StartPos, MaxPos: integer): in
function FindNextIdentifierSkipStrings(const Source: string;
StartPos, MaxPos: integer): integer;
function IsValidIdentPair(const NamePair: string): boolean;
function IsValidIdentPair(const NamePair: string;
out First, Second: string): boolean;
function IsValidIdentPair(const NamePair: string; out First, Second: string): boolean;
// line/code ends
function SrcPosToLineCol(const s: string; Position: integer;

14
components/codetools/eventcodetool.pas
View File

@ -72,8 +72,7 @@ type
TypeData: PTypeData; const Proc: TGetStrProc): boolean;
function GetCompatiblePublishedMethods(ClassNode: TCodeTreeNode;
TypeData: PTypeData; const Proc: TGetStrProc): boolean;
function PublishedMethodExists(const AClassName: string;
const AMethodName: string;
function PublishedMethodExists(const AClassName, AMethodName: string;
PropInstance: TPersistent; const PropName: string;
out MethodIsCompatible, MethodIsPublished, IdentIsMethod: boolean
): boolean;
@ -362,8 +361,8 @@ begin
end;
end;
function TEventsCodeTool.PublishedMethodExists(const AClassName: string;
const AMethodName: string; PropInstance: TPersistent; const PropName: string;
function TEventsCodeTool.PublishedMethodExists(const AClassName, AMethodName: string;
PropInstance: TPersistent; const PropName: string;
out MethodIsCompatible, MethodIsPublished, IdentIsMethod: boolean): boolean;
var
FoundContext: TFindContext;
@ -594,8 +593,8 @@ begin
end;
end;
function TEventsCodeTool.PublishedMethodExists(const AClassName,
AMethodName: string; TypeData: PTypeData;
function TEventsCodeTool.PublishedMethodExists(const AClassName, AMethodName: string;
TypeData: PTypeData;
out MethodIsCompatible, MethodIsPublished, IdentIsMethod: boolean): boolean;
var ClassNode: TCodeTreeNode;
begin
@ -722,8 +721,7 @@ begin
exit;
end;
SrcClassName:=SrcTool.ExtractClassName(ClassNode,true);
ANode:=SrcTool.FindMethodNodeInImplementation(
SrcClassName,AMethodName,false);
ANode:=SrcTool.FindMethodNodeInImplementation(SrcClassName,AMethodName,false);
if ANode=nil then begin
if ErrorOnNotFound then
RaiseExceptionFmt('implementation of method "%s.%s" in %s', [AClassName,AMethodName,SrcTool.MainFilename]);

2
components/codetools/finddeclarationtool.pas
View File

@ -3575,7 +3575,7 @@ var
Result:=false;
// the node cache is identifier based
if ([fdfCollect,fdfExtractOperand]*Flags<>[]) then exit;
NodeCache:=GetNodeCache(ContextNode,false);
if (NodeCache<>LastNodeCache) then begin
// NodeCache changed -> search nearest cache entry for the identifier

2
components/ideintf/propedits.pp
View File

@ -5706,7 +5706,7 @@ begin
TPropHookRenameMethod(FHandlers[htRenameMethod][i])(CurName,NewName);
end;
procedure TPropertyEditorHook.ShowMethod(const aName:String);
procedure TPropertyEditorHook.ShowMethod(const aName: String);
// jump cursor to published method body
var
i: Integer;

12
ide/main.pp
View File

@ -12470,10 +12470,8 @@ var
ActiveUnitInfo: TUnitInfo;
NewSource: TCodeBuffer;
NewX, NewY, NewTopLine: integer;
AClassName: string;
AInheritedMethodName: string;
AnInheritedClassName: string;
CurMethodName: String;
AClassName, AnInheritedClassName: string;
CurMethodName, AInheritedMethodName: string;
begin
ActiveSrcEdit:=nil;
if not BeginCodeTool(ActiveSrcEdit,ActiveUnitInfo,[ctfSwitchToFormSource])
@ -12501,8 +12499,7 @@ begin
end;
if CodeToolBoss.JumpToPublishedMethodBody(ActiveUnitInfo.Source,
AClassName,CurMethodName,
NewSource,NewX,NewY,NewTopLine) then
AClassName, CurMethodName, NewSource, NewX, NewY, NewTopLine) then
begin
DoJumpToCodePosition(ActiveSrcEdit, ActiveUnitInfo,
NewSource, NewX, NewY, NewTopLine, [jfAddJumpPoint, jfFocusEditor]);
@ -12514,7 +12511,8 @@ begin
end;
procedure TMainIDE.OnPropHookRenameMethod(const CurName, NewName: String);
var ActiveSrcEdit: TSourceEditor;
var
ActiveSrcEdit: TSourceEditor;
ActiveUnitInfo: TUnitInfo;
BossResult: boolean;
ErrorMsg: String;