From 68ddfa563812bbf18d7c6f009e7cdf8287e7e3e2 Mon Sep 17 00:00:00 2001
From: micha <micha@lazarus-ide.org>
Date: Sun, 13 Jun 2004 13:40:27 +0000
Subject: [PATCH] remove empty SetCursor implementation, prevented
 TWin32WSControl.SetCursor to be called

git-svn-id: trunk@5560 -
---
 lcl/widgetset/wscontrols.pp | 6 ------
 1 file changed, 6 deletions(-)

diff --git a/lcl/widgetset/wscontrols.pp b/lcl/widgetset/wscontrols.pp
index 6842edff7b..b4ba120428 100644
--- a/lcl/widgetset/wscontrols.pp
+++ b/lcl/widgetset/wscontrols.pp
@@ -70,7 +70,6 @@ type
 
     class procedure SetBorderStyle(const AWinControl: TWinControl; const ABorderStyle: TBorderStyle); virtual;
     class procedure SetBounds(const AWinControl: TWinControl; const ALeft, ATop, AWidth, AHeight: Integer); virtual;
-    class procedure SetCursor(const AControl: TControl; const ACursor: TCursor); override;
     class procedure SetPos(const AWinControl: TWinControl; const ALeft, ATop: Integer); virtual;
     class procedure SetSize(const AWinControl: TWinControl; const AWidth, AHeight: Integer); virtual;
     class procedure SetText(const AWinControl: TWinControl; const AText: String); virtual;
@@ -128,11 +127,6 @@ procedure TWSWinControl.SetBounds(const AWinControl: TWinControl; const ALeft, A
 begin
 end;
 
-procedure TWSWinControl.SetCursor(const AControl: TControl; const ACursor: TCursor);
-begin
-  //TODO: add default
-end;
-
 procedure TWSWinControl.SetPos(const AWinControl: TWinControl; const ALeft, ATop: Integer); 
 begin
 end;