TMS Software

Frequently Asked Component Specific Questions

Options

Display all FAQ items

Search FAQ items:

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

<< previous next >>

TMS mCL
Displaying the Font dialog through NSFontManager

The sample at the URL below demonstrates how the font dialog can be opened and be used to select a font for your application.
https://download.tmssoftware.com/download/Sample.zip

TAdvEdit
Caret not visible in the edit control

It is a known shortcoming of the Windows operating system EDIT class (that standard VCL TEdit and also TMS TAdvEdit uses) that the caret is not displaying when the height of the control is too small in relation to the choosen font. As this is a Windoiws limitation, it can only be solved by either increasing the control height or decreasing the font size.

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;

Explore All Products

Frequently Asked Component Specific Questions

Options