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

lcl: fix compilation after rev 27070 #69b2b72516

Browse Source 
git-svn-id: trunk@27073 -
This commit is contained in:
blikblum 2010-08-12 12:49:38 +00:00
parent 8046cb27a3
commit bbfbce8fdd
5 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/widgetset/wsbuttons.pp
View File

@ -73,7 +73,11 @@ type
procedure RegisterCustomBitBtn;
procedure RegisterCustomSpeedButton;
implementation
implementation
uses
LResources;
// TODO: Can't be virtual abstract ?

3
lcl/widgetset/wscalendar.pp
View File

@ -67,6 +67,9 @@ type
implementation
uses
LResources;
class function TWSCustomCalendar.GetDateTime(const ACalendar: TCustomCalendar): TDateTime;
begin
Result := 0.0;

3
lcl/widgetset/wscomctrls.pp
View File

@ -226,6 +226,9 @@ type
implementation
uses
LResources;
{ TWSStatusBar }

3
lcl/widgetset/wsdialogs.pp
View File

@ -114,6 +114,9 @@ type
implementation
uses
LResources;
class function TWSCommonDialog.CreateHandle(const ACommonDialog: TCommonDialog): THandle;
begin
Result := 0;

3
lcl/widgetset/wsstdctrls.pp
View File

@ -267,6 +267,9 @@ type
implementation
uses
LResources;
{ TWSScrollBar }
class procedure TWSScrollBar.SetParams(const AScrollBar: TCustomScrollBar);