diff --git a/components/industrialstuff/Example/OnOffSwitch_Knob_Sample/demo.lpi b/components/industrialstuff/Example/OnOffSwitch_Knob_Sample/demo.lpi index 1f00f87aa..de46a7316 100644 --- a/components/industrialstuff/Example/OnOffSwitch_Knob_Sample/demo.lpi +++ b/components/industrialstuff/Example/OnOffSwitch_Knob_Sample/demo.lpi @@ -1,11 +1,13 @@ - + + + + - <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> diff --git a/components/industrialstuff/screenshots/A3Gauge_Demo.png b/components/industrialstuff/screenshots/A3Gauge_Demo.png new file mode 100644 index 000000000..575760163 Binary files /dev/null and b/components/industrialstuff/screenshots/A3Gauge_Demo.png differ diff --git a/components/industrialstuff/screenshots/AnalogSensor_Demo.png b/components/industrialstuff/screenshots/AnalogSensor_Demo.png new file mode 100644 index 000000000..3625fa7c4 Binary files /dev/null and b/components/industrialstuff/screenshots/AnalogSensor_Demo.png differ diff --git a/components/industrialstuff/screenshots/OnOffSwitch_Knob_Sample.png b/components/industrialstuff/screenshots/OnOffSwitch_Knob_Sample.png new file mode 100644 index 000000000..db99f5c26 Binary files /dev/null and b/components/industrialstuff/screenshots/OnOffSwitch_Knob_Sample.png differ diff --git a/components/industrialstuff/source/a3naloggauge.pas b/components/industrialstuff/source/a3naloggauge.pas index 9d803e105..549d8074b 100644 --- a/components/industrialstuff/source/a3naloggauge.pas +++ b/components/industrialstuff/source/a3naloggauge.pas @@ -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); diff --git a/components/industrialstuff/source/sensors.pas b/components/industrialstuff/source/sensors.pas index c9a6d3632..adc3c2720 100644 --- a/components/industrialstuff/source/sensors.pas +++ b/components/industrialstuff/source/sensors.pas @@ -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;