TMS Software

Frequently Asked Component Specific Questions

Options

Display all FAQ items

Search FAQ items:

Displaying items 661 to 675 of 888, page 45 of 60

<< previous next >>

TWebData
After calling execute the error "-1" appears

The parameter is -1 when it can't open the URL. Please make sure the hyperlink always exists when you want to avoid this.

TAdvSysKeyBoardHook
When running the application the error : "could not create file map object" appears

On Windows 7, it is unfortunately required to run with admin privileges (new security change from Microsoft).
You need to add this on the EXE using the DLL, on the DLL only, it will not work.

TMS Advanced Office Graphics Control Pack
Nothing happens when clicking on "More colors" in TAdvColorSelector

Use follow event to implement the custom color selection:

procedure TForm2.AdvColorSelector1Select(Sender: TObject; Index: Integer;
  Item: TAdvSelectorItem);
begin
  if item.Index = 41 then
  begin
    if colordialog1.Execute then
      AdvColorSelector1.SelectedColor := colordialog1.Color;
  end;
end;

TAdvTouchKeyBoard
How to increase the size of the buttons

Use the function AdvTouchKeyboard.Zoom()
For example:

  advtouchkeyboard1.Zoom(1.5,1.5);

It will be zoomed by factor 1.5

TAdvStringGrid
Exporting numbers as text with TAdvGridExcelIO

By default, when a cell contains text like "000123" and exporting this to Excel, Excel will display this as "123". This is because by default, "000123" is recognized as a number and Excel will be default show numbers without any zero prefixes. If it is required that similar text is shown in the Excel as-is, it should be specified that TAdvGridExcelIO should export the number as text. This can be done with: 1) global setting: AdvGridExcelIO.Options.ExportCellFormats = false 2) dynamically by using the OnExportColumnFormat event Example:

procedure TForm1.AdvGridExcelIO1ExportColumnFormat(Sender: TObject; GridCol,
  GridRow, XlsCol, XlsRow: Integer; const Value: WideString;
  var ExportCellAsString: Boolean);
begin
  if GridCol = 2 then
    ExportCellAsString := true;
end;

This will treat all cells in column 2 as text cells for the generated Excel sheet.

TAdvSmoothListBox
How to programmatically load an image from an imagelist

You can load the images with the code below:

For .BMP files

var
  I: Integer;
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  for I := 0 to ImageList1.Count - 1 do
  begin
    ImageList1.GetBitmap(I, bmp);
    AdvSmoothListBox1.Items.Add.Image.Assign(bmp);
  end;
  bmp.Free;

For .ICO files

var
  I: Integer;
  ico: TIcon;
  ms: TMemoryStream;
begin
  ico := TIcon.Create;
  for I := 0 to ImageList1.Count - 1 do
  begin
    ImageList1.GetIcon(I, ico);
    ms := TMemoryStream.Create;
    ico.SaveToStream(ms);
    AdvSmoothListBox1.Items.Add.Image.LoadFromStream(ms);
    ms.Free;
  end;
  ico.Free;

TWebUpdate
Translate the dialog "Shutdown application to update executable files?"

Open WUPDENG.RC
Translate the message & recompile the .RC file to a .RES file with BRCC32.exe

THTMLStaticText
How to print

There is no built-in code to directly print a HTMLStaticText. Use

HTMLStaticText.PaintTo()

to either directly print to the printer canvas or to output to a memory bitmap that you can then send to the printer.

THTMLForm
How to print

There is no built-in code to directly print a HTMLForm. Use

HTMLForm.PaintTo()

and paint this to a printer canvas or create a memory bitmap and have the HTMLForm paint to this memory bitmap and print this bitmap.

TAdvSmoothDatePicker
Clear date in TAdvSmoothDatePicker

AdvSmoothDatePicker1.Date := 0;  
AdvSmoothDatePicker1.Clear;

TAdvSmoothDock
How to programmatically load an image from an imagelist

You can load the images with the code below:

For .BMP files

var
  I: Integer;
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  for I := 0 to ImageList1.Count - 1 do
  begin
    ImageList1.GetBitmap(I, bmp);
    AdvSmoothDock1.Items.Add.Image.Assign(bmp);
  end;
  bmp.Free;

For .ICO files

var
  I: Integer;
  ico: TIcon;
  ms: TMemoryStream;
begin
  ico := TIcon.Create;
  for I := 0 to ImageList1.Count - 1 do
  begin
    ImageList1.GetIcon(I, ico);
    ms := TMemoryStream.Create;
    ico.SaveToStream(ms);
    AdvSmoothDock1.Items.Add.Image.LoadFromStream(ms);
    ms.Free;
  end;
  ico.Free;

TAdvSmoothDock
TAdvSmoothDock on the desktop

AdvSmoothDock on the desktop

The TAdvSmoothDock can also be placed on the desktop with some minor code changes. Download and examine the sample below:

Download the demo

Below is a preview if the demo is running:

TMS Smooth Controls Pack
Clear date in TAdvSmoothDatePicker

AdvSmoothDatePicker1.Date := 0;
AdvSmoothDatePicker1.Clear;

TAdvDBComboBox
Programmatically adding items

To add values to a TAdvDBComboBox programmatically, by far the easiest solution is to use the method AdvDBComboBox.AddDisplayAndStoredValue. Example:

  AdvDBComboBox1.AddDisplayAndStoredValue('<1000','0');
  AdvDBComboBox1.AddDisplayAndStoredValue('>1000 and <10000 ','1');
  AdvDBComboBox1.AddDisplayAndStoredValue('>10000 and <50000 ','2');
  AdvDBComboBox1.AddDisplayAndStoredValue('>50000 and <100000 ','3');
  AdvDBComboBox1.AddDisplayAndStoredValue('>100000 and <500000 ','4');
  AdvDBComboBox1.AddDisplayAndStoredValue('>500000 and <1000000 ','5');
  AdvDBComboBox1.AddDisplayAndStoredValue('>1000000','6');

Where the first value is what will be displayed in TAdvDBComboBox and the 2nd value what will be stored in the DB field.

To clear items programmatically, you can use:

AdvDBComboBox.Items.Clear;

TAdvSmoothDock
Disable internal drag/drop in TAdvSmoothDock

To disable the internal item drag/drop in the TAdvSmoothDock add the
OnItemStartDrag event and set Allow to false:

procedure TForm1.AdvSmoothDock1ItemStartDrag(Sender: TObject;
  DragItem: TAdvSmoothDockItem; var Allow: Boolean);
begin
  Allow := false;
end;

Explore All Products

Frequently Asked Component Specific Questions

Options