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

remove empty SetCursor implementation, prevented TWin32WSControl.SetCursor to be called

Browse Source 
git-svn-id: trunk@5560 -
This commit is contained in:
micha 2004-06-13 13:40:27 +00:00
parent adac72c81a
commit 68ddfa5638
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/widgetset/wscontrols.pp
View File

@ -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;