/packages/cocoaint/src/appkit/NSFontPanel.inc
https://github.com/slibre/freepascal · Pascal · 158 lines · 107 code · 18 blank · 33 comment · 0 complexity · dde16c328af1b4dba9fa1281ddd92321 MD5 · raw file
- { Parsed from Appkit.framework NSFontPanel.h }
- {$ifdef TYPES}
- {$ifndef NSFONTPANEL_PAS_T}
- {$define NSFONTPANEL_PAS_T}
- { Constants }
- const
- NSFPPreviewButton = 131;
- NSFPRevertButton = 130;
- NSFPSetButton = 132;
- NSFPPreviewField = 128;
- NSFPSizeField = 129;
- NSFPSizeTitle = 133;
- NSFPCurrentField = 134;
- const
- NSFontPanelFaceModeMask = 1 shl 0;
- NSFontPanelSizeModeMask = 1 shl 1;
- NSFontPanelCollectionModeMask = 1 shl 2;
- NSFontPanelUnderlineEffectModeMask = 1 shl 8;
- NSFontPanelStrikethroughEffectModeMask = 1 shl 9;
- NSFontPanelTextColorEffectModeMask = 1 shl 10;
- NSFontPanelDocumentColorEffectModeMask = 1 shl 11;
- NSFontPanelShadowEffectModeMask = 1 shl 12;
- NSFontPanelAllEffectsModeMask = $FFF00;
- NSFontPanelStandardModesMask = $FFFF;
- NSFontPanelAllModesMask = $FFFFFFFF;
- {$endif}
- {$endif}
- {$ifdef RECORDS}
- {$ifndef NSFONTPANEL_PAS_R}
- {$define NSFONTPANEL_PAS_R}
- {$endif}
- {$endif}
- {$ifdef FUNCTIONS}
- {$ifndef NSFONTPANEL_PAS_F}
- {$define NSFONTPANEL_PAS_F}
- {$endif}
- {$endif}
- {$ifdef EXTERNAL_SYMBOLS}
- {$ifndef NSFONTPANEL_PAS_S}
- {$define NSFONTPANEL_PAS_S}
- {$endif}
- {$endif}
- {$ifdef FORWARD}
- NSFontPanel = objcclass;
- NSFontPanelPointer = ^NSFontPanel;
- NSFontPanelPtr = NSFontPanelPointer;
- {$endif}
- {$ifdef CLASSES}
- {$ifndef NSFONTPANEL_PAS_C}
- {$define NSFONTPANEL_PAS_C}
- { NSFontPanel }
- NSFontPanel = objcclass external (NSPanel)
- private
- _manager: NSFontManager;
- _collectionNames: NSArray;
- _selection: id;
- _carbonNotification: Pointer;
- _targetObject: id;
- _familyList: id;
- _faceList: id;
- _sizeList: id;
- _mainCollectionList: id;
- _sizeField: id;
- _sizeSlider: id;
- _sizeSliderBox: id;
- _preview: id;
- _previewCaption: id;
- _mainSplitView: id;
- _mmCollectionList: id;
- _mmFamilyList: id;
- _mmFaceList: id;
- _mmSizeList: id;
- _extrasPopup: id;
- _searchField: id;
- _fixedListButton: id;
- _sliderButton: id;
- _accessoryView: id;
- __fpFlags: record
- case byte of
- 0: (_anonbitfield_NSFontPanel0: cuint);
- 1: (data: bitpacked record
- setFontChange: 0..1;
- setFontAttributeChange: 0..1;
- _delRespFamily: 0..1;
- _delRespFace: 0..1;
- _delRespSize: 0..1;
- _delRespColl: 0..1;
- _collectionDisabled: 0..1;
- _sizeDisabled: 0..1;
- _faceDisabled: 0..1;
- showEffects: 0..1;
- _uiMode: 0..((1 shl 8)-1);
- _reserved: 0..((1 shl 14)-1);
- end;
- );
- end;
- _regularModeBox: id;
- _miniModeBox: id;
- _modeBoxSuperview: id;
- _collectionLabel: id;
- _sizeLabel: id;
- _faceLabel: id;
- _familyLabel: id;
- _sizeStyleButton: id;
- _newSizeField: id;
- _editSizeList: id;
- _editSizeListBox: id;
- _editSizeSliderBox: id;
- _editSizeSliderMaxField: id;
- _editSizeSliderMinField: id;
- _sizeEditWindow: id;
- _availableSizes: id;
- _addCollectionButton: id;
- _removeCollectionButton: id;
- _fontPanelPreviewHeight: CGFloat;
- _typographyPanel: id;
- _actionButton: id;
- _fontEffectsBox: id;
- _sizeStyle: cint;
- {$ifndef cpu64}
- _fpUnused: array[0..(72)-1] of id;
- {$endif}
-
- public
- class function sharedFontPanel: NSFontPanel; message 'sharedFontPanel';
- class function sharedFontPanelExists: Boolean; message 'sharedFontPanelExists';
- function accessoryView: NSView; message 'accessoryView';
- procedure setAccessoryView(aView: NSView); message 'setAccessoryView:';
- procedure setPanelFont_isMultiple(fontObj: NSFont; flag: Boolean); message 'setPanelFont:isMultiple:';
- function panelConvertFont(fontObj: NSFont): NSFont; message 'panelConvertFont:';
- function worksWhenModal: Boolean; message 'worksWhenModal';
- function isEnabled: Boolean; message 'isEnabled';
- procedure setEnabled(flag: Boolean); message 'setEnabled:';
- procedure reloadDefaultFontFamilies; message 'reloadDefaultFontFamilies';
- end;
- { NSFontPanelValidationAdditionsCategory }
- NSFontPanelValidationAdditionsCategory = objccategory external (NSObject)
- function validModesForFontPanel(fontPanel: NSFontPanel): NSUInteger; message 'validModesForFontPanel:';
- end;
- {$endif}
- {$endif}