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

jvcllaz: Fix issues with LCLScaling and label rounding in TJvRuler

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7209 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-12-14 11:32:22 +00:00
parent 6855104312
commit 19d30d6871
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/jvcllaz/run/JvCtrls/jvruler.pas
View File

@ -158,11 +158,11 @@ begin
roHorizontal: proportion := AYProportion;
roVertical: proportion := AXProportion;
end;
if not IsStoredMarkerSize then
if IsStoredMarkerSize then
FMarkerSize := round(FMarkerSize * proportion);
if not IsStoredMajorTickLength then
if IsStoredMajorTickLength then
FMajorTickLength := round(FMajorTickLength * proportion);
if not IsStoredMinorTickLength then
if IsStoredMinorTickLength then
FMinorTicklength := round(FMinorTickLength * proportion);
end;
end;
@ -273,7 +273,7 @@ begin
if UseUnit = ruPixels then
S := IntToStr(PX)
else
S := IntToStr(Trunc(X));
S := IntToStr(Round(X));
R := Rect(PX - TextWidth(S), 0, PX + TextWidth(S), h);
ts.Alignment := taCenter;
TextRect(R, R.Left, R.Top, S, ts);
@ -291,7 +291,7 @@ begin
if UseUnit = ruPixels then
S := IntToStr(PY)
else
S := IntToStr(Trunc(Y));
S := IntToStr(Round(Y));
R := Rect(0, PY - TextHeight(S), w, PY + TextHeight(S));
ts.Layout := tlCenter;
TextRect(R, R.Left, R.Top, S, ts);