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

Use the new parameter signature for RetypeClassVariables.

Browse Source 
git-svn-id: trunk@24224 -
This commit is contained in:
juha 2010-03-26 14:34:33 +00:00
parent ca0b3c395b
commit 1d27d08993
2 changed files with 18 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
converter/convcodetool.pas
View File

@ -44,7 +44,7 @@ type
// List of units to be commented.
fUnitsToComment: TStringList;
// Map of class member object types to be renamed in ReplaceMemberTypes.
fMemberTypesToRename: TStringList; // TStringToStringTree;
fMemberTypesToRename: TStringToStringTree;
function AddDelphiAndLCLSections: boolean;
function AddModeDelphiDirective: boolean;
function RenameResourceDirectives: boolean;
@ -68,8 +68,8 @@ type
property UnitsToRename: TStringToStringTree read fUnitsToRename write fUnitsToRename;
property UnitsToAdd: TStringList read fUnitsToAdd write fUnitsToAdd;
property UnitsToComment: TStringList read fUnitsToComment write fUnitsToComment;
property MemberTypesToRename: TStringList read fMemberTypesToRename
write fMemberTypesToRename;
property MemberTypesToRename: TStringToStringTree read fMemberTypesToRename
write fMemberTypesToRename;
end;
implementation

37
converter/missingpropertiesdlg.pas
View File

@ -122,8 +122,7 @@ var
TheNode: TLFMTreeNode;
ObjNode: TLFMObjectNode;
// Property name --> replacement name.
PropNameRepl: TStringToStringTree;
MemberTypes: TStringList;
NameReplacements: TStringToStringTree;
// List of TLFMChangeEntry objects.
ChgEntryRepl: TObjectList;
OldIdent, NewIdent: string;
@ -132,15 +131,14 @@ var
begin
Result:=mrNone;
ChgEntryRepl:=TObjectList.Create;
PropNameRepl:=TStringToStringTree.Create(false);
MemberTypes:=TStringList.Create;
NameReplacements:=TStringToStringTree.Create(false);
try
// Collect (maybe edited) properties from StringGrid to PropNameRepl.
// Collect (maybe edited) properties from StringGrid to NameReplacements.
for i:=1 to fPropReplaceGrid.RowCount-1 do begin // Skip the fixed row.
OldIdent:=fPropReplaceGrid.Cells[0,i];
NewIdent:=fPropReplaceGrid.Cells[1,i];
if NewIdent<>'' then
PropNameRepl[OldIdent]:=NewIdent;
NameReplacements[OldIdent]:=NewIdent;
end;
// Replace each missing property / type or delete it if no replacement.
CurError:=fLFMTree.LastError;
@ -153,19 +151,17 @@ begin
OldIdent:=ObjNode.TypeName;
StartPos:=ObjNode.TypeNamePosition;
EndPos:=StartPos+Length(OldIdent);
NewIdent:=PropNameRepl[OldIdent];
NewIdent:=NameReplacements[OldIdent];
// Keep the old class name if no replacement.
if NewIdent<>'' then begin
if NewIdent<>'' then
AddReplacement(ChgEntryRepl,StartPos,EndPos,NewIdent);
MemberTypes.Values[OldIdent]:=NewIdent;
end;
end
else begin
// Property
TheNode.FindIdentifier(StartPos,EndPos);
if StartPos>0 then begin
OldIdent:=copy(fLFMBuffer.Source,StartPos,EndPos-StartPos);
NewIdent:=PropNameRepl[OldIdent];
NewIdent:=NameReplacements[OldIdent];
// Delete the whole property line if no replacement.
if NewIdent='' then
FindNiceNodeBounds(TheNode,StartPos,EndPos);
@ -177,21 +173,18 @@ begin
end;
// Apply replacements to LFM.
if ApplyReplacements(ChgEntryRepl) then begin
if MemberTypes.Count>0 then begin
// Replace the object member types also to pascal source.
ConvTool:=TConvDelphiCodeTool.Create(fPascalBuffer);
try
ConvTool.MemberTypesToRename:=MemberTypes;
ConvTool.ReplaceMemberTypes(TLFMObjectNode(fLFMTree.Root).TypeName);
finally
ConvTool.Free;
end;
// Replace the object member types also to pascal source.
ConvTool:=TConvDelphiCodeTool.Create(fPascalBuffer);
try
ConvTool.MemberTypesToRename:=NameReplacements;
ConvTool.ReplaceMemberTypes(TLFMObjectNode(fLFMTree.Root).TypeName);
finally
ConvTool.Free;
end;
Result:=mrOk;
end;
finally
MemberTypes.Free;
PropNameRepl.Free;
NameReplacements.Free;
ChgEntryRepl.Free;
end;
end;