paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-28 07:22:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added dummy TCocoaWSStatusBar. To avoid segfaults during IDE startup.

Browse Source 
git-svn-id: trunk@43810 -
This commit is contained in:
joost 2014-01-25 21:49:49 +00:00
parent 3171b263aa
commit 3871bf2fd9
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/cocoa/cocoawscomctrls.pas
View File

@ -15,6 +15,16 @@ uses
type
{ TCocoaWSStatusBar }
TCocoaWSStatusBar = class(TWSStatusBar)
published
//class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle; override;
//class procedure PanelUpdate(const AStatusBar: TStatusBar; PanelIndex: integer); override;
//class procedure SetPanelText(const AStatusBar: TStatusBar; PanelIndex: integer); override;
//class procedure Update(const AStatusBar: TStatusBar); override;
end;
{ TCocoaWSProgressBar }
TCocoaWSProgressBar = class(TWSProgressBar)

3
lcl/interfaces/cocoa/cocoawsfactory.pas
View File

@ -154,7 +154,8 @@ end;
// comctrls
function RegisterStatusBar: Boolean; alias : 'WSRegisterStatusBar';
begin
Result := False;
RegisterWSComponent(TStatusBar, TCocoaWSStatusBar);
Result := True;
end;
function RegisterTabSheet: Boolean; alias : 'WSRegisterTabSheet';