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

Carbon: implemented GetCanUndo for WSCustomEdit. issue #16497

Browse Source 
git-svn-id: trunk@36085 -
This commit is contained in:
zeljko 2012-03-16 11:06:22 +00:00
parent 017a319d5a
commit 447f19d6e2
2 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -112,6 +112,7 @@ type
TCarbonCustomEdit = class(TCarbonControlWithEdit) TCarbonCustomEdit = class(TCarbonControlWithEdit)
public public
function GetCanUndo: Boolean; virtual;
procedure CopyToClip; virtual; procedure CopyToClip; virtual;
procedure CutToClip; virtual; procedure CutToClip; virtual;
procedure PasteFromClip; virtual; procedure PasteFromClip; virtual;
@ -1030,6 +1031,14 @@ end;
{ TCarbonCustomEdit } { TCarbonCustomEdit }
function TCarbonCustomEdit.GetCanUndo: Boolean;
var
AStr: CFStringRef;
begin
AStr := nil;
Result := TXNCanUndoAction(HITextViewGetTXNObject(ControlRef(Widget)), AStr);
end;
procedure TCarbonCustomEdit.CopyToClip; procedure TCarbonCustomEdit.CopyToClip;
begin begin
TXNCopy(HITextViewGetTXNObject(ControlRef(Widget))); TXNCopy(HITextViewGetTXNObject(ControlRef(Widget)));

10
lcl/interfaces/carbon/carbonwsstdctrls.pp
View File

@ -127,7 +127,7 @@ type
TCarbonWSCustomEdit = class(TWSCustomEdit) TCarbonWSCustomEdit = class(TWSCustomEdit)
published published
class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle; override; class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle; override;
class function GetCanUndo(const ACustomEdit: TCustomEdit): Boolean; override;
class function GetSelStart(const ACustomEdit: TCustomEdit): integer; override; class function GetSelStart(const ACustomEdit: TCustomEdit): integer; override;
class function GetSelLength(const ACustomEdit: TCustomEdit): integer; override; class function GetSelLength(const ACustomEdit: TCustomEdit): integer; override;
@ -774,6 +774,14 @@ begin
Result := TLCLIntfHandle(TCarbonEdit.Create(AWinControl, AParams)); Result := TLCLIntfHandle(TCarbonEdit.Create(AWinControl, AParams));
end; end;
class function TCarbonWSCustomEdit.GetCanUndo(const ACustomEdit: TCustomEdit
): Boolean;
begin
if not CheckHandle(ACustomEdit, Self, 'GetSelStart') then
Exit(False);
Result := TCarbonEdit(ACustomEdit.Handle).GetCanUndo;
end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Method: TCarbonWSCustomEdit.GetSelStart Method: TCarbonWSCustomEdit.GetSelStart
Params: ACustomEdit - LCL custom edit Params: ACustomEdit - LCL custom edit