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

LCL: WS: flag TWidgetSet.AppHandle as platform-dependent, remove DebugLn

Browse Source 
git-svn-id: trunk@58108 -
This commit is contained in:
ondrej 2018-06-04 01:03:43 +00:00
parent 9d0ffcca3c
commit 5a0cd96c96
2 changed files with 3 additions and 3 deletions

4
lcl/include/interfacebase.inc
View File

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

2
lcl/interfacebase.pp
View File

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