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

8
components/industrialstuff/Example/OnOffSwitch_Knob_Sample/demo.lpi
View File

@ -1,11 +1,13 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="11"/>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="demo"/>
<Scaled Value="True"/>
<ResourceType Value="res"/>
@ -13,7 +15,6 @@
<XPManifest>
<DpiAware Value="True"/>
</XPManifest>
<Icon Value="0"/>
</General>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
@ -24,7 +25,6 @@
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
<Modes Count="0"/>
</RunParams>
<RequiredPackages Count="2">
<Item1>

BIN
components/industrialstuff/screenshots/A3Gauge_Demo.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 21 KiB

BIN
components/industrialstuff/screenshots/AnalogSensor_Demo.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 8.0 KiB

BIN
components/industrialstuff/screenshots/OnOffSwitch_Knob_Sample.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.1 KiB

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;