TMS Software

Frequently Asked Component Specific Questions

Options

Display all FAQ items

Search FAQ items:

Displaying items 481 to 495 of 508, page 33 of 34

<< previous next >>

TAdvTreeView
How to change the starting directory for TAdvDirectoryTreeview

You can use the following code to initialize the treeview with all the drives:

procedure TForm1.FormCreate(Sender: TObject); 
begin
  AdvDirectoryTreeView1.LoadDrives;
end;

TAdvOfficePager
Draw attention to a tab in TAdvOfficePager to make it blink

To do this, make sure the tab is visible when it is not selected by setting AdvOfficePager1.ShowNonSelectedTabs = true and then set custom tab appearance colors for normal & selected state of the tab with:

   // make sure the default style color is used
  AdvOfficePager12.UseTabAppearance := false;
   // initialization of colors
  AdvOfficePager12.TabAppearance.Color := clRed;
  AdvOfficePager12.TabAppearance.ColorTo := clRed;
  AdvOfficePager12.TabAppearance.ColorMirror := clRed;
  AdvOfficePager12.TabAppearance.ColorMirrorTo := clRed;

  AdvOfficePager12.TabAppearance.ColorSelected := clRed;
  AdvOfficePager12.TabAppearance.ColorSelectedTo := clRed;
  AdvOfficePager12.TabAppearance.ColorMirrorSelected := clRed;
  AdvOfficePager12.TabAppearance.ColorMirrorSelectedTo := clRed;

To draw attention to the tab, now let the tab switch between the default style color and the custom color via a timer:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if DoAttention then
    AdvOfficePager12.UseTabAppearance := not AdvOfficePager12.UseTabAppearance
 else
     AdvOfficePager12.UseTabAppearance := false;
end;

Persist COM port settings of TMS Async in an INI file

Setup the location for the INI file:

VaComm.SettingsStore.Key := ''.\mycomsettings.ini''; 
VaComm.SettingsStore.Sections := ''COMPARAMS''; 
VaComm.SettingsStore.Location := slINIFile;

Do actual save & load of the settings with:

VaComm.SaveSettings;
VaComm.LoadSettings;

TMS VCL Cloud Pack
How to set the language for a synthesized text with TAdvMSBingSpeech

Use the VoiceFont parameter of the Synthesize call to change the language of the resulting audio. Besides English there are several other languages available, including German, French and Spanish. You can also choose to use a Female or Male voice.

Example:

MSBingSpeech1.Synthesize(Text, Stream, bvGermanDEFemale);

TMS FMX Cloud Pack
How to set the language for a synthesized text with TMSFMXCloudBingSpeech

MSBingSpeech1.Synthesize(Text, Stream, bvGermanDEFemale);

TMS VCL WebGMaps
Automatically zoom the map to display all markers

Example:

WebGMaps1.MapZoomTo(WebGMaps1.Markers.Bounds);

TMS FMX WebGMaps
Automatically zoom the map to display all markers.

Example:

WebGMaps1.MapZoomTo(WebGMaps1.Markers.Bounds);

TMS FNC UI Pack
How to configure TTMSFNCPlanner with a custom time line

There are 2 ways you can achieve this. You can add a disabled range of dates that cannot be selected, but they will be visible. You can achieve this by implementing the OnIsDateTimeDisabled event.

The second way is to use the pmCustom planner mode that can be used in combination with CustomDateTimes list as demonstrated in the following sample.

TMSFNCPlanner1.BeginUpdate;

TMSFNCPlanner1.Mode := pmCustom;
for I := 0 to 8 do
  TMSFNCPlanner1.CustomDateTimes.Add(IncMinute(EncodeDateTime(2017, 2, 22, 11, 0, 0, 0), 15 * I));

for I := 0 to 9 do
  TMSFNCPlanner1.CustomDateTimes.Add(IncMinute(EncodeDateTime(2017, 2, 22, 14, 0, 0, 0), 20 * I));

TMSFNCPlanner1.TimeLine.DisplayUnitFormat := ''h mm AMPM'';

TMSFNCPlanner1.TimeLineAppearance.LeftSize := 80;

TMSFNCPlanner1.EndUpdate;

TMS FNC UI Pack
Programmatically changing the scroll position in the TTMSFNCPlanner

You can programmatically change the vertical scroll position with:

  TMSFNCPlanner1.VerticalScrollBar.Position := scrollpos

If the Planner can also scroll horizontal, the horizontal scroll position can be changed with:

  TMSFNCPlanner1.HorizontalScrollBar.Position := scrollpos;

TMS MQTT
Sending and receiving images with TMS MQTT

The following code shows you how to send a selected image to a specific topic on the broker:

procedure TMQTTExampleForm.SetProfilePictureButtonClick(Sender: TObject);
var
  fs: TFileStream;
  payload: TBytes;
begin
  SelectProfileImageDialog.Filter := ''JPG images|*.jpg'';
  if (SelectProfileImageDialog.Execute) then
  begin
    fs := TFileStream.Create(SelectProfileImageDialog.FileName, fmOpenRead);
    try
      SetLength(payload, fs.Size);
      fs.Read(payload[0], fs.Size);
      MQTTClient.Publish(''myapp/profile/image'', payload);
    finally
      fs.Free;
    end;
  end;
end;

On the receiving end, this code snippet can be used to get the file and save it back to the file system:

procedure TMQTTExampleForm.PublishReceived(ASender: TObject; APacketID: Word; ATopic: string; APayload: TBytes);
var
  fs: TBytesStream;
begin
  if (ATopic = ''myapp/profile/image'') then
  begin
    fs := TBytesStream.Create(APayload);
    try
      fs.SaveToFile(''c:\temp\mqtt\profile-image.jpg'');
    finally
      fs.Free;
    end;
  end;
end;

How to use TVrBanner

TVrBanner can auto-scroll a bitmap at runtime. Load the bitmap you want to scroll via VrBranner.Bitmap and set the direction VrBanner.Direction. The speed of scrolling is determined by VrBanner.TimeInterval

TMS Cryptography Pack
How to run an application with TMS Cryptography Pack in iOSsimulator

To run an application with TMS Cryptography Pack in iOSsimulator, you have to add the path of the libCrypto.a, i.e. FullTMSCryptographyPackInstallationPath/libiOSDevice64 in the Search Path in Project/Options/Delphi Compiler.

TAdvStringGrid
RowSelectCount and SelectedRowCount

RowSelectCount returns the nr. of disjunct selected rows.

SelectedRowCount returns the nr. of selected rows, irrespective of disjunct selection or normal selection or just cell selection.

TMS MQTT
OnLog event

The OnLog event is triggered whenever the logger has a message to log. You can use this event to redirect the logging to where you want.
A simple example:

procedure TForm3.TMSMQTTLogger1Log(Sender: TObject; ALevel:
TTMSMQTTLogLevel;
  AMessage: string);
begin
  memo1.Lines.Add(AMessage);
end;

This logs all messages of the TMS MQTT Client logger to a memo on the form.

TAdvSpreadGrid
Using the expression parser / evaluator

The expression parser / evaluator of TAdvSpreadGrid, our spreadsheet component , can also be separately used. This expression evaluator is in the unit AdvFormula.

To use it, create an instance of the class TAdvFormula and it can be used in the following way:

var
  Fm : TAdvFormula;
  R: double;
begin
  Fm := TAdvFormula.Create(self);
  try
    Fm.Expression := ''1+2'';
    if Fm.Calc(r) then
       showmessage(floattostr(r));
  finally
    Fm.Free;
end;

The expression parser / evaluator also has 100 internal variables (V0..V99) and this can be used in the following way:

var
  Fm : TAdvFormula;
  R: double;
begin
  Fm := TAdvFormula.Create(self);
  try
    fm.v[0] := 12;
    fm.v[1] := 25;
    Fm.Expression := ''V0+V1'';
    if Fm.Calc(r) then
       showmessage(floattostr(r));
  finally
    Fm.Free;
  end;
end;

Explore All Products

Frequently Asked Component Specific Questions

Options