Easily Create Visually-Stunning Instrumentation Multimedia Applications

If you would like to create professional-looking instrumentation and multimedia applications with VCL and FireMonkey you should read this post!

embarcadero delphi c builder tms instrumentation component set 5482895

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;

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?

Head over and check out the TMS Instrumentation component set on the GetIt portal and download it in the IDE!

embarcadero delphi firemonkey c builder tms instrumentation 6740354

Reduce development time and get to market faster with RAD Studio, Delphi, or C++Builder.
Design. Code. Compile. Deploy.
Start Free Trial Upgrade Today

Free Delphi Community Edition Free C++Builder Community Edition

Easily Create Visually-Stunning Instrumentation Multimedia Applications

What is TMS Instrumentation?

What are the components?

Meters

Sliders & Bars

LED styles

Counters

Multi-colored Matrix

Button and Graphics

Scope

Non-visual components

How to download TMS Instrumentation component set?

About author

Leave a ReplyCancel reply

Join Our Global Developer Community

Search

Something Fresh

Popular Posts

Categories

Popular From News

Categories

Useful Links

Follow us