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

cocoa: fix isEnabled, setEnabled for NSWindow

Browse Source 
git-svn-id: trunk@34459 -
This commit is contained in:
paul 2011-12-28 05:49:29 +00:00
parent e4a811c552
commit d2f6f1cb1b
2 changed files with 21 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
lcl/interfaces/cocoa/cocoaprivate.pp
View File

@ -119,6 +119,9 @@ type
LCLWindowExtension = objccategory(NSWindow)
function lclIsVisible: Boolean; message 'lclIsVisible'; reintroduce;
function lclIsEnabled: Boolean; message 'lclIsEnabled'; reintroduce;
procedure lclSetEnabled(AEnabled: Boolean); message 'lclSetEnabled:'; reintroduce;
function lclWindowState: Integer; message 'lclWindowState'; reintroduce;
procedure lclInvalidateRect(const r: TRect); message 'lclInvalidateRect:'; reintroduce;
procedure lclInvalidate; message 'lclInvalidate'; reintroduce;
@ -849,18 +852,18 @@ end;
{ LCLObjectExtension }
function LCLObjectExtension.lclIsEnabled:Boolean;
function LCLObjectExtension.lclIsEnabled: Boolean;
begin
Result := False;
end;
procedure LCLObjectExtension.lclSetEnabled(AEnabled:Boolean);
procedure LCLObjectExtension.lclSetEnabled(AEnabled: Boolean);
begin
end;
function LCLObjectExtension.lclIsVisible:Boolean;
function LCLObjectExtension.lclIsVisible: Boolean;
begin
Result:=False;
Result := False;
end;
function LCLObjectExtension.lclWindowState: Integer;
@ -868,7 +871,7 @@ begin
Result := SIZENORMAL;
end;
procedure LCLObjectExtension.lclInvalidateRect(const r:TRect);
procedure LCLObjectExtension.lclInvalidateRect(const r: TRect);
begin
end;
@ -880,11 +883,11 @@ procedure LCLObjectExtension.lclUpdate;
begin
end;
procedure LCLObjectExtension.lclRelativePos(var Left,Top:Integer);
procedure LCLObjectExtension.lclRelativePos(var Left,Top: Integer);
begin
end;
procedure LCLObjectExtension.lclLocalToScreen(var X,Y:Integer);
procedure LCLObjectExtension.lclLocalToScreen(var X,Y: Integer);
begin
end;
@ -1095,6 +1098,16 @@ begin
Result := isVisible;
end;
function LCLWindowExtension.lclIsEnabled: Boolean;
begin
Result := contentView.lclIsEnabled;
end;
procedure LCLWindowExtension.lclSetEnabled(AEnabled: Boolean);
begin
contentView.lclSetEnabled(AEnabled);
end;
function LCLWindowExtension.lclWindowState: Integer;
begin
if isMiniaturized then

2
lcl/interfaces/cocoa/cocoawscommon.pas
View File

@ -7,7 +7,7 @@ interface
uses
Types,
MacOSAll, CocoaAll,
CocoaAll,
Classes, Controls, SysUtils,
//
WSControls, LCLType, LMessages, LCLProc, Forms,