TMS Software

Frequently Asked Component Specific Questions

Options

Display all FAQ items

Search FAQ items:

Displaying items 181 to 195 of 508, page 13 of 34

<< previous next >>

TAdvSpreadGrid
How to use the lookup function

LOOKUP(param; range1, range2) : returns the value of the element in range2 that has the index of the matching element in range1 for param

Example:

This code snippet shows how the lookup is performed for the value of 2 in range A1:A5 and the value is retrieved from range B1:B5

begin
  advspreadGrid1.Cells[1,1] := '1';
  advspreadGrid1.Cells[1,2] := '2';
  advspreadGrid1.Cells[1,3] := '3';
  advspreadGrid1.Cells[1,4] := '4';
  advspreadGrid1.Cells[1,5] := '5';

  advspreadGrid1.Cells[2,1] := 'BMW';
  advspreadGrid1.Cells[2,2] := 'Audi';
  advspreadGrid1.Cells[2,3] := 'Ferrari';
  advspreadGrid1.Cells[2,4] := 'Mercedes';
  advspreadGrid1.Cells[2,5] := 'Porsche';

  advspreadGrid1.Cells[3,1] := '=LOOKUP("2";A1:A5;B1:B5)';
  advspreadgrid1.Recalc;
end;

TWebUpdate
How to to turn off UAC prompt (registered version only)

Open WUPDATE.PAS and remove the line

{$DEFINE USEUAC}

in WUPDATE.PAS and it will be compiled with the resource that includes the updater that doesn't have the manifest to force starting with UAC.

TDBAdvGrid
After updating the ClientDataSets, data is missing in the grid and several rows are blank

Make sure that grid.PageMode = true and that grid.DataSetType = dtNonSequenced
That should improve the performance.

This is also explained at page 6 of the TDBADVGRID DEVELOPERS GUIDE:

Other than the column properties, some other settings need to be considered. With PageMode set to true, some datasets maintain internally an order for returning the pages of displayed rows to the grid and some not. This depends on the implementation of the TDataSet component that is used to connect to the database of choice. In general, when there is a problem with scrolling in the grid, it is recommended to set the property DataSetType to dtNonSequenced.

TAdvStringGrid
I am having problems with the sorting order of special characters in other languages

Please specify the ssAnsiAlphaCase sort type with following event handler:

procedure TForm18.AdvStringGrid1GetFormat(Sender: TObject; ACol: Integer;var AStyle: TSortStyle; var aPrefix, aSuffix: string); 
begin
  AStyle := ssAnsiAlphaCase;
end;

The OnGetFormat event is used to instruct the grid which compare method it should use during the sorts for each column in the grid. By default, the grid is using an automatic format guess. Although this auto format guess can be convenient, for sorting large and complex amounts of data it is not recommended. When mixed numeric and alphabetic data is available in a column, this auto format guess is easily confused and the extra checks for guessing the format take extra time. With the OnGetFormat event, the compare methods to use can be specified for each column.

This is also explained at page 19 of the TAdvStringGrid Developers Guide.

TAdvMemo
How to use Autocompletion in TAdvMemo

If you drop a TAdvMemo & TAdvPascalMemoStyler on the form and link the styler to the memo, you can type "Show" and then Ctrl-Space and you will see the autocompletion.
Additional words to auto complete can be added via : styler.Autocompletion

TAdvMemo
How to show a breakpoint indicator for a line

You can set a breakpoint on a line with:

 advmemo.BreakPoint[lineindex] := true;

You can set it on multiple lines.

TAdvMemo
How to create own Syntax Highlighters with customer specified keywords

As TAdvMemo is a syntax highlighting memo control, this means that the colors of text are defined by syntax rules. If you want to change the color of a specific text in the memo, the only possibility to do this is to define this as a syntax rule.

You can write a custom syntax styler. This is a component that descends from TAdvCustomMemoStyler and defines all syntax rules to control the syntax highlighting in the memo. All included styler components are based on this.

As an example, you can download the TAdvPascalMemoStyler (ADVMPS.PAS), which is the styler used to set the colors for the Pascal language. If you want to set your own rules for applying color to text in the memo, you'd need to create a similar styler component as TAdvPascalMemoStyler and assign your own styler control to AdvMemo.SyntaxStyles.

TAdvSmoothTileList
Adding items to the TAdvSmoothTileList from a TGDIPPictureContainer at runtime

First, add images to the picturecontainer at designtime. (name them '0', '1', '2')
Then at runtime, create items and set the ImageName property of the Content of the tile:

AdvSmoothTileList1.Tiles.Add.Content.ImageName := '0';

Drop an AdvSmoothTileListImageVisualizer component on the form and assign it to the Visualizer property.

TDBAdvGrid
Images that are stored in BLOB fields are displayed as '(GRAPHIC)''

Please make sure that:
1) the field's datatype is ftBlob
2) DBAdvGrid.ShowPictureFields = true
3) DBAdvGrid.Columns[columnindex].PictureField = true , for the column where the blob is to be displayed

This is also explained at page 191 of the TMS Grid Pack Developers Guide.

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:

TMS VCL WebGMaps
Getting started

From the component palette, select TWebGMaps and drop it on a form. This shows an empty map. The map is only displayed when WebGMaps.Launch is called. The default center location displayed when WebGMaps.Launch is called is set by:

WebGMaps.MapOptions.DefaultLongitude
WebGMaps.MapOptions.DefaultLatitude

Markers can be added to the map by adding a new entry to the collection WebGMaps.Markers and setting the Marker's properties Longitude & Latitude.

This code snippet sets up the default view of the TWebGMaps to show the Los Angeles Theatre on Broadway at zoom level 19 with coordinates retrieved from the TWebGMapsGeocoding component:

begin
  WebGMapsGeocoding1.Address := 'Broadway 615, LOS ANGELES, USA';
  if WebGMapsGeocoding1.LaunchGeocoding = erOk then
  begin
    // center the map at the coordinate
    WebGMaps1.MapOptions.DefaultLatitude := WebGMapsGeocoding1.ResultLatitude;
    WebGMaps1.MapOptions.DefaultLongitude :=  WebGMapsGeocoding1.ResultLongitude;
    // Add a marker for the Los Angeles theatre
    WebGmaps1.Markers.Add(WebGMapsGeocoding1.ResultLatitude, 
    WebGMapsGeocoding1.ResultLongitude,'Broadway theatre');
    // set zoom level
    WebGmaps1.MapOptions.ZoomMap := 19;
    // launch the display of the map
    WebGMaps1.Launch;
  end;
end;

Further to this, we can take a look at the Los Angeles theatre by switching the map to StreetView. Following code snippet makes this switch when a checkbox is clicked:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if checkbox1.Checked then
    WebGmaps1.SwitchToStreetView
  else
    WebGmaps1.SwitchToMap;
end;

TMS VCL WebGMaps
How to convert an address to a longitude, latitude coordinate

The TWebGMapsGeocoding component is a helper component to enable using the Google geocoding service to convert an address to a longitude, latitude coordinate. Set the address: STREET (NUMBER), (ZIPCODE) CITY, COUNTRY , and call the function TWebGMapsGeocoding.LaunchGeocoding. When the result of this call is erOK, the geocoding was successful and the longitude & latitude for the address can be read from:

TWebGMapsGeocoding.ResultLatitude
TWebGMapsGeocoding.ResultLongitude

Example:

WebGMapsGeocoding1.Address := 'Broadway 615, LOS ANGELES, USA';
if WebGMapsGeocoding1.LaunchGeocoding = erOk then
begin
   ShowMessage("Result:"+ FloatToStr(WebGMapsGeocoding1.ResultLongitude)+":"+ loatToStr(WebGMapsGeocoding1.ResultLatitude));
end;

TAdvStringGrid
How to add a sheet to an existing Excel workbook using TAdvGridExcelIO.XLSExport

The 2nd parameter of the XLSExport() call is the sheetname. You can specify a new sheet name, a sheet name different from the default sheetname and it will save the data in the specified sheet.

TPlanner
How to create a new PlannerItem when clicking on an empty cell

If Planner.AutoInsDel = true, the OnItemInsert event should be triggered.
When Planner.AutoInsDel = false, you need to programmatically create the item with Planner.CreateItem
This is also described in the Planner PDF developers guide.

TAdvStringGrid
How to turn off the gradient and override the fixed column color

This code snippet shows how you can turn off the gradient and override the fixed column color:

procedure TForm4.AdvStringGrid1GetCellColor(Sender: TObject; ARow,
  ACol: Integer; AState: TGridDrawState; ABrush: TBrush; AFont: TFont); 
begin
  if Acol = 0 then
    ABrush.Color := clRed;
end;

procedure TForm4.FormCreate(Sender: TObject); 
begin
  advstringgrid1.look :=glSoft;
end;

Explore All Products

Frequently Asked Component Specific Questions

Options