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

cocoa: implement ShowModal and CloseModal for TCustomForm

Browse Source 
git-svn-id: trunk@34624 -
This commit is contained in:
paul 2012-01-06 16:03:18 +00:00
parent c4f0d1a633
commit 69347e3724
1 changed files with 18 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
lcl/interfaces/cocoa/cocoawsforms.pp
View File

@ -97,8 +97,8 @@ type
class function GetTextLen(const AWinControl: TWinControl; var ALength: Integer): Boolean; override;
class procedure SetText(const AWinControl: TWinControl; const AText: String); override;
// class procedure CloseModal(const ACustomForm: TCustomForm); override;
// class procedure ShowModal(const ACustomForm: TCustomForm); override;
class procedure CloseModal(const ACustomForm: TCustomForm); override;
class procedure ShowModal(const ACustomForm: TCustomForm); override;
class procedure SetAlphaBlend(const ACustomForm: TCustomForm; const AlphaBlend: Boolean; const Alpha: Byte); override;
class procedure SetBorderIcons(const AForm: TCustomForm; const ABorderIcons: TBorderIcons); override;
@ -146,6 +146,9 @@ type
implementation
uses
CocoaInt;
{ TLCLWindowCallback }
procedure TLCLWindowCallback.Activate;
@ -182,15 +185,6 @@ end;
{ TCocoaWSCustomForm }
{------------------------------------------------------------------------------
Method: TCocoaWSCustomForm.CreateHandle
Params: AWinControl - LCL control
AParams - Creation parameters
Returns: Handle to the window in Cocoa interface
Creates new window in Cocoa interface with the specified parameters
------------------------------------------------------------------------------}
class procedure TCocoaWSCustomForm.SetStyleMaskFor(AWindow: NSWindow;
ABorderStyle: TFormBorderStyle; ABorderIcons: TBorderIcons;
ADesigning: Boolean);
@ -291,6 +285,19 @@ begin
ns.release;
end;
class procedure TCocoaWSCustomForm.CloseModal(const ACustomForm: TCustomForm);
begin
if ACustomForm.HandleAllocated then
if CocoaWidgetSet.NSApp.modalWindow = NSWindow(ACustomForm.Handle) then
CocoaWidgetSet.NSApp.stopModal;
end;
class procedure TCocoaWSCustomForm.ShowModal(const ACustomForm: TCustomForm);
begin
if ACustomForm.HandleAllocated then
CocoaWidgetSet.NSApp.runModalForWindow(NSWindow(ACustomForm.Handle));
end;
class procedure TCocoaWSCustomForm.SetAlphaBlend(const ACustomForm: TCustomForm; const AlphaBlend: Boolean; const Alpha: Byte);
begin
if ACustomForm.HandleAllocated then