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

jvcllaz: Use standard scrollbars instead of TJvTFScrollbar in TJvTFDays. Fix scrollbar range in TJvTFDays going beyond last row.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7141 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-08-16 12:17:13 +00:00
parent d4e4a27557
commit b57f815355
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
components/jvcllaz/run/JvTimeFramework/jvtfdays.pas
View File

@ -1005,9 +1005,12 @@ type
FFromToSel: Boolean;
FSaveFocCol: Integer;
FHScrollBar: TScrollBar;
FVScrolLBar: TScrollBar;
{
FHScrollBar: TJvTFDaysScrollBar;
FVScrollBar: TJvTFDaysScrollBar;
}
FAutoScrollDir: TJvTFAutoScrollDir;
FLiveTimer: Boolean;
@ -4220,7 +4223,7 @@ begin
{$ENDIF Jv_TIMEBLOCKS}
// Create internal objects
FVScrollBar := TJvTFDaysScrollBar.Create(Self);
FVScrollBar := TScrollBar.Create(Self); //TJvTFDaysScrollBar.Create(Self);
with FVScrollBar do
begin
Kind := sbVertical;
@ -4231,7 +4234,7 @@ begin
OnScroll := @ScrollBarScroll;
end;
FHScrollBar := TJvTFDaysScrollBar.Create(Self);
FHScrollBar := TScrollBar.Create(Self); //TJvTFDaysScrollBar.Create(Self);
with FHScrollBar do
begin
Kind := sbHorizontal;
@ -7292,7 +7295,7 @@ begin
if vsbVert in VisibleScrollBars then
with FVScrollBar do
begin
Max := RowCount - 2;
Max := RowCount - FullVisibleRows; //RowCount - 2;
LargeChange := FullVisibleRows;
end;