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

carbon: fix for too small CarbonEdit endless loops.

Browse Source 
git-svn-id: trunk@26357 -
This commit is contained in:
dmitry 2010-06-30 16:15:57 +00:00
parent 5f5c540897
commit bcb0f4c05e
1 changed files with 38 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -153,7 +153,17 @@ type
TCarbonEdit = class(TCarbonCustomEdit)
private
FIsPassword: Boolean;
FIsPassword : Boolean;
// Native Carbon edit's bounds are changing "internal edit" control (not the frame) //
// for this reason EditExtra* constants have been introduced. //
// So the bounds of the frame a changed (for LCL compatibility); //
// Howevr, GetFrameBounds cannot return correct value, if Bounds of the edit //
// is smaller than EditExtraLeft + EditExtraRight, or EditExtraTop+EditExtraBottom //
// Incorrect returned bounds is causes endless loop in LCL processing. //
// For this reason "TooSmall" flag is introduced to return smaller size of the control //
FTooSmall : Boolean;
FSmallBounds : TRect;
protected
procedure CreateWidget(const AParams: TCreateParams); override;
function GetFrameBounds(var r: TRect): Boolean; override;
@ -1431,16 +1441,38 @@ begin
dec(r.Bottom, EditExtraBottom);
inc(r.Left, EditExtraLeft);
dec(r.Right, EditExtraRight);
FTooSmall:=False;
if r.Right<r.Left then
begin
FTooSmall:=True;
r.Right:=r.Left;
end;
if r.Bottom<r.Top then
begin
FTooSmall:=True;
r.Bottom:=r.Top;
end;
if FTooSmall then FSmallBounds:=ARect;
Result := inherited SetBounds(r);
end;
function TCarbonEdit.GetFrameBounds(var r: TRect): Boolean;
begin
Result := inherited GetFrameBounds(r);
dec(r.Top, EditExtraTop);
inc(r.Bottom, EditExtraBottom);
dec(r.Left, EditExtraLeft);
inc(r.Right, EditExtraRight);
if FTooSmall then
begin
r:=FSmallBounds;
Result:=True;
end
else
begin
Result := inherited GetFrameBounds(r);
dec(r.Top, EditExtraTop);
inc(r.Bottom, EditExtraBottom);
dec(r.Left, EditExtraLeft);
inc(r.Right, EditExtraRight);
end;
end;