TMS Software

Frequently Asked Component Specific Questions

Options

Display all FAQ items

Search FAQ items:

Displaying items 481 to 495 of 886, page 33 of 60

<< previous next >>

TMS IntraWeb iPhone controls pack
Redirection for iPhone, iPod, iPad browser

In case you want to show a different web application for users of a desktop browser versus users of an iPhone, iPod, iPad browser, following code can be added in the server controller to redirect:

procedure TIWServerController.IWServerControllerBaseBeforeDispatch(
   Sender: TObject; Request: TWebRequest; Response: TWebResponse;
   var Handled: Boolean);
begin
   if (Pos('iPhone',Request.UserAgent) <> 0)  or
      (Pos('iPod',Request.UserAgent) <> 0) or
      (Pos('iPad',Request.UserAgent) <> 0) then
   begin
     Response.SendRedirect(URLOFMOBILEWEBAPP);
     Handled := True;
   end;
end;

TDBAdvGrid
Filtering and sorting in TDBAdvGrid

If you set grid.PageMode= false, you can use the same capabilities to filter as for a TAdvStringGrid

If you want to use the built-in sorting capabilities of the grid, you need to set grid.PageMode= false, but you can as well perform sorting on dataset level instead with PageMode = true.

Please have a look at the demos ADOSort / BDESort in the TDBAdvGrid samples distribution as well as the topic on sorting in the TDBAdvGrid PDF developers guide that explains how you can use the OnCanSort event to achieve this.

THotSpotImage
How to print

There is no built-in method to directly print a THotSpotImage.
Use the method HotSpotImage.PaintTo() to print to the Printer Canvas or to print to a memory bitmap and send this bitmap to the printer.

Some answers to how to do this can be found at: http://www.delphipages.com/forum/showthread.php?t=158914

THTMLTreeView
How to add/remove and get/set state of radiobuttons & checkboxes

Following methods are available to add/remove and get/set state of radiobuttons & checkboxes:

htmltreeview.SetRadioButton();
htmltreeview.GetRadioButton();
htmltreeview.RemoveRadioButton();

htmltreeview.SetNodeCheck();
htmltreeview.GetNodeCheck();
htmltreeview.RemoveNodeCheck();

TAdvLockApp
Lock application with forms in DLLs

A DLL has its own application and screen instance. Therefore, TAdvLockApp cannot know what possible form is active when this form was instantiated from a DLL. The solution for this issue is to initialize the DLL Application & Screen instance to be the same as the main EXE Application and Screen instance. This could be done by exporting a function in the DLL that sets this and call it from the main EXE:

procedure InitDLLAppAndScreen(App: TApplication; scr: Tscreen);
var
  MemHandle: HWND;
  MemScreen: Tscreen;
begin
  MemHandle := Application.Handle;
  MemScreen := Screen;

   try
      Screen := Scr;
      Application.Handle := App.Handle;
      Application.OnIdle := App.OnIdle;
      Application.OnMessage := App.OnMessage;
      Application.Icon.Handle := App.Icon.Handle;
      Application.UpdateFormatSettings := false;
      SetForegroundWindow(Application.Handle);
   finally
      Application.Handle := MemHandle;
      Screen := MemScreen;
   end;
end;

From your main EXE, import this DLL procedure and call InitDLLAppAndScreen(Application, Screen);

TPlannerRangeSelector
How to print

There is no built-in method to directly print a TPlannerCalendar.
Use the method PlannerCalendar.PaintTo() to print to the Printer Canvas or to print to a memory bitmap and send this bitmap to the printer.

Some answers to how to do this can be found at: http://www.delphipages.com/forum/showthread.php?t=158914

TPlanner
Preventing that items are moved to specific time slots

If you want to prevent that at runtime a PlannerItem is moved to a specific timeslot, this can be done from the OnItemMove event. In this event, simply restore the original PlannerItem coordinates and call Abort. Sample code:

procedure TForm1.Planner1ItemMove(Sender: TObject; Item: TPlannerItem;
  FromBegin, FromEnd, FromPos, ToBegin, ToEnd, ToPos: Integer);
begin
  if topos = 2 then
  begin
    ShowMessage('Move to this position not allowed');
    item.ItemBegin := frombegin;
    item.ItemEnd := fromEnd;
    item.ItemPos := frompos;
    abort;
  end;
end;

TMS IntraWeb Component Pack Pro
Using a client-aligned TIWAdvWebGrid

If TIWAdvWebGrid controls is client aligned, you can set the WidthType of every column to wtPercent with an appropriate Width value to make the grid resize when the browser window is resized.

TMS VCL Chart
Selecting points in a series

Below is a sample code with XYLine chart that allows selection of the point with the SelectedIndex property.

var
  I: Integer;
begin
  with AdvChartView1.Panes[0] do
  begin
    Range.RangeTo := 10;
    Series.Clear;
    with Series.Add do
    begin
      ChartType := ctxyLine;
      SelectedIndex := 4;
      SelectedMark := True;
      for I := 0 to 10 do
        AddSingleXYPoint(I / 2, Random(100), RGB(Random(255), Random(255), Random(255)));
    end;
  end;

TMS IntraWeb Component Pack Pro
Why does my TIWAdvWebGrid control not work correctly when using multiple instances on one form?

Make sure each TIWAdvWebGrid control on your form has a unique ID property value.

TMS IntraWeb Component Pack Pro
When installing the TMS IntraWeb Components in Delphi xxxx, the following error appears: [Fatal Error] IWTMSDxxxx.dpk(44): E2202 Required package 'dclIntraweb_y_z' not found.

This means that IntraWeb is not correctly setup. Please make sure that the folder where dclIntraweb_y_z.dcp is located is added to your Delphi library path and then retry to install.

TAdvSmoothTimeLine
Moving the indicator on the timeline with mouse click

Normally the user have to drag the indicator to change the position of the indicator on the timeline. To move the indicator on the timeline with a mouse click, you'd need to do this programmatically.

From the mousedown event, you can get the time of the spot clicked with AdvSmoothTimeLine.XToDateTime(x). You could then for example store a reference to the last indicator clicked in the OnIndicatorClick event and when it is assigned perform the move via:

var
  lastindicator: TAdvSmoothTimeLineBarIndicator;

procedure TForm4.AdvSmoothTimeLine1IndicatorClick(Sender: TObject;
  indicator: TAdvSmoothTimeLineBarIndicator); begin
  lastindicator := indicator;
end;

procedure TForm4.AdvSmoothTimeLine1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin
  if assigned(lastindicator) then
  begin
    lastindicator.Position := advsmoothtimeline1.XToDateTime(x);
  end;
end;

TWebUpdate
Including your company name in de dialog 'Do you want to allow the following program to make changes on this computer? Verified publisher: tmssoftware.com' when using TWebUpdate on Windows Vista / 7

To include your company name as the verified company you'll need to purchase a digital certificate and sign the spawned updater app with your own certificate. For the purchase of digital signatures we'd recommend to have a look at GlobalSign.

Unfortunately this is not us enforcing this, this is Microsoft's security policy. It will only allow digitally signed executables to replace files under \Program Files folder.

The files you need + instructions to perform custom signing of the updater application are available upon email request.

TMS Smooth Controls Pack
Using the GDIPPictureContainerEditor at runtime

With this code you can use the design time editor at runtime:

uses
  GDIPPictureContainerEditor;

procedure TForm4.Button1Click(Sender: TObject);
var
  GDIPPicEdit: TGDIPPictureContainerEditor;
  p: TPictureCollection;
begin
  GDIPPicEdit := TGDIPPictureContainerEditor.Create(Application);
  try
    GDIPPicEdit.PictureCol := GDIPPictureContainer1.Items;
    GDIPPicEdit.Init;
    GDIPPicEdit.ShowModal;
  finally
    GDIPPicEdit.Free;
  end;
end;

TAdvStringGrid
Using the HTMLSettings dialog at runtime

Drop AdvGridHTMLSettingsDialog on the form , assign the grid and call

AdvGridHTMLSettingsDialog1.execute;

Explore All Products

Frequently Asked Component Specific Questions

Options