From e6be90a770f7a57a9fcf04200abaef3be862c4bb Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Thu, 8 Nov 2007 02:35:38 +0000
Subject: [PATCH] cleanup

git-svn-id: trunk@12777 -
---
 lcl/include/toolbar.inc    | 1 -
 lcl/widgetset/wsimglist.pp | 2 --
 2 files changed, 3 deletions(-)

diff --git a/lcl/include/toolbar.inc b/lcl/include/toolbar.inc
index a0e7529aed..caea15efd6 100644
--- a/lcl/include/toolbar.inc
+++ b/lcl/include/toolbar.inc
@@ -398,7 +398,6 @@ procedure TToolBar.CalculatePreferredSize(var PreferredWidth,
   PreferredHeight: integer; WithThemeSpace: Boolean);
 var
   ARect, Adjusted: TRect;
-  CurAnchors: TAnchors;
 begin
   ARect := ClientRect;
   Adjusted := ARect;
diff --git a/lcl/widgetset/wsimglist.pp b/lcl/widgetset/wsimglist.pp
index 336dd2a8a0..71420ab828 100644
--- a/lcl/widgetset/wsimglist.pp
+++ b/lcl/widgetset/wsimglist.pp
@@ -72,8 +72,6 @@ type
 
   TDefaultImageListImplementor = class(TObjectList)
   private
-    FWidth: Integer;
-    FHeight: Integer;
     FList: TCustomImageList;
   public
     constructor Create(AList: TCustomImageList); reintroduce;