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

win32: revert accidetially commited unneded code from r51818 #a430b05358

Browse Source 
git-svn-id: trunk@51819 -
This commit is contained in:
ondrej 2016-03-03 15:52:14 +00:00
parent a430b05358
commit bd1f5b8d6d
1 changed files with 12 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
lcl/interfaces/win32/win32wsforms.pp
View File

@ -220,43 +220,31 @@ begin
Result := AForm.BorderStyle;
end;
function CalcBorderStyleFlags(const ABorderStyle: TFormBorderStyle): DWORD;
function CalcBorderStyleFlags(const AForm: TCustomForm): DWORD;
begin
Result := WS_CLIPCHILDREN or WS_CLIPSIBLINGS;
case ABorderStyle of
case GetDesigningBorderStyle(AForm) of
bsSizeable, bsSizeToolWin:
Result := Result or (WS_OVERLAPPED or WS_THICKFRAME or WS_CAPTION);
bsSingle, bsToolWindow:
Result := Result or (WS_OVERLAPPED or WS_BORDER or WS_CAPTION);
bsDialog:
Result := Result or (WS_POPUP or WS_BORDER or WS_CAPTION);
end;
end;
function CalcBorderStyleFlags(const AForm: TCustomForm): DWORD;
var
BS: TFormBorderStyle;
begin
BS := GetDesigningBorderStyle(AForm);
Result := CalcBorderStyleFlags(BS);
if (BS = bsNone) and (AForm.Parent = nil) and (AForm.ParentWindow = 0) then
Result := Result or WS_POPUP;
end;
function CalcBorderStyleFlagsEx(const ABorderStyle: TFormBorderStyle): DWORD;
begin
Result := 0;
case ABorderStyle of
bsDialog:
Result := WS_EX_DLGMODALFRAME or WS_EX_WINDOWEDGE;
bsToolWindow, bsSizeToolWin:
Result := WS_EX_TOOLWINDOW;
bsNone:
if (AForm.Parent = nil) and (AForm.ParentWindow = 0) then
Result := Result or WS_POPUP;
end;
end;
function CalcBorderStyleFlagsEx(const AForm: TCustomForm): DWORD;
begin
Result := CalcBorderStyleFlagsEx(GetDesigningBorderStyle(AForm));
Result := 0;
case GetDesigningBorderStyle(AForm) of
bsDialog:
Result := WS_EX_DLGMODALFRAME or WS_EX_WINDOWEDGE;
bsToolWindow, bsSizeToolWin:
Result := WS_EX_TOOLWINDOW;
end;
end;
function CalcBorderIconsFlags(const AForm: TCustomForm): DWORD;