paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 20:21:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

remove TApplication.Handle (not cross-platform)

Browse Source 
git-svn-id: trunk@7029 -
This commit is contained in:
micha 2005-03-26 11:24:55 +00:00
parent 2cee620ccc
commit e26daffd9e
2 changed files with 3 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/forms.pp
View File

@ -886,7 +886,6 @@ type
FApplicationHandlers: array[TApplicationHandlerType] of TMethodList; FApplicationHandlers: array[TApplicationHandlerType] of TMethodList;
FCaptureExceptions: boolean; FCaptureExceptions: boolean;
FFlags: TApplicationFlags; FFlags: TApplicationFlags;
FHandle : THandle;
FHint: string; FHint: string;
FHintColor: TColor; FHintColor: TColor;
FHintControl: TControl; FHintControl: TControl;
@ -970,7 +969,6 @@ type
procedure ReleaseComponent(AComponent: TComponent); procedure ReleaseComponent(AComponent: TComponent);
function ExecuteAction(ExeAction: TBasicAction): Boolean; override; function ExecuteAction(ExeAction: TBasicAction): Boolean; override;
function UpdateAction(TheAction: TBasicAction): Boolean; override; function UpdateAction(TheAction: TBasicAction): Boolean; override;
function HandleAllocated: boolean;
procedure HandleException(Sender: TObject); override; procedure HandleException(Sender: TObject); override;
procedure HandleMessage; procedure HandleMessage;
function HelpCommand(Command: Word; Data: Longint): Boolean; function HelpCommand(Command: Word; Data: Longint): Boolean;
@ -1026,7 +1024,6 @@ type
procedure DoTabKey(AControl: TWinControl; var Key: Word;Shift: TShiftState); procedure DoTabKey(AControl: TWinControl; var Key: Word;Shift: TShiftState);
property CaptureExceptions: boolean read FCaptureExceptions property CaptureExceptions: boolean read FCaptureExceptions
write SetCaptureExceptions; write SetCaptureExceptions;
property Handle: THandle read FHandle;
//property HelpSystem : IHelpSystem read FHelpSystem; //property HelpSystem : IHelpSystem read FHelpSystem;
property Hint: string read FHint write SetHint; property Hint: string read FHint write SetHint;
property HintColor: TColor read FHintColor write SetHintColor; property HintColor: TColor read FHintColor write SetHintColor;

14
lcl/include/application.inc
View File

@ -77,7 +77,6 @@ begin
FMainForm := nil; FMainForm := nil;
FMouseControl := nil; FMouseControl := nil;
FHandle := 0;
FHintColor := DefHintColor; FHintColor := DefHintColor;
FHintPause := DefHintPause; FHintPause := DefHintPause;
FHintShortCuts := True; FHintShortCuts := True;
@ -1449,21 +1448,14 @@ begin
if Assigned(FOnActionUpdate) then FOnActionUpdate(TheAction,Result); if Assigned(FOnActionUpdate) then FOnActionUpdate(TheAction,Result);
end; end;
{------------------------------------------------------------------------------
function TApplication.HandleAllocated: boolean;
Checks if Handle is allocated.
------------------------------------------------------------------------------}
function TApplication.HandleAllocated: boolean;
begin
Result:=FHandle<>0;
end;
// included by forms.pp // included by forms.pp
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.112 2005/03/26 11:24:55 micha
remove TApplication.Handle (not cross-platform)
Revision 1.111 2005/03/25 08:58:11 micha Revision 1.111 2005/03/25 08:58:11 micha
implement ShowInTaskBar for win32 intf implement ShowInTaskBar for win32 intf