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

fix improper windows class selected for bsDialog border

Browse Source 
git-svn-id: trunk@20783 -
This commit is contained in:
dmitry 2009-07-02 12:29:27 +00:00
parent 377ffa4db8
commit a9c170f28d
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/carbon/carbonprivatewindow.inc
View File

@ -1123,10 +1123,17 @@ begin
NewWindowClass := kDocumentWindowClass; NewWindowClass := kDocumentWindowClass;
Attributes := kWindowInWindowMenuAttribute; Attributes := kWindowInWindowMenuAttribute;
end; end;
case (LCLObject as TCustomForm).BorderStyle of
bsDialog:
begin
NewWindowClass := kMovableModalWindowClass;
Attributes := 0;
end;
end;
Attributes := Attributes or Attributes := Attributes or
GetBorderWindowAttrs((LCLObject as TCustomForm).BorderStyle, GetBorderWindowAttrs((LCLObject as TCustomForm).BorderStyle,
(LCLObject as TCustomForm).BorderIcons); (LCLObject as TCustomForm).BorderIcons);
end; end;
//DebugLn('TCarbonWindow.CreateWidget ' + DbgS(ParamsToCarbonRect(AParams))); //DebugLn('TCarbonWindow.CreateWidget ' + DbgS(ParamsToCarbonRect(AParams)));