TMS Software

Frequently Asked Component Specific Questions

Options

Display all FAQ items

Search FAQ items:

Displaying items 766 to 780 of 888, page 52 of 60

<< previous next >>

TMS IntraWeb Component Pack Pro
When trying to install the TMS components I encounter an error message similar to Can't find procedure @Iwbasecontrol@TIWBaseControl@get_Visible$qqrv in DDL-file Intraweb_60_70.bpl

Before installing a new version, FIRST delete ALL old version files. This includes ALL old TMS *.DCU, *.OBJ, *.HPP, *.BPL, *.DCP, *.BPI, *.LIB files. Look for files in your FULL Delphi or C++Builder library path as well as Windows\System and Windows\System32 directories. Make sure that there are not multi IntraWeb version files as well on your system.

TMS IntraWeb Component Pack Pro
When trying to compile the TMS Components, I encounter an error message similar to "it := Control.RenderHTML;" // not enough actual Parameters.

Make sure you have followed the instructions in INSTALL.TXT to copy TMSDEFS6.INC over TMSDEFS.INC and that no other incorrect TMSDEFS.INC file is in your library path

TMS IntraWeb Component Pack Pro
What is the difference between the TMS IntraWeb Component Pack Pro and the TMS IntraWeb Component Pack Pro Script Edition ?

The TMS IntraWeb Component Pack Pro Script Edition comes with a syntax highlighting Javascript design time editor with Javascript event paramater information for the various client-events of TMS IntraWeb controls as well as the default IntraWeb component client events. The Script Edition is especially useful if you intend to do fine grained extra Javascript control of your web applications.

TMS IntraWeb Query Builder
How can I use a database component library for which no built-in interface component is provided in IntraWeb Query Builder?

You can use TatCustomDatabase component to manually retrieve tables and field names and pass the names to visual query component. Just drop a TatCustomDatabase component and set event handlers for all its events. The example below shows how to use TatCustomDatabase to support BDE components (although it is already supported by the specific TatBDEDatabase component). You must have a TDatabase component in the form named Database1 which points to the DBDEMOS database.

procedure TForm1.atCustomDatabase1ReadSqlPropertyEvent(ADataset: TDataSet;
  var ASQL: String);
begin
  if ADataset is TQuery then
    ASQL := TQuery(ADataset).SQL.Text;
end;

procedure TForm1.atCustomDatabase1RetrieveFieldNameListEvent(
  const ATableName: String; const AList: TStrings);
var
  table: TTable;
  c: integer;
begin
  table:=TTable.Create(nil);
  try
    table.DatabaseName := 'DBDEMOS';
    table.TableName := ATableName;
    table.FieldDefs.Update;
    for c := 0 to table.FieldDefs.Count-1 do
      AList.AddObject(
      table.FieldDefs[c].Name, // FieldName
      TObject(Ord(table.FieldDefs[c].DataType)) ); // DataType
  finally
    table.Free;
  end;
end;

procedure TForm1.atCustomDatabase1RetrieveTablenameListEvent(
  const AList: TStrings);
begin
  Database1.GetTableNames(AList);
end;

procedure TForm1.atCustomDatabase1OpenQueryEvent(ASql: String;
  var ADataset: TDataSet);
begin
  ADataset := TQuery.Create(Self);
  with TQuery(ADataset) do
  try
    DatabaseName := 'DBDEMOS';
    Sql.Text := ASql;
    Open;
  except
    ADataset.Free;
    ADataset := nil;
    raise;
  end;
end;

procedure TForm1.atCustomDatabase1WriteSqlPropertyEvent(ADataset: TDataSet;
  ASql: String);
begin
  if ADataset is TQuery then
    TQuery(ADataset).SQL.Text := ASQL;
end;

TMS Query Studio
How can I use a database component library for which no built-in interface component is provided in IntraWeb Query Builder?

procedure TForm1.atCustomDatabase1ReadSqlPropertyEvent(ADataset: TDataSet;
  var ASQL: String);
begin
  if ADataset is TQuery then
    ASQL := TQuery(ADataset).SQL.Text;
end;

procedure TForm1.atCustomDatabase1RetrieveFieldNameListEvent(
  const ATableName: String; const AList: TStrings);
var
  table: TTable;
  c: integer;
begin
  table:=TTable.Create(nil);
  try
    table.DatabaseName := 'DBDEMOS';
    table.TableName := ATableName;
    table.FieldDefs.Update;
    for c := 0 to table.FieldDefs.Count-1 do
      AList.AddObject(
      table.FieldDefs[c].Name, // FieldName
      TObject(Ord(table.FieldDefs[c].DataType)) ); // DataType
  finally
    table.Free;
  end;
end;

procedure TForm1.atCustomDatabase1RetrieveTablenameListEvent(
  const AList: TStrings);
begin
  Database1.GetTableNames(AList);
end;

procedure TForm1.atCustomDatabase1OpenQueryEvent(ASql: String;
  var ADataset: TDataSet);
begin
  ADataset := TQuery.Create(Self);
  with TQuery(ADataset) do
  try
    DatabaseName := 'DBDEMOS';
    Sql.Text := ASql;
    Open;
  except
    ADataset.Free;
    ADataset := nil;
    raise;
  end;
end;

procedure TForm1.atCustomDatabase1WriteSqlPropertyEvent(ADataset: TDataSet;
  ASql: String);
begin
  if ADataset is TQuery then
    TQuery(ADataset).SQL.Text := ASQL;
end;

TMS Diagram Studio
Adding restrictions to diagram blocks

ADControl.Restrictions := ADControl.Restrictions + [crNoMove];

TMS Diagram Studio
Programmatically adding a line between 2 diagram block links

MyLine := TDiagramLine.Create(Self);
with MyLine do
begin
  Name := 'MyLineName';
  Diagram := atDiagram1;
  //link start point to someblock
  SourceLinkPoint.AnchorLink := SomeBlock.LinkPoints[0]; 
  // link end point to anotherblock
  TargetLinkPoint.AnchorLink := AnotherBlock.LinkPoints[1]; 
end;

TMS Diagram Studio
Creating and inserting a diagram block programmatically

MyBlock := TDiagramBlock.Create(Self);
with MyBlock do
begin
  Name := 'MyblockName';
  Left := 10;
  Top := 10;
  Width := 150;
  Height := 50;
  Diagram := atDiagram1;
end;

TMS Diagram Studio
Using a metafile as block

with atDiagram1.Blocks[0] do
begin
  Shape := bsNoShape;
  Metafile.LoadFromFile('mymetafile.wmf');
end;

Note: Metafiles are not supported in Direct2D, which is default drawing engine for TMS Diagram Studio. You can force using GDI+ though:

atDiagram1.GraphicLib := dglGdiPlus;

TMS Diagram Studio
Adding metafiles as block on the toolbar

procedure TForm1.atDiagram1InsertDControl(Sender: TObject; ADControl: TDiagramControl);
begin
  if UpperCase(ADControl.DControlID) = 'MYBLOCK' then
  begin
    With ADControl As TDiagramBlock do
    begin
      Shape := bsNoShape;
      Metafile.LoadFromFile('C:\MyMetafile.wmf');
    end;
  end else
  if UpperCase(ADControl.DControlID) = 'MYOTHERBLOCK' then
  begin
    With ADControl As TDiagramBlock do
    begin
    Color := clYellow;
    end;
  end;
end;

initialization

RegisterDControl(TDiagramBlock, 'MyBlock', 'This is a caption for my block', 'My category');
RegisterDControl(TDiagramBlock, 'MyOtherBlock', 'This is a caption for my other block', 'My category');

Note: Metafiles are not supported in Direct2D, which is default drawing engine for TMS Diagram Studio. You can force using GDI+ though:

atDiagram1.GraphicLib := dglGdiPlus;

TWebConnect
Connect a machine to the Internet:

WebConnect.Connect := True

TWebConnect
Disconnect a machine from the Internet:

WebConnect.Connect := False

TWebConnect
Check the connection status:

If WebConnect.Connected
then
  ShowMessage('Machine is connected to the Internet')
else
  ShowMessage('Machine is not connected to the Internet');

Getting Started

GUIMotions uses DirectX 9 for rendering. If you have an older machine without DirectX 9 installed, the Microsoft DirectX 9 redistributable can be found here.

If you have DirectX 9 installed, make sure that Direct3D is enabled. To verify this, start the Windows utility dxdiag and check under "Display" tab.

TCabFile
Compressing multiple files from a directory

CABFile.CABFileContents.Clear;
CABFile.CABFileContents.AddFolder('\my documents\*.doc');
CABFile.CABFile := 'mycabfile.cab';
CABFile.Compress;

Explore All Products 1

Frequently Asked Component Specific Questions

Options