If you would like to create professional-looking instrumentation and multimedia applications with VCL and FireMonkey you should read this post!
Table of Contents
What is TMS Instrumentation?
TMS Instrumentation is a library full of components, methods, and routines enabling you to create professional-looking instrumentation and a multimedia application. This component set contains more than 80 instrumentation and digital component like LEDs, scopes, banners, sliders, buttons, meters, and much more.
What are the components?
Meters
Sliders & Bars
LED styles
Counters
Multi-colored Matrix
Button and Graphics
Scope
procedure TfrmMeters.VrTimerTimer(Sender: TObject);
begin
if VrJogMeter.Value.Value = -160 then
FMeterUp := true;
if VrJogMeter.Value.Value = 160 then
FMeterUp := false;
if FMeterUp then
VrJogMeter.Value.Value := VrJogMeter.Value.Value + 1
else
VrJogMeter.Value.Value := VrJogMeter.Value.Value - 1;
VrCounter.Value := VrCounter.Value + 1;
if VrCounter.Value = 999999 then
VrCounter.Value := 0;
end;
procedure TfrmMeters.FormShow(Sender: TObject);
begin
Randomize
end;
procedure TfrmMeters.VrWheelChange(Sender: TObject);
begin
VrThermoMeter.Value.Value := VrWheel.Position;
VrTank.Position := VrWheel.Position;
VrMeter.Position := VrWheel.Position;
VrLevelBar.Position := VrWheel.Position;
end;The visual components are just part of the component set. You also get several non-visual components to control the keyboard or to make efficient multithreaded application and more.
Non-visual components
- TVrDirScan: non visual component for locating files on local or network drives
- TVrRunOnce: disable multiple instances of the application
- TVrTrayGauge: component to add progress indicator in system tray
- and more
How to download TMS Instrumentation component set?
