TMS Software

Frequently Asked Component Specific Questions

Options

Display all FAQ items

Search FAQ items:

Displaying items 151 to 165 of 886, page 11 of 60

<< previous next >>

TAdvStringGrid
Set a different XY offset for different cells in the grid

You can change the X,Y offset dynamically for each cell via the OnGetCellColor event and call from there grid.UpdateXYOffset.

Example to set an XY offset different from the floating footer configured to display the last row of the grid:

procedure TForm1.AdvStringGrid1GetCellColor(Sender: TObject; ARow,
  ACol: Integer; AState: TGridDrawState; ABrush: TBrush; AFont: TFont);
begin
  if arow = advstringgrid1.RowCount - 1 then
    advstringgrid1.UpdateXYOffset(0,-2)
  else
    advstringgrid1.UpdateXYOffset(2,2);
end;

TAdvStringGrid
Using NarrowDown but perform narrow down only for cells matching the search text from first character.

To do this, set grid.NarrowDownFromStart = true.

Example:

  grid.NarrowDownFromStart := true;
  grid.NarrowDown(‘M’);

Whereas with the default setting of NarrowDownFromStart = false, this returns all cells that contain the character ‘M’

  grid.NarrowDownFromStart := false;
  grid.NarrowDown(‘M’);

TDBAdvGrid
Dynamically filtering lookup datasets in a TDBAdvGrid

It is easy to dynamically set a filter for a lookup dataset depending on other values for a lookup editor in the TDBAdvGrid. DB fields with a lookup relatoinship are automatically edited via a combobox. To filter the values to select from, filter the lookup dataset from the OnGetEditorProp event that is triggered just before the inplace editor becomes active. Following example filter can be applied in the ADOLookup demo for TDBAdvGrid that filters the lookup dataset for countries starting with ‘S’ when there is editing on an odd row.

procedure TForm1.DBAdvGrid1GetEditorProp(Sender: TObject; ACol, ARow: Integer;
  AEditLink: TEditLink);
begin
  if odd(arow)  then
  begin
    adotable2.Filtered := false;
    adotable2.Filter := ''COUNTRY LIKE "S%"'';
    adotable2.Filtered := true;
  end
  else
  begin
    adotable2.Filtered := false;
  end;
end;

TMS IntraWeb Component Pack Pro
TTIWAdvWebGrid: How to display buttons in specific cells

You can use the OnGetCellType event to specify the column type for a specific row, column or cell.

Example:

procedure TIWForm1.TIWAdvWebGrid1GetCellType(Sender: TObject; RowIndex,
  ColumnIndex: Integer; var AColumnType: TTIWColumnType;
  var Editor: TTIWColumnEditor; var DynEditor: TTIWDynEditType);
begin
  if (ColumnIndex = 1) and (RowIndex = 1) then
    AColumnType := ctButton;
end;

TMS VCL WebGMaps
How to get the address at right click on the map and put a marker on this address

You can use the OnMapClick event to catch a mouse click on the map. Then use the TWebGMapsReverseGeocoding component to retrieve the address based on the Latitude and Longitude coordinates and add a marker with the Markers.Add() call.

Example:

procedure TForm8.WebGMaps1MapClick(Sender: TObject; Latitude, Longitude: Double;
  X, Y: Integer; Button: TMouseButton);
begin
  WebGMapsReverseGeocoding1.Latitude := Latitude;
  WebGMapsReverseGeocoding1.Longitude := Longitude;

  if WebGMapsReverseGeocoding1.LaunchReverseGeocoding = erOk then
    WebGMaps1.Markers.Add(Latitude, Longitude, WebGMapsReverseGeocoding1.ResultAddress.FormattedAddress);
end;

TAdvOfficePager
How to automatically redock the tab if the user clicks the undocked tab's 'Close' button

You’d need to attach an event handler for the closing of the page when it is floating. You can do this from the OnTabUnDock event where you attach an event handler to the floating form OnClose event.

Example:

TForm1 = class(TForm)
public
    { Public declarations }
    procedure CloseHandler(Sender: TObject; var Action: TCloseAction);
end;

procedure TForm1.AdvOfficePager1TabUnDock(Sender: TObject;
  APage: TAdvOfficePage);
begin
  APage.GetFloatingWindow.OnClose := CloseHandler;
end;

procedure TForm1.CloseHandler(Sender: TObject; var Action: TCloseAction);
begin
  // floating form closing here
end;

TMS Advanced Poly List
Drag and Drop over TCustomItem

Drag & Drop needs to be implemented manually, below is code that inserts or adds an item based on TCustomItem. The item also be a custom class that inherits from TCustomItem. The code below is drag & drop code based on 2 TAdvPolyList instances, where the item to be dropped is obtained from the DropItem function. But the Source can come from another component as well.

procedure TForm1.AdvPolyList1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  it, itdrop: TCustomItem;
begin
  it := (Source as TAdvPolyList).DropItem;
  itdrop := AdvPolyList1.List.ItemAtXY(X, Y);
  if Assigned(itdrop) then
    AdvPolyList1.InsertItem(itdrop.Index, TCustomItemClass(it.ClassType)).Assign(it)
  else
    AdvPolyList1.AddItem(TCustomItemClass(it.ClassType)).Assign(it);
end;

procedure TForm1.AdvPolyList1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := Source is TAdvPolyList;
end;

TAdvStringGrid
Customizing the inplace editor for fixed cells in TAdvStringGrid

In fixed cells, it is possible to define an inplace editor for fixed cells with grid.MouseActions.FixedColsEdit / grid.MouseActions.FixedColsEditor. It is possible to further customize this inplace editor or assign extra event handlers to it via grid.FixedEdit and grid.FixedComboBox that provide access to these control instances.

Example:

This sets the background color for the fixed cell regular editor:

  TEdit(AdvStringgrid1.FixedEdit).Color := clRed;

This assigns a custom OnClick handler for the fixed cell combobox inplace editor:

  TComboBox(AdvStringGrid.FixedComboBox).OnClick := MyHandler;

TAdvTreeView
How to change the images for the check boxes and radio buttons

You can change the default drawing by implementing the OnBeforeDrawNodeCheck and then set the allow parameter to False. The default checkbox drawing will be disable, and then you can manually draw a different image, or graphic with the ACanvas parameter, as demonstrated in the sample below:

procedure TForm1.AdvCheckedTreeView1BeforeDrawNodeCheck(Sender: TObject;
  ACanvas: TCanvas; ARect: TRectF; AColumn: Integer;
  ANode: TAdvTreeViewVirtualNode; var AAllow: Boolean);
begin
  AAllow := False;
  if ANode.Node.Checked[0] then
    // draw checked checkbox
  else
    // draw unchecked checkbox
end;

TAdvAlertWindow
How to set the position of the TAdvAlertwindow

You can do this by using AdvAlertwindow.PopupLeft, AdvAlertwindow.PopupTop and set AdvAlertWindow.WindowPosition := wpPreset;

Sample code:

procedure TForm4.Button1Click(Sender: TObject);
begin
  advalertwindow1.PopupLeft := 20;
  advalertwindow1.PopupTop := 20;
  AdvAlertWindow1.AlertMessages.Add.Text.Text := ''Hello world'';
  AdvAlertWindow1.WindowPosition := wpPreset;
  AdvAlertWindow1.Show;
end;

TMS VCL Cloud Pack
How to store OAuth token in a database table instead of an ini file

Make a dataset with following string fields:

ACCESS_TOKEN
AUTH_TOKEN
ACCESS_TOKEN_SECRET
AUTH_TOKEN_SECRET
REFRESH_TOKEN
EXTRA_DATA

And set

CloudService.PersistTokens.DataSource  = yourdatasource; 
CloudService.PersistTokens.Location = plDatabase;

Then call:

CloudService.LoadTokens
CloudService.SaveTokens

to read and write to the dataset.

TAdvRichEditor
Customizing the popup menu

From the OnContextPopup event that is triggered before the popup menu is displayed, it is easy to customize it, for example to dynamically translate or add items.

This example performs a dynamic translation:

procedure TForm4.AdvRichEditor1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
  if AppLanguage = alGerman then
  begin
    AdvRichEditor1.PopupMenu.Items[0].Caption := ''Löschen'';
    AdvRichEditor1.PopupMenu.Items[2].Caption := ''Ausschneiden'';
    AdvRichEditor1.PopupMenu.Items[3].Caption := ''Kopieren'';
    AdvRichEditor1.PopupMenu.Items[4].Caption := ''Einfügen'';
    AdvRichEditor1.PopupMenu.Items[6].Caption := ''Ausrichten'';
    AdvRichEditor1.PopupMenu.Items[6].Items[0].Caption := ''Links'';
    AdvRichEditor1.PopupMenu.Items[6].Items[1].Caption := ''Zentrum'';   
    AdvRichEditor1.PopupMenu.Items[6].Items[2].Caption := ''Rechts'';
  end;
end;

When trying to install the registered version of the TMS TAdvStringGrid filters I get an error similar to: TMS FlexCel Studio...is not installed

Make sure you run the TMS Grid Filters installers from the same Windows user account as the one with which you installed TMS Component Pack & TMS Flexcel. The TMS Grid Filters installer searches for TMS Component Pack & TMS Flexcel installs in the registry for the current Windows user.

TMS IntraWeb iPhone controls pack
Avoid access to non-visual IWEdit controls

When using 2 IWRegion controls that each contain an IWEdit control in combination with a TIWIPhonePageTransition control. If the user presses the "< " ">" keys to move to the next or previous field, they can reach a field on a region that is not being displayed. The display will even show portions of both regions simultaneously.

Solution:

You can set the Enabled property of the IWEdit controls on the non-visual IWRegion controls to false. Then set it to true again when TransitionToNext or TransitionToPrevious is called.

Example:

procedure TIWForm8.TIWIPhoneHeader1AsyncRightButtonClick(Sender: TObject;
  EventParams: TStringList);
begin
  IWEdit1.Enabled := false;
  IWEdit2.Enabled := true;
  TIWIPhonePageTransition1.TransitionToNext;
end;

procedure TIWForm8.TIWIPhoneHeader2AsyncLeftButtonClick(Sender: TObject;
  EventParams: TStringList);
begin
  IWEdit1.Enabled := true;
  IWEdit2.Enabled := False;
  TIWIPhonePageTransition1.TransitionToPrevious;
end;

TMS FMX UI Pack
TTMSFMXGrid: How to get access to a ProgressBar object inside a cell

You can access each cell and its properties in the OnGetCellProperties event:

procedure TForm1.TMSFMXGrid1GetCellProperties(Sender: TObject; ACol,
  ARow: Integer; Cell: TFmxObject);
var
  p: TTMSFMXProgressBar;
begin
  if Cell is TTMSFMXProgressGridCell then
  begin
    p := (Cell as TTMSFMXProgressGridCell).ProgressBar;
    p.ShowText := False;
  end;
end;

Explore All Products

Frequently Asked Component Specific Questions

Options