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

lcl: set default value for TScrollBox.BorderStyle to bsSingle

Browse Source 
win32, wince: handle TScrollBox.BorderStyle on window creation
(issue #0013346)

git-svn-id: trunk@19023 -
This commit is contained in:
paul 2009-03-18 10:48:43 +00:00
parent c6c378afb6
commit 5c9f7efdf3
4 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/forms.pp
View File

@ -195,7 +195,7 @@ type
property AutoScroll;
property BorderSpacing;
property BiDiMode;
property BorderStyle;
property BorderStyle default bsSingle;
property ChildSizing;
property ClientHeight;
property ClientWidth;

3
lcl/include/scrollbox.inc
View File

@ -5,7 +5,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -19,6 +19,7 @@ constructor TScrollBox.Create(AOwner: TComponent);
begin
Inherited Create(AOwner);
fCompStyle:= csScrollBox;
BorderStyle := bsSingle;
end;
// included by forms.pp

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

@ -52,7 +52,7 @@ type
TWin32WSScrollBox = class(TWSScrollBox)
published
class function CreateHandle(const AWinControl: TWinControl;
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
end;
@ -196,7 +196,8 @@ begin
with Params do
begin
//TODO: Make control respond to user scroll request
FlagsEx := FlagsEx or WS_EX_CLIENTEDGE;
if TScrollBox(AWinControl).BorderStyle = bsSingle then
FlagsEx := FlagsEx or WS_EX_CLIENTEDGE;
pClassName := @ClsName[0];
Flags := Flags or WS_HSCROLL or WS_VSCROLL;
SubClassWndProc := nil;

5
lcl/interfaces/wince/wincewsforms.pp
View File

@ -48,7 +48,7 @@ type
TWinCEWSScrollBox = class(TWSScrollBox)
published
class function CreateHandle(const AWinControl: TWinControl;
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
end;
@ -135,7 +135,8 @@ begin
with Params do
begin
//TODO: Make control respond to user scroll request
FlagsEx := FlagsEx or WS_EX_CLIENTEDGE;
if TScrollBox(AWinControl).BorderStyle = bsSingle then
FlagsEx := FlagsEx or WS_EX_CLIENTEDGE;
pClassName := @ClsName;
Flags := Flags or WS_HSCROLL or WS_VSCROLL;
SubClassWndProc := nil;