industrialstuff: More details in package description.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6559 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-07-11 22:26:44 +00:00
parent b735455c33
commit b4ebb7fc97
3 changed files with 10 additions and 4 deletions

View File

@ -44,6 +44,7 @@
<Unit2> <Unit2>
<Filename Value="..\..\source\a3naloggauge.pas"/> <Filename Value="..\..\source\a3naloggauge.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="A3nalogGauge"/>
</Unit2> </Unit2>
</Units> </Units>
</ProjectOptions> </ProjectOptions>

View File

@ -25,7 +25,13 @@
</Debugging> </Debugging>
</Linking> </Linking>
</CompilerOptions> </CompilerOptions>
<Description Value="Industrial-themed (IPV/PCV) components and gauges (e.g. LEDs)."/> <Description Value="Industrial-themed components and gauges:
- LED indicators
- LED seven-sigment display
- stop-light lamps
- analog gauges
- thermometer-like gauge
- ampl"/>
<License Value="MPL + GPL "/> <License Value="MPL + GPL "/>
<Version Minor="2"/> <Version Minor="2"/>
<Files Count="11"> <Files Count="11">

View File

@ -717,9 +717,8 @@ begin
end; end;
end; end;
(*
// This code is faster than the version above, but crashes after a few seconds. // This code is faster than the version above, but crashes after a few seconds.
{
procedure TA3nalogGauge.FastAntiAliasPicture; procedure TA3nalogGauge.FastAntiAliasPicture;
const const
MaxPixelCount = MaxInt div SizeOf(TRGBTriple); MaxPixelCount = MaxInt div SizeOf(TRGBTriple);
@ -800,7 +799,7 @@ begin
intfImgFace.Free; intfImgFace.Free;
end; end;
end; end;
*) }
{$ELSE} {$ELSE}
const const
MaxPixelCount = MaxInt div SizeOf(TRGBTriple); MaxPixelCount = MaxInt div SizeOf(TRGBTriple);