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"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="11"/> <Version Value="12"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<General> <General>
<Flags>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="demo"/> <Title Value="demo"/>
<Scaled Value="True"/> <Scaled Value="True"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
@ -13,7 +15,6 @@
<XPManifest> <XPManifest>
<DpiAware Value="True"/> <DpiAware Value="True"/>
</XPManifest> </XPManifest>
<Icon Value="0"/>
</General> </General>
<BuildModes Count="1"> <BuildModes Count="1">
<Item1 Name="Default" Default="True"/> <Item1 Name="Default" Default="True"/>
@ -24,7 +25,6 @@
</PublishOptions> </PublishOptions>
<RunParams> <RunParams>
<FormatVersion Value="2"/> <FormatVersion Value="2"/>
<Modes Count="0"/>
</RunParams> </RunParams>
<RequiredPackages Count="2"> <RequiredPackages Count="2">
<Item1> <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 if foShowValues in fFaceOptions then begin
Canvas.Font.Assign(Self.Font); Canvas.Font.Assign(Self.Font);
Canvas.Font.Height := hFnt; Canvas.Font.Height := hFnt;
Canvas.Font.Color := FValueColor;
hTxt := Canvas.TextHeight('Tg'); hTxt := Canvas.TextHeight('Tg');
Canvas.Brush.Style := bsClear; Canvas.Brush.Style := bsClear;
SinCos(DegToRad(A + dA), sinA, cosA); SinCos(DegToRad(A + dA), sinA, cosA);

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

@ -7,6 +7,11 @@
tel: 380-/44/-552-10-29 tel: 380-/44/-552-10-29
TStopLightSensor and TAnalogSensor sensor components 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 Modified by Jurassic Pork for Lazarus "Industrial" package
} }
unit Sensors; unit Sensors;