paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-29 21:42:28 +01: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 AutoScroll;
property BorderSpacing; property BorderSpacing;
property BiDiMode; property BiDiMode;
property BorderStyle; property BorderStyle default bsSingle;
property ChildSizing; property ChildSizing;
property ClientHeight; property ClientHeight;
property ClientWidth; property ClientWidth;

1
lcl/include/scrollbox.inc
View File

@ -19,6 +19,7 @@ constructor TScrollBox.Create(AOwner: TComponent);
begin begin
Inherited Create(AOwner); Inherited Create(AOwner);
fCompStyle:= csScrollBox; fCompStyle:= csScrollBox;
BorderStyle := bsSingle;
end; end;
// included by forms.pp // included by forms.pp

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

@ -196,6 +196,7 @@ begin
with Params do with Params do
begin begin
//TODO: Make control respond to user scroll request //TODO: Make control respond to user scroll request
if TScrollBox(AWinControl).BorderStyle = bsSingle then
FlagsEx := FlagsEx or WS_EX_CLIENTEDGE; FlagsEx := FlagsEx or WS_EX_CLIENTEDGE;
pClassName := @ClsName[0]; pClassName := @ClsName[0];
Flags := Flags or WS_HSCROLL or WS_VSCROLL; Flags := Flags or WS_HSCROLL or WS_VSCROLL;

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

@ -135,6 +135,7 @@ begin
with Params do with Params do
begin begin
//TODO: Make control respond to user scroll request //TODO: Make control respond to user scroll request
if TScrollBox(AWinControl).BorderStyle = bsSingle then
FlagsEx := FlagsEx or WS_EX_CLIENTEDGE; FlagsEx := FlagsEx or WS_EX_CLIENTEDGE;
pClassName := @ClsName; pClassName := @ClsName;
Flags := Flags or WS_HSCROLL or WS_VSCROLL; Flags := Flags or WS_HSCROLL or WS_VSCROLL;