mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-21 20:25:58 +02:00
39 lines
1.0 KiB
ObjectPascal
39 lines
1.0 KiB
ObjectPascal
unit CocoaConfig;
|
|
|
|
{$mode objfpc}{$H+}
|
|
{$modeswitch objectivec1}
|
|
|
|
interface
|
|
|
|
uses
|
|
CocoaAll, Cocoa_Extra;
|
|
|
|
var
|
|
// for compatiblity with LCL 1.8 release. The macOS base is 72ppi
|
|
CocoaBasePPI : Integer = 96;
|
|
|
|
// if set to true, then WS would not assign icons via TCocoaWSForm SetIcon
|
|
// The icon would have to be changed manually. By default LCL behaviour is used
|
|
CocoaIconUse: Boolean = false;
|
|
CocoaToggleBezel : NSBezelStyle = NSRoundedBezelStyle;
|
|
CocoaToggleType : NSButtonType = NSPushOnPushOffButton;
|
|
|
|
CocoaHideFocusNoBorder : Boolean = true;
|
|
|
|
// some localized named might be too long to be returned properly by APIs
|
|
CocoaUseLocalizedFontName : Boolean = false;
|
|
|
|
// default NSTableViewStyle
|
|
CocoaTableViewStyle : NSTableViewStyle = NSTableViewStyleAutomatic;
|
|
|
|
{$ifdef COCOALOOPHIJACK}
|
|
// The flag is set to true once hi-jacked loop is finished (at the end of app)
|
|
// The flag is checked in Menus to avoid "double" Cmd+Q menu
|
|
LoopHiJackEnded : Boolean = false;
|
|
{$endif}
|
|
|
|
implementation
|
|
|
|
end.
|
|
|