TMS Software

Frequently Asked Component Specific Questions

Options

Display all FAQ items

Search FAQ items:

Displaying items 106 to 120 of 886, page 8 of 60

<< previous next >>

How to display text in TVrDisplay

The TVrDisplay component serves as a container control, similar to a TPanel just that it has been written to look like the background of an LCD screen. It can't by itself not display text. You can add a TVrMatrixLabel as child control on this TVrDisplay and set the background color of the TvrMatrixLabel to the same color as TVrDisplay and have it display text via adding text to the TVrMartrixLabel.

TAdvStringGrid
How to draw text with end ellipsis when it is too long to fit in a cell

The grid has a built-in capability to draw text with end ellipsis when it is too long to fit in a cell. This is enabled for non word wrapped text when grid.EnhTextSize = true.

Example:

begin
  advstringgrid1.WordWrap := false;
  advstringgrid1.EnhTextSize := true;
  advstringgrid1.Cells[1,1] := ''this is some long text'';
end;

Result:

TAdvTaskDialog
How to translate the CustomButtons

For the first string in the CustomButtons stringlist, the ButtonID is 100, the next 101 and so on...

TAdvStringGrid
How to control that at specific column positions, no column can be dropped.

With the OnAllowColumnDrop event, it is possible to control that at specific column positions, no column can be dropped.

Example:
With a TAdvGridColumnPicker connected to a grid and the code:

procedure TForm1.AdvGridColumnPicker1AllowColumnDrag(Sender: TObject;
  ACol: Integer; var Allow: Boolean);
begin
  Allow := ACol > 2;

end;

procedure TForm1.AdvGridColumnPicker1AllowColumnDrop(Sender: TObject;
  ACol: Integer; var Allow: Boolean);
begin
  Allow := ACol > 2;
end;

the first 2 normal columns cannot participate in the drag & drop to a column picker, effectively making just these 2 normal columns locked.

TAdvStringGrid
Programmatically show the filter dropdown for a grid column

When auto filtering is enabled, the filter is shown with: grid.ShowFilterDropDown(Column).

This way it is possible to hook-up the filter dropdown also to a hotkey for example instead of having it shown only when the mouse clicks the filter icon.

This code snippet how the Ctrl-F5 hotkey can show the filter dropdown for example:

procedure TForm1.AdvStringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ssCtrl in Shift) and (Key = VK_F5) then
    AdvStringGrid1.ShowFilterDropDown(AdvStringGrid1.Col);
end;

TAdvSmoothPanel
How to add buttons to the layout that span multiple rows or multiple columns.

On a regular TAdvSmoothExpanderPanel, the buttons are laid out proportionally on the surface of the panel and all buttons have the same size (AdvSmoothExpanderPanel.ButtonWidth, AdvSmoothExpanderPanel.ButtonHeight). When the new AlternativeLayout: Boolean property is set to true, it is possible to add buttons to the layout that span multiple rows or multiple columns or both. This way, buttons with different sizes can be added to the TAdvSmoothExpanderPanel.

To use the new feature, make sure to set TAdvSmoothExpanderPanel.AlternativeLayout = true and set both TAdvSmoothExpanderPanel.Columns, TAdvSmoothExpanderPanel.Rows to a value different from -1. Set the TAdvSmoothExpanderButton.ColumnSpan, TAdvSmoothExpanderButton.RowSpan to values bigger than 1 where larger buttons are desired.

Example:
A default TAdvSmoothExpanderPanel panel initialized with:

var
  i: integer;
begin
  AdvSmoothExpanderButtonPanel1.AlternativeLayout := true;
  AdvSmoothExpanderButtonPanel1.Columns := 4;
  AdvSmoothExpanderButtonPanel1.Rows := 4;
  AdvSmoothExpanderButtonPanel1.Buttons.Clear;

  for i := 0 to 9 do
    AdvSmoothExpanderButtonPanel1.Buttons.Add.Caption := ''Button ''+ inttostr(i);

  AdvSmoothExpanderButtonPanel1.Buttons[0].ColumnSpan := 2;
  AdvSmoothExpanderButtonPanel1.Buttons[0].RowSpan := 2;

  AdvSmoothExpanderButtonPanel1.Buttons[7].ColumnSpan := 2;
  AdvSmoothExpanderButtonPanel1.Buttons[7].RowSpan := 2;
end;

results in:

TAdvSmoothTileList
HTML formatted text in header and footer

When TAdvSmoothTileList.Header.ShowPages = false, a caption can be shown in the header and this can contain HTML formatted text:

begin
  AdvSmoothTileList1.Header.Caption := ''Tilelist caption with formatted text'';
end;

TInspectorBar
How to use the TFormControlInspectorEditLink component

TFormControlInspectorEditLink allows to use any TWinControl based edit control that is placed on the form as inplace editor for the TInspectorBar.

To start using TFormControlInspectorEditLink, drop an instance on the form and also an instance of the edit control you want to use as inplace editor. Assign this control to TFormControlInspectorEditLink.Control. Then hook up the EditLink to TInspectorItem.EditLink and set TInspectorItem.PropertyType to ptCustom. Implement minimum the TFormControlInspectorEditLink.OnGetEditorValue / TFormControlInspectorEditLink.OnSetEditorValue events to get & set the value of the TInspectorItem as text from the control value.

Example:

To use a TAdvSearchEdit control as inplace editor for a TInspectorBar item, that performs filtering / lookup while typing in a dictionary, following code can be used applied on a default TInspectorBar:

procedure TForm1.FormCreate(Sender: TObject);
var
  sl: TStringList;
  i: integer;
begin
  AdvSearchEdit1.SearchButton.Visible := false;
  AdvSearchEdit1.CategoryButton.Visible := false;
  AdvSearchEdit1.DropDownHeader.Visible := false;

  // loading the dictionary file in the TAdvSearchEdit
  sl := TStringList.Create;
  try
    sl.LoadFromFile(''e:\tms\temp\dictionary.txt'');
    AdvSearchEdit1.LoadStrings(sl);
  finally
    sl.Free;
  end;

  // linking up the TAdvSearchEdit as inplace editor
  FormControlInspectorEditLink1.Control := AdvSearchEdit1;
  // inplace editor control will still hanbdle return key
  FormControlInspectorEditLink1.WantKeyReturn := true;

  InspectorBar1.Panels[0].ItemHeight := 26;
  InspectorBar1.Panels[0].Style := psProperties;

  for i := 0 to InspectorBar1.Panels[0].Items.Count - 1 do
  begin
    InspectorBar1.Panels[0].Items[i].EditLink := FormControlInspectorEditLink1;
    InspectorBar1.Panels[0].Items[i].PropertyType := ptCustom;
  end;
end;

procedure TForm1.FormControlInspectorEditLink1GetEditorValue(Sender: TObject;
  Item: TInspectorItem; var AValue: string);
begin
  AValue := AdvSearchEdit1.Text;
end;

procedure TForm1.FormControlInspectorEditLink1SetEditorValue(Sender: TObject;
  Item: TInspectorItem; AValue: string);
begin
  AdvSearchEdit1.Text := AValue;
end;

The result looks like:

TFormSize
Persist settings in a dataset

You can connect a dataset via a datasource to the TFormSize component to allow to persist the form position and size settings to a database. The FormSize.DataBinding property allows to define via which dataset field the data is persisted. Not all fields need to be defined but the minimum needed will be FieldFormName, FieldPosX, FieldPosY, FieldSizeWidth, FieldSizeHeight

TAdvStringGrid
property grid.ControlLook.RadioRange: Boolean

Settings this property to true allows a shortened display of a radiogroup where the first radiobutton text value is shown left from the radiobutton and the last one right from the button. This allows to have only the minimum text left and right of the radiobutton group. Code snippet:

var
  sl: TStringList;
begin
  AdvStringGrid1.Cells[1,0] :=''Score'';
  AdvStringGrid1.Alignments[1,0] := taCenter;
  sl := TStringList.Create;
  sl.Add(''0'');
  sl.Add('''');
  sl.Add('''');
  sl.Add('''');
  sl.Add('''');
  sl.Add(''5'');
  AdvStringGrid1.ControlLook.RadioRange := true;
  AdvStringGrid1.ColWidths[1] := 120;
  AdvStringGrid1.AddRadio(1,1,1,0,sl);
end;

This results in:

TAdvMemo
FullWordAtXY() and TokenAtXY() methods

FullWordAtXY() returns the full word found at the cursor position. This is the word within word boundaries.
The word boundary is a space character, so FullWordAtXY() returns the series of characters till a space is encountered.

TokenAtXY() returns the series of characters till a token delimiter is encountered.
A token is delimited by the characters: [#32, ''('', '')'', ''['', '']'', '','', ''.'', '':'', '';'', ''"'', '''''''', ''='']

TMS IntraWeb Component Pack Pro
TIWResponsiveList: How to use the ItemStyle parameter of the OnItemRender event

You can use the ItemStyle parameter of the OnItemRender event in the same way as the ItemStyle property of a list item. First add an item to the ItemStyles collection then use its name to apply the style to a specific list item.

Example to use a red font color for the first item in the list:

var
  si: TIWItemStylesItem;
begin
  si := TIWResponsiveList1.ItemStyles.Add;
  si.ItemStyle.Font.Color := clWebRed;
  si.Name := ''RedFont'';

procedure TformResponsiveList1.TIWResponsiveList1ItemRender(Sender: TObject;
  Index: Integer; var ItemStyle: string); begin
  if Index = 0 then
    ItemStyle := ''RedFont'';
end;

TMS FMX WebGMaps
Using the TLocationSensor with ReverseGeocoding on Android

When using the TLocationSensor and you wish to do a reverse geocoding call from the OnLocationChanged event on Android, you always have to use a TThread.Queue around your code to avoid network exceptions ( for example: "Project ABC.apk raised exception class EJNIException with message ''android.os.NetworkOnMainThreadException''").

Example:

procedure TForm1.LocationSensor1LocationChanged(Sender: TObject;
  const OldLocation, NewLocation: TLocationCoord2D);
begin
  TThread.Queue(nil,
  procedure
  var
    cp: String;
  begin
    TMSFMXWebGMapsReverseGeocoding1.Latitude := NewLocation.Latitude;
    TMSFMXWebGMapsReverseGeocoding1.Longitude := NewLocation.Longitude;
    TMSFMXWebGMapsReverseGeocoding1.LaunchReverseGeocoding;
    cp := TMSFMXWebGMapsReverseGeocoding1.ResultAddress.PostalCode;
  end
  );
end;

TMS FMX WebGMaps
How to redraw all the markers

There are two possible techniques:

Clear all markers from the Markers collection and add the markers again so they also show on the map.
Iterate the Markers collection and call CreateMapMarker for each Marker to show it on the map.

Please note that it is required to wait until after the OnMapTilesLoad event has been triggered to add the markers.

Example 1:

procedure TForm2.Button1Click(Sender: TObject); begin
  TMSFMXWebGMaps1.Visible := not TMSFMXWebGMaps1.Visible;

  if TMSFMXWebGMaps1.Visible then
    MapIsVisible := true;
end;

procedure TForm2.FormCreate(Sender: TObject); begin
  InitMarkers;
end;

procedure TForm2.InitMarkers;
begin
  TMSFMXWebGMaps1.Markers.Clear;
  TMSFMXWebGMaps1.Markers.Add(48.8, 2);
  TMSFMXWebGMaps1.Markers.Add(48.7, 2);
end;

procedure TForm2.TMSFMXWebGMaps1MapTilesLoad(Sender: TObject); var
  I: Integer;
begin
  if MapIsVisible then
  begin
    MapIsVisible := false;
    InitMarkers;
  end;
end;

Example 2:

procedure TForm2.Button1Click(Sender: TObject); begin
  TMSFMXWebGMaps1.Visible := not TMSFMXWebGMaps1.Visible;

  if TMSFMXWebGMaps1.Visible then
    MapIsVisible := true;
end;

procedure TForm2.FormCreate(Sender: TObject); begin
  InitMarkers;
end;

procedure TForm2.InitMarkers;
begin
  TMSFMXWebGMaps1.Markers.Clear;
  TMSFMXWebGMaps1.Markers.Add(48.8, 2);
  TMSFMXWebGMaps1.Markers.Add(48.7, 2);
end;

procedure TForm2.TMSFMXWebGMaps1MapTilesLoad(Sender: TObject); var
  I: Integer;
begin
  if MapIsVisible then
  begin
    MapIsVisible := false;
    for I := 0 to TMSFMXWebGMaps1.Markers.Count - 1 do
      TMSFMXWebGMaps1.CreateMapMarker(TMSFMXWebGMaps1.Markers[I]);
  end;
end;

TMS FMX UI Pack
TMSFMXTableView: Having a list of back and forth messages similar to iMessage

The best matching control for this purpose is the TTMSFMXTableView which is capable of fully customizing the appearance of the items. The following sample is based on a default TTMSFMXTableView:

procedure TForm1.FormCreate(Sender: TObject);
var
  it: TTMSFMXTableViewItem;
  I: Integer;
begin
  TMSFMXTableView1.BeginUpdate;
  TMSFMXTableView1.HeaderText := ''Conversation between Matt and John'';
  TMSFMXTableView1.Items.Clear;
  TMSFMXTableView1.LayoutMode := lmGroup;
  TMSFMXTableView1.FooterVisible := False;
  it := TMSFMXTableView1.Items.Add;
  it.Caption := ''Matt'';
  it.Description := ''Hi John, when does the game begin?'';

  it := TMSFMXTableView1.Items.Add;
  it.Caption := ''John'';
  it.Description := ''Hi Matt, the game begins at 7:30 pm!'';

  it := TMSFMXTableView1.Items.Add;
  it.Caption := ''Matt'';
  it.Description := ''Thanks, are you going alone there or with a friend?'';

  it := TMSFMXTableView1.Items.Add;
  it.Caption := ''John'';
  it.Description := ''We are travelling with a couple of friends''+#13#10+''If you want, you may join us at 7:00 pm at the parking lot'';

  it := TMSFMXTableView1.Items.Add;
  it.Caption := ''Matt'';
  it.Description := ''Ok, I will be there'';

  it := TMSFMXTableView1.Items.Add;
  it.Caption := ''John'';
  it.Description := ''See you at the parking lot then !'';

  it := TMSFMXTableView1.Items.Add;
  it.Caption := ''John'';
  it.Description := ''Oh, and do not forget your tickets'';

  for I := 0 to TMSFMXTableView1.Items.Count - 1 do
  begin
    TMSFMXTableView1.Items[I].GroupIndex := I;
    TMSFMXTableView1.Items[I].AutoSize := True;
    TMSFMXTableView1.Items[I].DataString := TMSFMXTableView1.Items[I].Caption;
  end;

  TMSFMXTableView1.EndUpdate;
end;

procedure TForm1.TMSFMXTableView1ApplyStyleLookup(Sender: TObject);
begin
  TMSFMXTableView1.GetHeaderRectangle.Fill.Color := claWhite;
  TMSFMXTableView1.GetHeaderRectangle.Fill.Kind := TBrushKind.Solid;
  (TMSFMXTableView1.GetListBackGround as TRectangle).Fill.Color := claWhite;
  (TMSFMXTableView1.GetListBackGround as TRectangle).Fill.Kind := TBrushKind.Solid;
end;

procedure TForm1.TMSFMXTableView1ItemCustomize(Sender: TObject;
  AItem: TTMSFMXTableViewItem; AItemShape: TTMSFMXTableViewItemShape;
  AItemControlShape: TControl);
begin
  if AItem.DataString = ''John'' then
  begin
    AItemShape.Fill.Color := claSkyblue;
    AItemShape.Stroke.Color := claBlue;
    AItemShape.Margins.Left := 150;
    AItemShape.CaptionColor := claBlue;
  end
  else if AItem.DataString = ''Matt'' then
  begin
    AItemShape.Fill.Color := claYellowgreen;
    AItemShape.Stroke.Color := claGreen;
    AItemShape.Margins.Right := 150;
    AItemShape.CaptionColor := claGreen;
  end;

  AItemShape.DescriptionColor := claWhite;
end;

Explore All Products

Frequently Asked Component Specific Questions

Options