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

Industrial: Make TAnalogSensor high-dpi aware.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6856 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-04-22 14:16:01 +00:00
parent 818d8099cb
commit 950e85af8f
1 changed files with 22 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
components/industrialstuff/source/sensors.pas
View File

@@ -318,14 +318,15 @@ begin
end;
procedure TAnalogSensor.PaintAsNeedle;
var MiddleX: Integer;
Angle: Double;
X, Y, W, H: Integer;
var
MiddleX: Integer;
Angle: Double;
X, Y, W, H: Integer;
begin
X := 20;
Y := 23;
W := ClientWidth - 2*20; //130;
H := ClientHeight - 2*23; //33;
X := Scale96ToFont(20);
Y := Scale96ToFont(23);
W := ClientWidth - 2*X;
H := ClientHeight - 2*Y;
if (W < 1) or (H < 1) then Exit;
with Canvas do
@@ -365,13 +366,14 @@ begin
end;
procedure TAnalogSensor.PaintAsHorizontal;
var MiddleX: Integer;
X, Y, W, H: Integer;
var
MiddleX: Integer;
X, Y, W, H: Integer;
begin
X := 20;
Y := 23;
W := ClientWidth - 2*20; //130;
H := ClientHeight - 2*23; //33;
X := Scale96ToFont(20);
Y := Scale96ToFont(23);
W := ClientWidth - 2*X;
H := ClientHeight - 2*Y;
if (W < 1) or (H < 1) then Exit;
with Canvas do
@@ -406,13 +408,14 @@ begin
end;
procedure TAnalogSensor.PaintAsVertical;
var MiddleY: Integer;
X, Y, W, H: Integer;
var
MiddleY: Integer;
X, Y, W, H: Integer;
begin
X := 20;
Y := 23;
W := ClientWidth - 2*20; //130;
H := ClientHeight - 2*23; //33;
X := Scale96ToFont(20);
Y := Scale96ToFont(23);
W := ClientWidth - 2*X;
H := ClientHeight - 2*Y;
if (W < 1) or (H < 1) then Exit;
with Canvas do