From 769e36bac20973e0ee71f610d2b078ac6ec23930 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Mon, 17 Jan 2011 10:57:52 +0000
Subject: [PATCH] Converter: Remove some useless reader properties.

git-svn-id: trunk@29065 -
---
 converter/usedunits.pas | 20 +++++++-------------
 1 file changed, 7 insertions(+), 13 deletions(-)

diff --git a/converter/usedunits.pas b/converter/usedunits.pas
index 35b062f596..62a972599f 100644
--- a/converter/usedunits.pas
+++ b/converter/usedunits.pas
@@ -75,15 +75,9 @@ type
     destructor Destroy; override;
     procedure CommentAutomatic(ACommentedUnits: TStringList);
   public
-    property ExistingUnits: TStringList read fExistingUnits;
-    property UnitsToAdd: TStringList read fUnitsToAdd;
-    property UnitsToAddForLCL: TStringList read fUnitsToAddForLCL;
     property MissingUnits: TStringList read fMissingUnits;
-    property UnitsToRemove: TStringList read fUnitsToRemove;
     property UnitsToRename: TStringToStringTree read fUnitsToRename;
     property UnitsToFixCase: TStringToStringTree read fUnitsToFixCase;
-
-    property UnitsToComment: TStringList read fUnitsToComment;
   end;
 
   { TMainUsedUnits }
@@ -606,14 +600,14 @@ procedure TUsedUnitsTool.MoveMissingToComment(AAllCommentedUnits: TStrings);
 begin
   // These units will be commented automatically in one project/package.
   if Assigned(AAllCommentedUnits) then begin
-    AAllCommentedUnits.AddStrings(fMainUsedUnits.MissingUnits);
-    AAllCommentedUnits.AddStrings(fImplUsedUnits.MissingUnits);
+    AAllCommentedUnits.AddStrings(fMainUsedUnits.fMissingUnits);
+    AAllCommentedUnits.AddStrings(fImplUsedUnits.fMissingUnits);
   end;
   // Move all to be commented.
-  fMainUsedUnits.UnitsToComment.AddStrings(fMainUsedUnits.MissingUnits);
-  fMainUsedUnits.MissingUnits.Clear;
-  fImplUsedUnits.UnitsToComment.AddStrings(fImplUsedUnits.MissingUnits);
-  fImplUsedUnits.MissingUnits.Clear;
+  fMainUsedUnits.fUnitsToComment.AddStrings(fMainUsedUnits.fMissingUnits);
+  fMainUsedUnits.fMissingUnits.Clear;
+  fImplUsedUnits.fUnitsToComment.AddStrings(fImplUsedUnits.fMissingUnits);
+  fImplUsedUnits.fMissingUnits.Clear;
 end;
 
 procedure TUsedUnitsTool.AddUnitIfNeeded(AUnitName: string);
@@ -637,7 +631,7 @@ end;
 
 function TUsedUnitsTool.GetMissingUnitCount: integer;
 begin
-  Result:=fMainUsedUnits.MissingUnits.Count+fImplUsedUnits.MissingUnits.Count;
+  Result:=fMainUsedUnits.fMissingUnits.Count+fImplUsedUnits.fMissingUnits.Count;
 end;
 
 end.