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

Converter: don't try to retype variables when there are no replacements.

Browse Source 
git-svn-id: trunk@27328 -
This commit is contained in:
juha 2010-09-12 11:16:01 +00:00
parent 772c10f63e
commit 8e81570b80
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
converter/missingpropertiesdlg.pas
View File

@ -317,9 +317,10 @@ begin
exit;
end;
// Apply replacement types also to pascal source.
if not CodeToolBoss.RetypeClassVariables(fPascalBuffer,
if TypeReplacements.Tree.Count>0 then
if not CodeToolBoss.RetypeClassVariables(fPascalBuffer,
TLFMObjectNode(fLFMTree.Root).TypeName, TypeReplacements, false) then
Result:=mrCancel;
Result:=mrCancel;
finally
TypeReplacements.Free;
PropReplacements.Free;