TMS Software

Frequently Asked Component Specific Questions

Options

Display all FAQ items

Search FAQ items:

Displaying items 376 to 390 of 888, page 26 of 60

<< previous next >>

When I try to install TMS WebGMaps in Delphi 2007, I get the error message: TMSWebGMapsPkgD2007.dpk(38) Fatal: E2202 Required package 'IndyCore' not found

Please make sure Indy 10 is installed with Delphi 2007 and then retry to install. TWebGMaps internally uses some Indy functions and therefore needs Indy 10.

TAdvStringGrid
How to disable scrolling with mousewheel and arrow keys

Disable the mousewheel with:

  BinningGrid.EnableWheel := false;

Disable scrolling with arrow keys with:

procedure TForm1.BinningGridTopLeftChanged(Sender: TObject); 
begin
  BinningGrid.TopRow := 0;
end;

How to save and restore a map position

Initialization:

  public
    MapBounds: TBounds;
    MapZoom: Integer;

procedure TForm2.FormCreate(Sender: TObject);
begin
  MapBounds := TBounds.Create;
end;

Get the current map position:

  WebGMaps1.GetMapBounds;

Save the current map position:

procedure TForm1.WebGMaps1BoundsRetrieved(Sender: TObject; Bounds: TBounds);
begin
  MapBounds.NorthEast.Latitude := Bounds.NorthEast.Latitude;
  MapBounds.NorthEast.Longitude := Bounds.NorthEast.Longitude;
  MapBounds.SouthWest.Latitude := Bounds.SouthWest.Latitude;
  MapBounds.SouthWest.Longitude := Bounds.SouthWest.Longitude;

  MapZoom := WebGMaps1.MapOptions.ZoomMap;
end;

Load a saved map position:

  WebGMaps1.MapZoomTo(MapBounds);
  WebGMaps1.MapOptions.ZoomMap := MapZoom;

TAdvSmoothListBox
How to get the selected items from TAdvSmoothlistbox when the property Multiselect = true;

for i := 0 to advsmoothlistbox1.Items.Count - 1 do 
begin
   if advsmoothlistbox1.Items[i].Selected then ... 
   // returns a selected item in multiselect 
end;

TDBPlanner
MultiDay Events in TPlanner and TDBPlanner

Multiday items will (by design - like in Outlook) be displayed in the header for each day where the event occurs.

You can do this by setting the property PlannerItem.InHeader :=true.
This means that for a non databound planner, you should add an inheader item for each day where the event occurs. In the TPlanner this can’t happen automatically as there is no imposed fixed relationship between positions (columns) and days or resources you use.
Please make sure to increase Planner.header.Height so items can be shown there.

For the DB-aware TDBPlanner, this is handled automatically. TDBPlanner will display the items that span multiple days in the header for each day where the item occurs. It will display this as an item in the header on each day. It can indicate in the caption (when you set PlannerItem.CaptionType = ctTime) the start/end time of the item.

TPlanner
MultiDay Events in TPlanner and TDBPlanner

Multiday items will (by design - like in Outlook) be displayed in the header for each day where the event occurs.

You can do this by setting the property PlannerItem.InHeader :=true.
This means that for a non databound planner, you should add an inheader item for each day where the event occurs. In the TPlanner this can't happen automatically as there is no imposed fixed relationship between positions (columns) and days or resources you use.
Please make sure to increase Planner.header.Height so items can be shown there.

For the DB-aware TDBPlanner, this is handled automatically. TDBPlanner will display the items that span multiple days in the header for each day where the item occurs. It will display this as an item in the header on each day. It can indicate in the caption (when you set PlannerItem.CaptionType = ctTime) the start/end time of the item.

TAdvSmoothImageListBox
How to delete an item

AdvSmoothImageListBox1.Items.BeginUpdate;
AdvSmoothImageListBox1.Items[0].Free;
AdvSmoothImageListBox1.Items.EndUpdate;

TAdvSmoothListBox
How to delete a single selected item

You can remove the selected item with:

AdvSmoothListBox1.Items.BeginUpdate;
AdvSmoothListBox1.Items[AdvSmoothListBox1.SelectedItemIndex].Free;
AdvSmoothListBox1.Items.EndUpdate

TAdvStringGrid
How to change the margin between the cell border and the text

You can control the text offset from top/left corner with the property:

AdvStringGrid.XYOffset

Default, the offset is applied both left and right, to apply the offset only left of the cell, set

AdvStringGrid.XYOffsetTopLeftOnly := true;

This applies to all cells. For example:

AdvStringGrid.XYOffset := point(0,0);

Results in:

AdvStringGrid.XYOffset := point(6,0);

Results in:

TMS Advanced Dropdown Controls
How to setup a default TAdvColumnGrid with 2 columns, data for columns and retrieve selected value & index

This code snippet shows how to setup a default TAdvColumnGrid with 2 columns, data for columns and retrieve selected value & index:

procedure TForm1.Button1Click(Sender: TObject); 
begin
  showmessage(  IntToStr(AdvMultiColumnDropDown1.ItemIndex) + ':'+ AdvMultiColumnDropDown1.Text); 
end;

procedure TForm1.FormCreate(Sender: TObject); 
begin
  AdvMultiColumnDropDown1.Columns.Clear;
  AdvMultiColumnDropDown1.Columns.Add;
  AdvMultiColumnDropDown1.Columns.Add;
  AdvMultiColumnDropDown1.Columns[0].Header := 'Col 1';
  AdvMultiColumnDropDown1.Columns[1].Header := 'Col 2';

  AdvMultiColumnDropDown1.Items.Clear;
  AdvMultiColumnDropDown1.Items.Add.Text.CommaText := 'A,1';
  AdvMultiColumnDropDown1.Items.Add.Text.CommaText := 'B,2';
  AdvMultiColumnDropDown1.Items.Add.Text.CommaText := 'C,3';
  AdvMultiColumnDropDown1.Items.Add.Text.CommaText := 'D,4'; 
end;

Result:

Performance [Important !]

To enchance performance of Windows projects in firemonkey, you can try to set the GlobalUseDirect2D := false flag in order to gain more performance

program Project1;

uses
  FMX.Forms, FMX.Types,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  GlobalUseDirect2D := False;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

TAdvStringGrid
How to set hints on images in the grid

A possible way to do this is:

begin
  advstringgrid1.GridImages := ImageList1;
  advstringgrid1.ShowHint := true;
  advstringgrid1.AnchorHint := true;
  advstringgrid1.Cells[1,1] := '';
end;

Adding an element at runtime to the TTMSFMXTableView

To add an element at runtime, the shape that is connected to the TTMSFMXTableViewItem must exist. The shape can be returned using the Shape function on the TTMSFMXTableViewItem:

var
  shp: TTMSFMXTableViewItemShape;

shp := TMSFMXTableView1.Items[0].Shape;

To add a element / control to that shape, simply create that element and add it as a child of the item.

r := TRectangle.Create(shp);
shp.AddObject(r);

TMS TableView for FireMonkey
Adding an element at runtime

To add an element at runtime, the shape that is connected to the TTMSFMXTableViewItem must exist. The shape can be returned using the Shape function on the TTMSFMXTableViewItem:

var
  shp: TTMSFMXTableViewItemShape;

shp := TMSFMXTableView1.Items[0].Shape;

To add a element / control to that shape, simply create that element and add it as a child of the item.

r := TRectangle.Create(shp);
shp.AddObject(r);

TAdvSmoothImageListBox
Drag Drop

A sample which demonstrates drag drop on a TAdvSmoothImageListBox http://www.tmssoftware.net/public/Demo_DragDrop.zip

Explore All Products

Frequently Asked Component Specific Questions

Options