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

FIX: Cocoa: SecureTextField crashed

Browse Source
This commit is contained in:
rich2014 2023-05-09 21:20:28 +08:00 committed by Maxim Ganetsky
parent 90c5cbd130
commit 769dc338bc
1 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lcl/interfaces/cocoa/cocoawsstdctrls.pas
View File

@ -1213,18 +1213,26 @@ end;
class procedure TCocoaWSCustomEdit.SetText(const AWinControl: TWinControl;
const AText: String);
var
txt : NSString; // NSString for AText
txtWithLineBreak: NSString; // need not release
field: TCocoaTextField;
txt : NSString; // NSString for AText
txtWithoutLineBreak: NSString; // need not release
field: NSTextField;
begin
if (AWinControl.HandleAllocated) then
if not AWinControl.HandleAllocated then exit;
field:= NSTextField(AWinControl.Handle);
if TCustomEdit(AWinControl).PasswordChar=#0 then
begin
field:= TCocoaTextField(AWinControl.Handle);
// TCocoaTextField
txt:= NSStringUtf8(AText);
txtWithLineBreak := NSStringRemoveLineBreak(txt);
field.setStringValue(txtWithLineBreak);
txtWithoutLineBreak:= NSStringRemoveLineBreak(txt);
field.setStringValue(txtWithoutLineBreak);
field.textDidChange(nil); // check maxLength and calls controls callback (if any)
txt.release;
end
else
begin
// TCocoaSecureTextField
ControlSetTextWithChangeEvent(field, AText);
end;
end;