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

LCL: cleanup, unused Member

Browse Source 
git-svn-id: trunk@21081 -
This commit is contained in:
martin 2009-08-02 22:37:05 +00:00
parent 71222456a4
commit 2f8fc1ed97
2 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/forms.pp
View File

@ -844,7 +844,6 @@ type
FActiveCustomForm: TCustomForm; FActiveCustomForm: TCustomForm;
FActiveForm: TForm; FActiveForm: TForm;
FCursor: TCursor; FCursor: TCursor;
FCursorCount: integer;
FCursorMap: TMap; FCursorMap: TMap;
FCustomForms: TList; FCustomForms: TList;
FCustomFormsZOrdered: TList; FCustomFormsZOrdered: TList;

1
lcl/include/screen.inc
View File

@ -752,7 +752,6 @@ begin
FCursor := AValue; FCursor := AValue;
WidgetSet.SetCursor(Cursors[FCursor]); WidgetSet.SetCursor(Cursors[FCursor]);
end; end;
Inc(FCursorCount);
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------