mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2026-02-19 18:36:42 +01:00
lcl: fix compilation after rev 27070 #69b2b72516
git-svn-id: trunk@27073 -
This commit is contained in:
parent
8046cb27a3
commit
bbfbce8fdd
@ -73,7 +73,11 @@ type
|
|||||||
procedure RegisterCustomBitBtn;
|
procedure RegisterCustomBitBtn;
|
||||||
procedure RegisterCustomSpeedButton;
|
procedure RegisterCustomSpeedButton;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
LResources;
|
||||||
|
|
||||||
|
|
||||||
// TODO: Can't be virtual abstract ?
|
// TODO: Can't be virtual abstract ?
|
||||||
|
|
||||||
|
|||||||
@ -67,6 +67,9 @@ type
|
|||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
LResources;
|
||||||
|
|
||||||
class function TWSCustomCalendar.GetDateTime(const ACalendar: TCustomCalendar): TDateTime;
|
class function TWSCustomCalendar.GetDateTime(const ACalendar: TCustomCalendar): TDateTime;
|
||||||
begin
|
begin
|
||||||
Result := 0.0;
|
Result := 0.0;
|
||||||
|
|||||||
@ -226,6 +226,9 @@ type
|
|||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
LResources;
|
||||||
|
|
||||||
|
|
||||||
{ TWSStatusBar }
|
{ TWSStatusBar }
|
||||||
|
|
||||||
|
|||||||
@ -114,6 +114,9 @@ type
|
|||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
LResources;
|
||||||
|
|
||||||
class function TWSCommonDialog.CreateHandle(const ACommonDialog: TCommonDialog): THandle;
|
class function TWSCommonDialog.CreateHandle(const ACommonDialog: TCommonDialog): THandle;
|
||||||
begin
|
begin
|
||||||
Result := 0;
|
Result := 0;
|
||||||
|
|||||||
@ -267,6 +267,9 @@ type
|
|||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
LResources;
|
||||||
|
|
||||||
{ TWSScrollBar }
|
{ TWSScrollBar }
|
||||||
|
|
||||||
class procedure TWSScrollBar.SetParams(const AScrollBar: TCustomScrollBar);
|
class procedure TWSScrollBar.SetParams(const AScrollBar: TCustomScrollBar);
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user