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

Cocoa/Form: fix the issue at Desgin time

Browse Source
This commit is contained in:
rich2014 2023-11-17 01:22:23 +08:00
parent 33f0b15dc1
commit 481187923e
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/cocoa/cocoaobject.inc
View File

@ -629,6 +629,8 @@ begin
form:= window.lclGetTarget; form:= window.lclGetTarget;
if not (form is TCustomForm) then if not (form is TCustomForm) then
continue; continue;
if csDesigning in TCustomForm(form).ComponentState then
continue;
style:= TCustomForm(form).FormStyle; style:= TCustomForm(form).FormStyle;
if style in fsAllNonSystemStayOnTop then if style in fsAllNonSystemStayOnTop then
window.setLevel( NSFloatingWindowLevel ); window.setLevel( NSFloatingWindowLevel );
@ -663,6 +665,8 @@ begin
form:= window.lclGetTarget; form:= window.lclGetTarget;
if not (form is TCustomForm) then if not (form is TCustomForm) then
continue; continue;
if csDesigning in TCustomForm(form).ComponentState then
continue;
style:= TCustomForm(form).FormStyle; style:= TCustomForm(form).FormStyle;
if style in fsAllNonSystemStayOnTop then begin if style in fsAllNonSystemStayOnTop then begin
window.setLevel( NSNormalWindowLevel ); window.setLevel( NSNormalWindowLevel );