paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 19:00:34 +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; class function TWin32WSStatusBar.CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; const AParams: TCreateParams): HWND;
const
GripFlags: array[Boolean] of DWord =
(
{ - grip } 0,
{ + grip } SBARS_SIZEGRIP
);
var var
Params: TCreateWindowExParams; Params: TCreateWindowExParams;
begin begin
@ -386,7 +380,9 @@ begin
// customization of Params // customization of Params
with Params do with Params do
begin 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; pClassName := STATUSCLASSNAME;
WindowTitle := StrCaption; WindowTitle := StrCaption;
if ThemeServices.ThemesEnabled then if ThemeServices.ThemesEnabled then