TMS Software

Frequently Asked Component Specific Questions

Options

Display all FAQ items

Search FAQ items:

Displaying items 646 to 660 of 888, page 44 of 60

<< previous next >>

TMS Advanced Poly List
Drag & drop items

Drag & drop from one list to a second list can be done by implementing 2 events. Allowing an item to be dropped is setting the Accept parameter true. Dropping the item can be done by calling AddDropItem and as parameter the SelectedDragDropItem from the first list.

procedure TForm1.AdvPolyList2DragOver(Sender, Source: TObject; X, Y: 
Integer; State: TDragState; var Accept: Boolean);
begin
   Accept := Source is TAdvPolyList;
end;

procedure TForm1.AdvPolyList2DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
   AdvPolyList2.AddDropItem((Source as TAdvPolyList).SelectedDragDropItem);
end;

Also internal drag drop is supported. This can be switched off by setting the Reorder parameter to false. When Reorder is true, a default red line will appear that will follow the mouse and show the insert position of the item you want to move.

This is also explained at page 34 of the PDF Developers Guide

TDBPlanner
Can TDBPlanner display multiday events ?

TDBPlanner will display the items that span multiple days in the header for each day where the item occurs, just like in Outlook. If you don't see the event , increase Planner.Header.Height
It can indicate in the caption (when you set PlannerItem.CaptionType = ctTime) the start/end time of the item.

TMS VCL Chart
Simple XY chart Demo

This sample demonstrates a simple XY scatter demo, with properties set to
display the X-values below the main X-Axis as well as displaying the points on a specific
(X, Y) point between RangeFrom and RangeTo.

http://www.tmssoftware.net/public/XYScatterDemo.zip

TAdvPageControl
When setting TAdvPageControl.TabBorder3D to True the "X" is not shown on the tab sheets even when ShowClose is True

It is by design that when TabBorder3D = true, the classic TPageControl look is shown.
As such, in this mode, it cannot show the close buttons as the classic TPageControl does not have this close button capability. If you set TabBorder3D, the TAdvPageControl will look identical on ALL operating systems.

To have a PageControl with close buttons, set TabBorder3D := false or have a look at TAdvOfficePager: https://www.tmssoftware.com/site/aop.asp

TAdvOfficeButtons
How to relate an icon/image to each RadioButton in the TAdvOfficeRadioGroup

You could do this using HTML formatting. You can insert an image via setting a <IMG> tag in the text of the radio group item. See https://www.tmssoftware.com/site/minihtml.asp for the various possibilities for how to specify an image via HTML.

TAdvSmoothListBox
Adding many items to the list fast

To add many items to the TAdvSmoothListBox, the use of BeginUpdate / EndUpdate will significantly accelerate this:

var
  i: integer;
begin
   AdvSmoothListBox1.Items.BeginUpdate;
   for i := 0 to 1000  do
   begin
     AdvSmoothListBox1.Items.Add.Caption := 'item '+ inttostr(i);
   end;
   AdvSmoothListBox1.Items.EndUpdate;
end;

TAdvStringGrid
How to change the size of the find next / previous / highlight buttons in the search bar

The text of the buttons is exposed via grid.SearchFooter and the recommended way is to use the grid.SearchFooter.* properties. The button width is not exposed, therefore it should be set via grid.SearchPanel.

You can access the buttons in code with:

advstringgrid.SearchPanel.ForwardButton: TButton
advstringgrid.SearchPanel.BackwardButton: Tbutton

Make sure to set this after the searchfooter was created.

TAdvMemo
How to add Emoticons programatically

Easiest way to extend / modify this is to start from AdvMes.pas. You can see the override of the method DrawKeyword in the TAdvEmoticonMemoStyler class.

To add/change emoticons, you can add/change emoticons in the resource file advmes.res and change/extend the DrawKeyword function to draw emoticons for different character combinations.

TMS Advanced Poly List
Is any Microsoft licensing required to use the TMS Poly list controls similar to the Office 2007 ribbon ?

TMS Poly list controls can be used for so much more than just the
Office 2010 application menu. They extend these controls and are in
several ways more versatile. Ribbon UI licensing does not apply on
such separate controls.

TAdvSmoothTouchKeyboard
How to set the state of CAPSLOCK programmatically to down

Programmatically this can be done
for KeyboardType ktqwerty with:

AdvSmoothTouchKeyBoard1.PostKey(VK_CAPITAL, [], true, 29);

for KeyboardType ktAZERTY with:

AdvSmoothTouchKeyBoard1.PostKey(VK_CAPITAL, [], true, 28);

TDBAdvGrid
Slow loading date into TDBAdvGrid

Some dataset implementations have a slow MoveBy operation that causes in turn that TDBAdvGrid is slow. A solution for this is to use a SQL 'SELECT COUNT' operation to supply the number of rows in the dataset to TDBAdvGrid via the event OnGetRecordCount.

In this code snippet, OnGetRecordCount is implemented as:

procedure TForm1.DBAdvGrid1GetRecordCount(Sender: TObject; var Count: Integer); 
begin 
  Query2.SQL.Text := 'select Count(*) from Country.db'; 
  Query2.Active := True; Count := Query2.Fields[0].AsInteger; 
  Query2.Active := False; 
end;

This is also explained in the TDBAdvGrid PDF developers guide, page 6.

TAdvListView
Sorting case insensitive on AdvListview

Implement the OnGetFormat event, for example, if column X needs to be sorted case insensitive, write:

procedure TForm1.AdvListView1GetFormat(Sender: TObject; ACol: Integer;
  var AStyle: TSortStyle; var aPrefix, aSuffix: string); 
begin
  if ACol = X then
    AStyle := ssAlphaNoCase;
end;

TMS Advanced Toolbars & Menus
Changing the display time of TAdvOfficeHint

The hint time is controlled the same way as regular hints in Delphi.
This is set with :

Application.HintHidePause
Application.HintPause

TMS VCL Chart
XY chart in combination with DateTime X-Axis

With the release of the new XY Line and Marker chart, we have added the possibility to add a range of datetimes on specific intervals between the RangeFrom and RangeTo.

We have uploaded a sample for you to investigate:

XY DateTime Demo

TInspectorBar
Programmatically adding a property panel and item and starting editor

This code adds a new panel in property style and adds on regular editable item:

var
  pnl: TInspectorPanel;
  inspi: TInspectorItem;
begin
  pnl := inspectorbar1.Panels.Add;
  pnl.Style := psProperties;
  inspi := pnl.Items.Add;
  inspi.PropertyType := ptText;
  inspi.Caption := 'Edit';
end;

This item can be programmatically set into edit mode with the code:

begin
  inspectorbar1.SetFocus;
  inspectorbar1.StartEdit(inspectorbar1.Panels[0].Items[0]);
end;

Explore All Products

Frequently Asked Component Specific Questions

Options