paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 12:59:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

added overridable TCarbonMemo creation options

Browse Source 
git-svn-id: trunk@20451 -
This commit is contained in:
dmitry 2009-06-05 16:50:21 +00:00
parent fde74a01fe
commit 610acd9c4d
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/interfaces/carbon/carbonedits.pp
View File

@ -173,6 +173,7 @@ type
procedure CreateWidget(const AParams: TCreateParams); override; procedure CreateWidget(const AParams: TCreateParams); override;
procedure DestroyWidget; override; procedure DestroyWidget; override;
procedure GetLineOffset(AIndex: Integer; out AStart, AEnd: TXNOffset); procedure GetLineOffset(AIndex: Integer; out AStart, AEnd: TXNOffset);
function GetCreationOptions: TXNFrameOptions; virtual;
public public
procedure TextDidChange; override; procedure TextDidChange; override;
function GetTextObject: TXNObject; function GetTextObject: TXNObject;
@ -1387,15 +1388,10 @@ end;
procedure TCarbonMemo.CreateWidget(const AParams: TCreateParams); procedure TCarbonMemo.CreateWidget(const AParams: TCreateParams);
var var
Control: ControlRef; Control: ControlRef;
Options: OptionBits;
R: HIRect; R: HIRect;
begin begin
Options := kTXNMonostyledTextMask // disable more font styles
or kTXNDontDrawSelectionWhenInactiveMask // hide selection, when inactive
or kOutputTextInUnicodeEncodingMask;
R := ParamsToHIRect(AParams); R := ParamsToHIRect(AParams);
if OSError(HITextViewCreate(@R, 0, Options, Control), if OSError(HITextViewCreate(@R, 0, GetCreationOptions, Control),
Self, SCreateWidget, 'HITextViewCreate') then RaiseCreateWidgetError(LCLObject); Self, SCreateWidget, 'HITextViewCreate') then RaiseCreateWidgetError(LCLObject);
Widget := Control; Widget := Control;
@ -1489,6 +1485,13 @@ begin
end; end;
end; end;
function TCarbonMemo.GetCreationOptions: TXNFrameOptions;
begin
Result := kTXNMonostyledTextMask // disable more font styles
or kTXNDontDrawSelectionWhenInactiveMask // hide selection, when inactive
or kOutputTextInUnicodeEncodingMask
end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Method: TCarbonMemo.TextDidChange Method: TCarbonMemo.TextDidChange