hi, we are just porting our Carbon app to cocoa. The Form always on top is the first problem we faced. I do not have an account on Bugtracker or SVN so please somebody who has it - check in the fix and mark the bug as resolved:
in CocoaWSForms
change this:
const
FormStyleToWindowLevel: array[TFormStyle] of NSInteger = (
{ fsNormal } 4, // NSNormalWindowLevel
{ fsMDIChild } 4, // NSNormalWindowLevel
{ fsMDIForm } 4, // NSNormalWindowLevel
{ fsStayOnTop } 9, // NSStatusWindowLevel
{ fsSplash } 9, // NSStatusWindowLevel
{ fsSystemStayOnTop } 10 // NSModalPanelWindowLevel
);
into this (NSNormalWindowLevel value fixed):
const
FormStyleToWindowLevel: array[TFormStyle] of NSInteger = (
{ fsNormal } 0, // NSNormalWindowLevel
{ fsMDIChild } 0, // NSNormalWindowLevel
{ fsMDIForm } 0, // NSNormalWindowLevel
{ fsStayOnTop } 9, // NSStatusWindowLevel
{ fsSplash } 9, // NSStatusWindowLevel
{ fsSystemStayOnTop } 10 // NSModalPanelWindowLevel
);
...then recompile Lazarus
Cheers,
Tomasz