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
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 |
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?
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
Design. Code. Compile. Deploy.
Start Free Trial Upgrade Today
Free Delphi Community Edition Free C++Builder Community Edition
