paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 20:59:06 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/interfacebase.inc
View File

@ -31,13 +31,13 @@ end;
function TWidgetSet.GetAppHandle: THandle; function TWidgetSet.GetAppHandle: THandle;
begin begin
DebugLn('Warning: AppHandle is not implemented for this widgetset yet'); // DebugLn('Warning: AppHandle is not implemented for this widgetset yet');
Result := 0; Result := 0;
end; end;
procedure TWidgetSet.SetAppHandle(const AValue: THandle); procedure TWidgetSet.SetAppHandle(const AValue: THandle);
begin begin
DebugLn('Warning: AppHandle is not implemented for this widgetset yet'); // DebugLn('Warning: AppHandle is not implemented for this widgetset yet');
end; end;
procedure TWidgetSet.PassCmdLineOptions; procedure TWidgetSet.PassCmdLineOptions;

2
lcl/interfacebase.pp
View File

@ -160,7 +160,7 @@ type
// create and destroy // create and destroy
function CreateTimer(Interval: integer; TimerProc: TWSTimerProc): THandle; virtual; abstract; function CreateTimer(Interval: integer; TimerProc: TWSTimerProc): THandle; virtual; abstract;
function DestroyTimer(TimerHandle: THandle): boolean; 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} {$DEFINE IF_BASE_MEMBER}
{$I winapih.inc} {$I winapih.inc}