From 5a0cd96c96a2ed5605a28c742c665b62bd85a54a Mon Sep 17 00:00:00 2001 From: ondrej Date: Mon, 4 Jun 2018 01:03:43 +0000 Subject: [PATCH] LCL: WS: flag TWidgetSet.AppHandle as platform-dependent, remove DebugLn git-svn-id: trunk@58108 - --- lcl/include/interfacebase.inc | 4 ++-- lcl/interfacebase.pp | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/lcl/include/interfacebase.inc b/lcl/include/interfacebase.inc index 77ff89bef0..56a6de2b10 100644 --- a/lcl/include/interfacebase.inc +++ b/lcl/include/interfacebase.inc @@ -31,13 +31,13 @@ end; function TWidgetSet.GetAppHandle: THandle; begin - DebugLn('Warning: AppHandle is not implemented for this widgetset yet'); + // DebugLn('Warning: AppHandle is not implemented for this widgetset yet'); Result := 0; end; procedure TWidgetSet.SetAppHandle(const AValue: THandle); begin - DebugLn('Warning: AppHandle is not implemented for this widgetset yet'); + // DebugLn('Warning: AppHandle is not implemented for this widgetset yet'); end; procedure TWidgetSet.PassCmdLineOptions; diff --git a/lcl/interfacebase.pp b/lcl/interfacebase.pp index c15f6002ef..8b77d13b7d 100644 --- a/lcl/interfacebase.pp +++ b/lcl/interfacebase.pp @@ -160,7 +160,7 @@ type // create and destroy function CreateTimer(Interval: integer; TimerProc: TWSTimerProc): THandle; virtual; abstract; function DestroyTimer(TimerHandle: THandle): boolean; virtual; abstract; - property AppHandle: THandle read GetAppHandle write SetAppHandle; + property AppHandle: THandle read GetAppHandle write SetAppHandle; platform; {$DEFINE IF_BASE_MEMBER} {$I winapih.inc}