pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

richview: internal restructure to easily do descendant components (for example rtfview needs this), version upgrade 0.5.2.3->0.5.3

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@74 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jesusr
2007-02-21 18:06:02 +00:00
parent 99f838537c
commit 88a1c9d090
6 changed files with 164 additions and 115 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
components/richview/rvscroll.pas
View File

@ -13,6 +13,7 @@ uses
type
{ TRVScroller }
TRVScroller = class(TCustomControl)
private
FTracking: Boolean;
@ -38,15 +39,7 @@ type
procedure ScrollChildren(dx, dy: Integer);
procedure UpdateChildren;
property FullRedraw: Boolean read FFullRedraw write FFullRedraw;
public
{ Public declarations }
constructor Create(AOwner: TComponent);override;
procedure EraseBackground(DC: HDC); override;
procedure ScrollTo(y: Integer);
property VScrollPos: Integer read GetVScrollPos write SetVScrollPos;
property VScrollMax: Integer read GetVScrollMax;
published
{ Published declarations }
protected // to be publised properties
property Visible;
property TabStop;
property TabOrder;
@ -55,6 +48,13 @@ type
property Tracking: Boolean read FTracking write FTracking;
property VScrollVisible: Boolean read FVScrollVisible write SetVScrollVisible;
property OnVScrolled: TNotifyEvent read FOnVScrolled write FOnVScrolled;
public
{ Public declarations }
constructor Create(AOwner: TComponent);override;
procedure EraseBackground(DC: HDC); override;
procedure ScrollTo(y: Integer);
property VScrollPos: Integer read GetVScrollPos write SetVScrollPos;
property VScrollMax: Integer read GetVScrollMax;
end;
procedure Tag2Y(AControl: TControl);