Display text

This topic demonstrate how to display texts using automation methods from your application.

We have designed a keyboard with text fields representing :

Machine axis positions
Status bar

Each text has a unique code assigned.

800: X axis
801: Y axis
802: Status
803: Next action

Interface

implementation

//************************************************************************************
//X Axis position
procedure TForm1.OnMoving(X, Y :real);
begin

//Display X position without formating
TIServer.Write(800, X);
//Display the formated Y position
TIServer.Write(801, FormatFloat('0,00', Y));

end;

//************************************************************************************
//Display status information
procedure TForm1.OnStatus1;
begin

//Display X position without formating
TIServer.Write(802, 'Ready');

end;

//Text fields support multiline
procedure TForm1.OnStatus2(aText1, aText2 :string);
begin

TIServer.Write(803, aText1 +#13 +aText2);

end;