TMS Software

Frequently Asked Component Specific Questions

Options

Display all FAQ items

Search FAQ items:

Displaying items 811 to 825 of 888, page 55 of 60

<< previous next >>

TAdvPageControl
Adding drag & drop on tabs for TAdvPageControl

Set TAdvPageControl.DragMode to dmManual and use this code in the TAdvPageControl events to perform drag & drop to reorder tabsheets:

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

procedure TForm1.AdvPageControl1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  TAdvPageControl(Sender).BeginDrag(false, 5);
end;

procedure TForm1.AdvPageControl1DragDrop(Sender, Source: TObject; X,
  Y: Integer);
var
  i: Integer;
begin
  if (Sender = Source) then
  begin
    i := TAdvPageControl(Sender).IndexOfTabAt(X, Y);
      if (i>= 0) and (i < TAdvPageControl(Sender).PageCount) then
        TAdvPageControl(Sender).ActivePage.PageIndex := i;
  end
  else if (Source is TAdvPageControl) then
  begin
    TAdvPageControl(Source).ActivePage.AdvPageControl := TAdvPageControl(Sender);
  end;
end;

TAdvOfficeTabSet
Getting Started

Drop a TAdvOfficeTabSet on the form and click AdvOfficeTabs in the object inspector to add tabs to the TAdvOfficeTabSet.
Add a TAdvOfficeTabSetOfficeStyler on the form and assign the component to TAdvOfficeTabSet.AdvOfficeTabSetStyler.
Select the style with TAdvOfficeTabSetOfficeStyler.Style.

To use TAdvOfficeMDITabSet in your MDI applications, it is sufficient to drop TAdvOfficeMDITabSet on the form and in the procedure to create your child window, add:

AdvOfficeMDITabSet.AddTab(Child);

The TAdvOfficeMDITabSet will automatically manage:

activation on click on MDI child
close of MDI child on tab close click
tab scrolling
tab selection through attached popup menu

TAdvOfficePager
Getting Started

Drop a TAdvOfficePager on the form and right-click to add pages to the TAdvOfficePager.
Add a TAdvOfficePagerOfficeStyler on the form and assign the component to TAdvOfficePager.AdvOfficePagerStyler.
Select the style with TAdvOfficePagerOfficeStyler.Style.

TAdvOfficePager
Programmatically inserting a page

pc: TAdvOfficePage:

pc := TAdvOfficePage.Create(self);
pc.AdvOfficePager := AdvOfficePager1;
pc.Caption := 'New page';

TAdvGroupBox
Getting Started

Drop a TAdvGroupBox on the form and add components that should appear in the groupbox to this groupbox.

TAdvFocusHelper
To set focus indication only on specific controls:

- Set the Tag property of controls for which focus indication is needed to a specific value.
- Set AdvFocusHelper.ControlTag to this value.
- Set icTagValue = true in AdvFocusHelper.IncludeControls

TAdvTaskDialog
Getting Started

See article for use of the Windows Vista TaskDialog

TAdvWiiProgressBar
Getting Started

Drop a TAdvWiiProgressBar on the form and control progress indication with Enabled property.
Progress speed indication can be set with the Interval property.

TAdvTabSet
Using tab background bitmaps

TAdvPageControl and TAdvTabSet are designed to allow easy and flexible use of tab background bitmaps. A single bitmap is sufficient to be used as normal tab background and another bitmap as selected tab background. The bitmap's bottom-most line is not used. The color of this bottom most line is used as transparency color. The tab bitmap is split in 3 parts to automatically stretch in an intelligent way to the size of the tab.The leftmost and rightmost half of the background bitmap are used as leftmost and rightmost part in the actual tab background. The middle 2 pixels are stretched to fill the full tab. In this way, a single bitmap is sufficient to draw all tab widths and all corner detail is maximally preserved. The same applies for bitmaps used for vertical tabs but the mechanism to split the bitmap is rotated 90 degrees.

TAdvTabSet
Left and right positioned tabs

In order to use left and right positioned tabs, a vertical oriented font is displayed. Only truetype fonts support font orientation. Make sure to specify a truetype font for AdvPageControl.Font and AdvPageControl.ActiveFont.

TAdvTabSet
Hiding tabs

In order to hide a tab from the TAdvPageControl, use the code

AdvPageControl.Pages[PageIndex].TabVisible := false;

TAdvTabSet
Programmatically adding a page to TAdvPageControl

This code snippet programmatically inserts a new page in the TAdvPageControl

ats := TAdvTabSheet.Create(AdvPageControl1);
ats.AdvPageControl := AdvPageControl1;
ats.Caption := 'New tab';

TAdvTabSet
Adding drag & drop on tabs for TAdvPageControl

Set TAdvPageControl.DragMode to dmManual and use this code in the TAdvPageControl events to perform drag & drop to reorder tabsheets:

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

procedure TForm1.AdvPageControl1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  TAdvPageControl(Sender).BeginDrag(false, 5);
end;

procedure TForm1.AdvPageControl1DragDrop(Sender, Source: TObject; X,
  Y: Integer);
var
  i: Integer;
begin
  if (Sender = Source) then
  begin
    i := TAdvPageControl(Sender).IndexOfTabAt(X, Y);
      if (i>= 0) and (i < TAdvPageControl(Sender).PageCount) then
        TAdvPageControl(Sender).ActivePage.PageIndex := i;
  end
  else if (Source is TAdvPageControl) then
  begin
    TAdvPageControl(Source).ActivePage.AdvPageControl := TAdvPageControl(Sender);
  end;
end;

TAdvSplitter
Getting Started

Drop a TAdvSplitter on the form and set direction with Align property.
Colors can be controlled with Appearance property.
GripStyle property selects the grip.

TAdvSmartMessageBox
To show a smart message, following code can be used:

with AdvSmartMessageBox1.Messages.Add do
begin
  Text := 'Hello, this is a <b>HTML</b> formatted message';
  Show;
end;

Explore All Products 7

Frequently Asked Component Specific Questions

Options