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

jvcllaz: Better color selection in JvTimeFrameWork demo.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7113 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-08-09 23:22:20 +00:00
parent 141290dc94
commit e3d87ffab7
2 changed files with 30 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/jvcllaz/run/JvTimeFramework/jvtfglancetextviewer.pas
View File

@ -887,9 +887,16 @@ end;
function TJvTFGVTextControl.ScrollUpBtnRect(aCellRect: TRect): TRect;
var
BtnLeft: Integer;
// h: Integer;
begin
if TopLine > 0 then
begin
(*
h := RectHeight(Viewer.GlanceControl.TitleRect);
BtnLeft := aCellRect.Right - 10 - FScrollUpBtnBMP.Width;
Result := Rect(BtnLeft, aCellRect.Top - h, aCellRect.Right, aCellRect.Top);
*)
Result := Rect(0, 0, FScrollUpBtnBMP.Width, FScrollUpBtnBMP.Height);
BtnLeft := aCellRect.Right - 10 - RectWidth(Result);
OffsetRect(Result, BtnLeft, aCellRect.Top);