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

Cocoa: unify window titles

Browse Source
This commit is contained in:
rich2014 2024-08-07 22:21:29 +08:00
parent 60f26594ad
commit 55c4e2ffe8
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/cocoa/cocoawsforms.pas
View File

@ -792,9 +792,8 @@ begin
cb.window := win;
win.setDelegate(win);
ns := NSStringUtf8(AWinControl.Caption);
ns := ControlTitleToNSStr( AWinControl.Caption );
win.setTitle(ns);
ns.release;
{$ifdef BOOLFIX}
win.setReleasedWhenClosed_(Ord(False)); // do not release automatically
win.setAcceptsMouseMovedEvents_(Ord(True));
@ -939,12 +938,11 @@ begin
if not AWinControl.HandleAllocated then
Exit;
win := TCocoaWindowContent(AWinControl.Handle).lclOwnWindow;
ns := NSStringUtf8(AText);
ns := ControlTitleToNSStr( AText );
if Assigned(win) then
NSwindow(win).setTitle(ns)
else
TCocoaWindowContent(AWinControl.Handle).setStringValue(ns);
ns.release;
end;
class procedure TCocoaWSCustomForm.CloseModal(const ACustomForm: TCustomForm);