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

LCL carbon: fixed 0012413: TMemo on Carbon, clear doesn't work by patch from skalogryyz

Browse Source 
git-svn-id: trunk@17083 -
This commit is contained in:
tombo 2008-10-21 08:40:25 +00:00
parent ab49d7b9ed
commit e90765f1bc
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -187,6 +187,7 @@ type
procedure SetPasswordChar(AChar: Char); override; procedure SetPasswordChar(AChar: Char); override;
procedure SetReadOnly(AReadOnly: Boolean); override; procedure SetReadOnly(AReadOnly: Boolean); override;
procedure SetWordWrap(AWordWrap: Boolean); virtual; procedure SetWordWrap(AWordWrap: Boolean); virtual;
function SetText(const S: String): Boolean; override;
public public
function GetLineCount: Integer; function GetLineCount: Integer;
function GetLine(AIndex: Integer): String; function GetLine(AIndex: Integer): String;
@ -1680,6 +1681,12 @@ begin
Invalidate; Invalidate;
end; end;
function TCarbonMemo.SetText(const S: String): Boolean;
begin
Result:=inherited SetText(S);
Invalidate;
end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Method: TCarbonMemo.GetLineCount Method: TCarbonMemo.GetLineCount
Returns: Memo line count Returns: Memo line count