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

Cocoa: rename CocoaConfig to CocoaConst

Browse Source
This commit is contained in:
rich2014 2023-11-21 00:43:42 +08:00
parent 97c3ff8515
commit 7610b7e341
7 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5,7 +5,7 @@ uses
agl{%H-},
cocoa_extra{%H-},
cocoacaret{%H-},
cocoaconfig{%H-},
cocoaconst{%H-},
cocoacursor{%H-},
cocoagdiobjects{%H-},
cocoaint{%H-},

2
lcl/interfaces/cocoa/cocoaconfig.pas → lcl/interfaces/cocoa/cocoaconst.pas
View File

@ -1,4 +1,4 @@
unit CocoaConfig;
unit CocoaConst;
{$mode ObjFPC}{$H+}
{$modeswitch objectivec1}

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

@ -33,7 +33,7 @@ uses
// darwin bindings
MacOSAll,
// private
CocoaAll, CocoaConfig, CocoaPrivate, CocoaUtils, CocoaGDIObjects, CocoaCursor,
CocoaAll, CocoaConst, CocoaPrivate, CocoaUtils, CocoaGDIObjects, CocoaCursor,
cocoa_extra, CocoaMenus, CocoaWindows, CocoaScrollers,
CocoaWSClipboard, CocoaTextEdits,
// LCL

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

@ -10,7 +10,7 @@ interface
uses
Types, Classes, Controls, SysUtils,
WSControls, LCLType, LCLMessageGlue, LMessages, LCLProc, LCLIntf, Graphics, Forms,
CocoaAll, CocoaInt, CocoaConfig, CocoaPrivate, CocoaUtils,
CocoaAll, CocoaInt, CocoaConst, CocoaPrivate, CocoaUtils,
CocoaGDIObjects, CocoaCursor, CocoaCaret, CocoaScrollers, cocoa_extra;
type

6
lcl/interfaces/cocoa/cocoawsforms.pas
View File

@ -30,7 +30,7 @@ uses
// Widgetset
WSForms, WSLCLClasses, LCLMessageGlue,
// LCL Cocoa
CocoaInt, CocoaConfig, CocoaPrivate, CocoaUtils, CocoaWSCommon, CocoaMenus,
CocoaInt, CocoaConst, CocoaPrivate, CocoaUtils, CocoaWSCommon, CocoaMenus,
CocoaGDIObjects,
CocoaWindows, CocoaScrollers, cocoa_extra;
@ -642,7 +642,7 @@ begin
SetWindowButtonState(NSWindowZoomButton, (biMaximize in ABorderIcons) and (ABorderStyle in [bsSizeable, bsSizeToolWin]), (ABorderStyle in [bsSingle, bsSizeable]) and (biSystemMenu in ABorderIcons));
SetWindowButtonState(NSWindowCloseButton, True, (ABorderStyle <> bsNone) and (biSystemMenu in ABorderIcons));
if not CocoaConfig.CocoaIconUse then
if not CocoaConst.CocoaIconUse then
begin
btn := AWindow.standardWindowButton(NSWindowDocumentIconButton);
url := nil;
@ -1048,7 +1048,7 @@ var
trg : NSImage;
btn : NSButton;
begin
if CocoaConfig.CocoaIconUse then Exit;
if CocoaConst.CocoaIconUse then Exit;
if not AForm.HandleAllocated then Exit;
win := TCocoaWindowContent(AForm.Handle).lclOwnWindow;

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

@ -33,7 +33,7 @@ uses
// Widgetset
WSStdCtrls, WSLCLClasses,
// LCL Cocoa
CocoaConfig, CocoaWSCommon, CocoaPrivate, CocoaUtils, CocoaGDIObjects, CocoaButtons,
CocoaConst, CocoaWSCommon, CocoaPrivate, CocoaUtils, CocoaGDIObjects, CocoaButtons,
CocoaTables, CocoaTextEdits, CocoaScrollers, Cocoa_Extra;
type

4
lcl/interfaces/lcl.lpk
View File

@ -2614,9 +2614,9 @@ end;"/>
<UnitName Value="AllLCLIntfUnits"/>
</Item529>
<Item530>
<Filename Value="cocoa/cocoaconfig.pas"/>
<Filename Value="cocoa/cocoaconst.pas"/>
<AddToUsesPkgSection Value="False"/>
<UnitName Value="CocoaConfig"/>
<UnitName Value="CocoaConst"/>
</Item530>
<Item531>
<Filename Value="cocoa/cocoacursor.pas"/>