TMS Software

Frequently Asked Component Specific Questions

Options

Display all FAQ items

Search FAQ items:

Displaying items 436 to 450 of 888, page 30 of 60

<< previous next >>

TMS Instrumentation WorkShop for FireMonkey
My First FireMonkey Component

Below is a sample that is useful to understand the design of a new FireMonkey component. These three code snippets will result in your first control which has a backgroundrectangle, a button, an edit, and an additional rectangle.

This component only loads the style file as a layout, and is static. You can click on the button and type in the edit field, but the component has no properties to interact with.

fmx.MyFirstControl.pas

unit fmx.MyFirstControl;

interface

uses
  FMX.Types, Types, Classes;

  TMyFirstControl = class(TStyledControl)
  private
  public
    constructor Create(AOwner: TComponent); override;
  protected
    function GetClassName: String; virtual;
    function GetClassStyleName: String; virtual;
    function GetStyleObject: TControl; override;
    function LoadFromResource: TControl;
  end;

procedure Register;

implementation

{$R fmx.myfirstcontrol.res}

procedure Register;
begin
  RegisterComponents(‘My First FireMonkey Control’, [TMyFirstControl]);
end;

function TMyFirstControl.GetClassName: String;
begin
  Result := ClassName;
end;

constructor TMyFirstControl.Create(AOwner: TComponent); override;
begin
  inherited;
  Width := 209;
  Height := 105;
end;

function TMyFirstControl.GetClassStyleName: String;
begin
  Result := GetClassName + 'style';
  Delete(Result, 1, 1);
end;
 
function TMyFirstControl.GetStyleObject: TControl;
var
  obj: TControl;
begin
  obj := inherited GetStyleObject;

  if not Assigned(obj) then
  begin
    // not found in default or custom style book, so create from resource
    obj := LoadFromResource;
  end;

  Result := obj;
end;

function TMyFirstControl.LoadFromResource: TControl;
var
  S: TResourceStream;
  str: String;
begin
  Result := nil;
  // create resource class name
  str := GetClassStyleName;
  if FindRCData(HInstance, str) then
  begin
    // load from RT_RCDATA resource type
    S := TResourceStream.Create(HInstance, str, RT_RCDATA);
    try
      Result := TControl(CreateObjectFromStream(nil, S));
    finally
      S.Free;
    end;
  end;
end;

initialization
  RegisterFmxClasses([TMyFirstControl]);
end.

fmx.myfirstcontrol.style

  object TRectangle
    StyleName = 'MyFirstControlStyle'
    Position.Point = '(184,248)'
    Width = 209.000000000000000000
    Height = 105.000000000000000000
    Fill.Kind = bkNone
    Stroke.Kind = bkNone
    object TRectangle
      StyleName = 'background'
      Align = alClient
      Width = 209.000000000000000000
      Height = 105.000000000000000000
      object TButton
        StyleName = 'Button1'
        Position.Point = '(10,20)'
        Width = 80.000000000000000000
        Height = 22.000000000000000000
        TabOrder = 0
        Text = 'Button1'
      end
      object TEdit
        StyleName = 'Edit1'
        Position.Point = '(102,20)'
        Width = 100.000000000000000000
        Height = 22.000000000000000000
        TabOrder = 1
        KeyboardType = vktDefault
        Password = False
      end
      object TRectangle
        StyleName = 'rectangleElement'
        Position.Point = '(11,48)'
        Width = 65.000000000000000000
        Height = 49.000000000000000000
        Fill.Color = xFFFF4B4B
      end
    end
  end

fmx.myfirstcontrol.rc

MyFirstControlStyle RCDATA "fmx.myfirstcontrol.style"

Let’s say you want to rotate the rectangle through a property. Create a property that will control the RotationAngle of the rectangle. In the setter you can access the rectangle with his StyleName:

rt := (FindStyleResource(‘rectangleElement’) as TRectangle);
rt.RotationAngle := MyRotationAngleProperty; //sample below 45°

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.

TMS Instrumentation WorkShop for FireMonkey
FireMonkey guidelines

More information on developing FireMonkey components and building / deploying on other platforms can be found on http://docwiki.embarcadero.com/RADStudio/en/FireMonkey_Components_Guide

TMS IntraWeb HTML5 Controls Pack
Error when installing: [DCC Fatal Error] Unit4.pas(8): F2051 Unit IWHTML5Chart was compiled with a different version of

Make sure there is ONLY ONE version of TMS IntraWeb Components in your Delphi or C++Builder library path and that this version matches EXACTLY your IntraWeb version. Ie. TMS IntraWeb Components for IntraWeb version X.Y.Z will ONLY work with IntraWeb X.Y.Z, NO OTHER IntraWeb versions. Make sure there are no old TMS IntraWeb Component version files in your library path as well as no different IntraWeb versions on your system.

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.

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 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

TAdvStringGrid
How to prevent navigation to specific cells

If you want to prevent navigation to specific cells, please implement the OnSelectCell event and set the parameter CanSelect = false for cells you want to prevent to be selected.

TAdvTaskDialog
How to translate the common buttons Yes, No, ...

The button text comes from the Unit Consts which is the common Delphi unit for translatable text also the text on buttons. If you use a Delphi translation tool, it should handle it correct to use a translated Consts unit and it should change the text on task dialog buttons too.

TAdvStringGrid
Using balloons

- Only when theming is enabled in the project options, the balloon will be visible.

- If you reparent the grid, the balloon should only be enabled AFTER the final grid's parent is set.

- Balloon hints are an API from Microsoft Windows and this does not support HTML formatted text. This is a limitation of the Microsoft Windows balloon API.

- There is a limitation to the number of characters in a balloon. This is also a limitation of the Microsoft Windows balloon API that we cannot workaround. For a regular cell comment, there is no such length limitation.

- From TAdvStringGrid version v4.5, several new balloon notification capabilities have been added. See example 76: https://www.tmssoftware.com/site/asg76.asp

- When using AddBalloon& AddImageIdx on the same cell , the AddBalloon will not work. These 2 features are mutually exclusive, only one type per call can be added.

- When grid. Balloon.Enable = true, it will automatically show a balloon when a cell contains text, i.e. it will show the text of the cell in the balloon. To prevent this, add the following event handler:

procedure TForm4.AdvStringGrid1CellBalloon(Sender: TObject; ACol, ARow: Integer;
  var ATitle, AText: string; var AIcon: Integer);
begin
  if not advstringgrid1.HasBalloon(acol,arow) then
  begin
    atitle := '';
    atext := '';
  end;
end;

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.

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.

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.

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;

TAdvStringGrid
How to programmatically start inplace editing

Make sure to FIRST set the grid.col/grid.row to the cell that must be edited and make sure the grid has focus. Then you can programmatically start inplace editing with grid.ShowInplaceEdit;

grid.Col := yourcolumn;
grid.Row := yourrow;
grid.SetFocus;
grid.ShowInplaceEdit;

How to force the user to edit an empty cell.

Implement the OnCellValidate event like:

procedure TForm4.AdvStringGrid1CellValidate(Sender: TObject; ACol,
  ARow: Integer; var Value: string; var Valid: Boolean);
begin
  Valid := Value <> '';
end;

Explore All Products

Frequently Asked Component Specific Questions

Options