TMS Software

Frequently Asked Component Specific Questions

Options

Display all FAQ items

Search FAQ items:

Displaying items 331 to 345 of 886, page 23 of 60

<< previous next >>

TAdvOutlookList
How to set different colors for the items in the list.

You can use the event OnDrawItemProp. This event is triggered for every item that is painted in the TAdvOutlookList. You can modify the background color via changing ABrush.Color and the font color via AFont.Color.

TMS FMX UI Pack
Styling a FireMonkey control in a mobile application

The ability to style is missing in a mobile application and thus styling options for a TMS Pack for FireMonkey component will also be unvailable when trying to style directly inside a mobile application. Fortunately there is a workaround for this.

To style a FireMonkey component, drop the component on the form in a new FireMonkey HD application and right-click the component. A context menu will be available with an "edit custom style" and "edit default style" option. Choose the correct option and then copy the StyleBook and component to the form in a new FireMonkey Mobile application. Select the copied StyleBook in the StyleBook property of the form.

If you do not wish to change this style from a StyleBook or you wish to dynamically style the component. You can always implement the OnApplyStyleLookup method which will contain the correct references to the various elements/parts of the component found and named in the StyleBook.

TMS IntraWeb Component Pack Pro
The TIWDatePicker popup is not visible outside of an IWRegion control

Set the IWRegion.ClipRegion property to False to enable the TIWDatePicker popup to appear outside the IWRegion it is placed in.

TAdvPageControl
Programmatically removing a tabsheet from a TAdvPageControl

You can call:

AdvTabSheet.Free;

TMS mCL
Merging multiple PDF documents with TMSFMXNativeMacPDFLib

The code below shows how to input and merge multiple PDF documents to a single PDF document.

var
  input: TStringList;
  output: String;
  I, J: Integer;
begin
  input := TStringList.Create;
  input.Add(ExtractFilePath(ParamStr(0)) + 'Egypt.pdf');
  input.Add(ExtractFilePath(ParamStr(0)) + 'BoraBora.pdf');
  input.Add(ExtractFilePath(ParamStr(0)) + 'London.pdf');

  output := TPath.GetDocumentsPath + '/Merged.pdf';
  TMSFMXNativeMacPDFLib1.BeginDocument(output);
  for I := 0 to input.Count - 1 do
  begin
    TMSFMXNativeMacPDFLib1.OpenDocument(input[I]);
    for J := 1 to TMSFMXNativePDFLib1.GetPageCount do
    begin
      TMSFMXNativeMacPDFLib1.GetPageInfo(J);
      TMSFMXNativeMacPDFLib1.NewPage;
      TMSFMXNativeMacPDFLib1.DrawPage(J);
    end;
    TMSFMXNativeMacPDFLib1.CloseDocument;
  end;
  TMSFMXNativeMacPDFLib1.EndDocument;

  input.Free;
end;

TMS iCL
Merge multiple PDF documents with TMSFMXNativePDFLib

The code below shows how to input and merge multiple PDF documents to a single PDF document.

var
  input: TStringList;
  output: String;
  I, J: Integer;
begin
  input := TStringList.Create;
  input.Add(ExtractFilePath(ParamStr(0)) + 'Egypt.pdf');
  input.Add(ExtractFilePath(ParamStr(0)) + 'BoraBora.pdf');
  input.Add(ExtractFilePath(ParamStr(0)) + 'London.pdf');

  output := TPath.GetDocumentsPath + '/Merged.pdf';
  TMSFMXNativePDFLib1.BeginDocument(output);
  for I := 0 to input.Count - 1 do
  begin
    TMSFMXNativePDFLib1.OpenDocument(input[I]);
    for J := 1 to TMSFMXNativePDFLib1.GetPageCount do
    begin
      TMSFMXNativePDFLib1.GetPageInfo(J);
      TMSFMXNativePDFLib1.NewPage;
      TMSFMXNativePDFLib1.DrawPage(J);
    end;
    TMSFMXNativePDFLib1.CloseDocument;
  end;
  TMSFMXNativePDFLib1.EndDocument;

  input.Free;
end;

TMS iCL
How to style the UITableView

You can style the UITableView as well as other controls. This is demonstrated in the ShowCase application explained at the following page: https://www.tmssoftware.com/site/iosshowcase.asp

TAdvPanel
Paint problems when scrolling

To improve the performance add following code:

procedure TForm3.FormCreate(Sender: TObject);
begin
  advpanelgroup1.OptimizePaint := true;
  advpanelgroup1.DoubleBuffered:= true;
end;

THTMLTreeView
Performance tip

When looping through nodes of the treeview, performance will be significantly better when using GetFirst and GetNext methods instead of accessing Items[index].
Note that this tip also qualifies to the standard VCL TTreeView as THTMLTreeview descends from this control.

TAdvMemo
How to set the cursor position at the beginning of a line when clicking in the TAdvMemo

Set AdvMemo.AutoExpand = false

TAdvMemo
How to synchronise the vertical scrolling of 2 TAdvMemo Objects

From the OnTopLeftChanged event, set the AdvMemo.TopLine from the target memo equal to the TopLine value of the sender memo.

TAdvStringGrid
Inserting grid data into an existing sheet in an existing XLS file with TAdvGridExcelIO

The last parameter of the XLSExport() call determines what do with the grid data during export to an existing XLS file in an existing sheet. Default, the value is InsertInSheet_InsertClear, meaning it will clear the sheet first before exporting the grid data. If the value is set to: InsertInSheet_InsertRows, it will insert the number of rows in the existing sheet needed for the grid data.
Sample:

begin
  AdvStringGrid1.RandomFill(false);
  AdvGridExcelio1.AdvStringGrid := AdvStringGrid1;
  AdvGridExcelio1.Options.ExportOverwrite := omNever;
  AdvGridExcelio1.XLSExport('c:\my documents\myexcel.xls','MYSHEET',-1,1,InsertInSheet_InsertRows);
end;

TAdvOutlookList
Programmatically looping through items in the TAdvOutlookList

This code snippet shows how you can programmatically loop through all items and in this case, copy the items structure of the TAdvOutlookList to a TListBox:

uses
  AdvOutlookList, OutlookGroupedList;

procedure TForm1.Button1Click(Sender: TObject);
var
  p,c: poglitem;
  sl: TStrings;
begin
  p := AdvOutlookList1.RootItem.FirstChild;

  while assigned(p) do
  begin
    sl := advoutlooklist1.GetItemData(p);
    if Assigned(sl) and (sl.Count > 0) then
      listbox1.Items.Add(sl.Strings[0]);

    c := p.FirstChild;
    while assigned(c) do
    begin
      sl := advoutlooklist1.GetItemData(c);
      if Assigned(sl) and (sl.Count > 0) then
        listbox1.Items.Add('-'+sl.Strings[0]);
      c := c.NextSibling;
    end;

    p := p.NextSibling;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  advoutlooklist1.TestFill;
end;

TMS Async in Win64

The full registered version of TMS Async can be used for both Win32 & Win64 application development. Create your app in 32bit mode, drop the VaComm component on the form and then switch your project target to Win64.

The trial version is limited to 32bit.

TMS iCL
Add a custom pin image annotation to the TTMSFMXNativeMKMapView

The following code can be used to show a custom pin image when adding an annotation to the mapview component.
The annotation is added to the center of the Map based on an image that has been added to the root folder in the deployment window.

var
  loc: TTMSFMXNativeMKMapLocation;
  ann: TTMSFMXNativeMKAnnotation;
begin
  TMSFMXNativeMKMapView1.BeginUpdate;
  loc := TMSFMXNativeMKMapView1.XYToCoordinate(TMSFMXNativeMKMapView1.Width / 2, TMSFMXNativeMKMapView1.Height / 2);
  ann := TMSFMXNativeMKMapView1.AddAnnotation(loc, 'Hello', 'World');
  ann.Bitmap.LoadFromFile(ExtractFilePath(ParamStr(0))+'pin.png');
  TMSFMXNativeMKMapView1.EndUpdate;

Explore All Products

Frequently Asked Component Specific Questions

Options