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

simplify code

Browse Source 
git-svn-id: trunk@14596 -
This commit is contained in:
paul 2008-03-20 09:26:25 +00:00
parent d205eeefae
commit 9d77486ba0
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/win32/win32wscomctrls.pp
View File

@ -372,12 +372,6 @@ end;
class function TWin32WSStatusBar.CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND;
const
GripFlags: array[Boolean] of DWord =
(
{ - grip } 0,
{ + grip } SBARS_SIZEGRIP
);
var
Params: TCreateWindowExParams;
begin
@ -386,7 +380,9 @@ begin
// customization of Params
with Params do
begin
Flags := Flags or CCS_NOPARENTALIGN or GripFlags[TStatusBar(AWinControl).SizeGrip and TStatusBar(AWinControl).SizeGripEnabled];
Flags := Flags or CCS_NOPARENTALIGN;
if TStatusBar(AWinControl).SizeGrip and TStatusBar(AWinControl).SizeGripEnabled then
Flags := Flags or SBARS_SIZEGRIP;
pClassName := STATUSCLASSNAME;
WindowTitle := StrCaption;
if ThemeServices.ThemesEnabled then