paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 18:58:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TScrollingWinControl.AutoScroll (bug #10774)

Browse Source 
* moved TScrollingWinControl.AutoScroll from published to protected section
* set default value to true
* published AutoScroll in descendant classes

git-svn-id: trunk@15375 -
This commit is contained in:
vincents 2008-06-10 14:30:57 +00:00
parent ad8b434a14
commit d99a049461
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/forms.pp
View File

@ -153,6 +153,7 @@ type
procedure SetVertScrollBar(Value: TControlScrollBar);
function StoreScrollBars : Boolean;
protected
property AutoScroll: Boolean read FAutoScroll write SetAutoScroll default true;
procedure AlignControls(AControl: TControl; var ARect: TRect); override;
procedure CreateWnd; override;
function GetClientScrollOffset: TPoint; override;
@ -172,7 +173,6 @@ type
procedure UpdateScrollbars;
function HasVisibleScrollbars: boolean; virtual;
published
property AutoScroll: Boolean read FAutoScroll write SetAutoScroll;
property HorzScrollBar: TControlScrollBar
read FHorzScrollBar write SetHorzScrollBar stored StoreScrollBars;
property VertScrollBar: TControlScrollBar
@ -189,7 +189,7 @@ type
property Align;
property Anchors;
property AutoSize;
//property AutoScroll;
property AutoScroll;
property BorderSpacing;
property BiDiMode;
property BorderStyle;
@ -608,6 +608,7 @@ type
property ActiveControl;
property Align;
property AllowDropFiles;
property AutoScroll;
property AutoSize;
property BiDiMode;
property BorderIcons;

1
lcl/include/scrollingwincontrol.inc
View File

@ -233,6 +233,7 @@ constructor TScrollingWinControl.Create(TheOwner : TComponent);
begin
Inherited Create(TheOwner);
FAutoScroll := true;
FVertScrollbar := TControlScrollBar.Create(Self, sbVertical);
FHorzScrollbar := TControlScrollBar.Create(Self, sbHorizontal);