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

carbon: fixed possible bad loop in TCarbonSpinEdit.CreateWidget.Patch by David Jenkins.issue #21732

Browse Source 
git-svn-id: trunk@36962 -
This commit is contained in:
zeljko 2012-04-21 17:34:54 +00:00
parent b0314bb620
commit 322f9edf5d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1151,8 +1151,7 @@ begin
CreateCFString(AParams.Caption, CFString); CreateCFString(AParams.Caption, CFString);
try try
if OSError( if OSError(
CreateEditUniCodeTextControl(GetTopParentWindow, CreateEditUniCodeTextControl(GetTopParentWindow, ParamsToCarbonRect(AParams),
HIRectToCarbonRect(GetEditBounds(ParamsToHIRect(AParams))),
CFString, False, nil, Widget), CFString, False, nil, Widget),
Self, SCreateWidget, 'CreateEditUniCodeTextControl') then RaiseCreateWidgetError(LCLObject); Self, SCreateWidget, 'CreateEditUniCodeTextControl') then RaiseCreateWidgetError(LCLObject);
finally finally
@ -1179,6 +1178,7 @@ begin
inherited; inherited;
SetBounds(ParamsToRect(AParams));
UpdateControl; UpdateControl;
end; end;