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

industrial: Some minor fixes. Add screenshots of sample projects for wiki page.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8777 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-03-27 22:01:35 +00:00
parent 782c3c766b
commit 75f31a41fe
6 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/industrialstuff/source/a3naloggauge.pas
View File

@ -526,6 +526,7 @@ begin
if foShowValues in fFaceOptions then begin
Canvas.Font.Assign(Self.Font);
Canvas.Font.Height := hFnt;
Canvas.Font.Color := FValueColor;
hTxt := Canvas.TextHeight('Tg');
Canvas.Brush.Style := bsClear;
SinCos(DegToRad(A + dA), sinA, cosA);

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

@ -7,6 +7,11 @@
tel: 380-/44/-552-10-29
TStopLightSensor and TAnalogSensor sensor components
License (by Mike Skolnik": "My components are freeware for private and
commercial use so you may use any in your applications but without any
warranties from my side."
Modified by Jurassic Pork for Lazarus "Industrial" package
}
unit Sensors;