CadImageDLL SetCadBorderType in Delphi

Discuss and ask questions about CAD DLL (CAD Image DLL, CAD Importer DLL).

Moderators: support, SDS, admin

Post Reply
Borni
Posts: 6
Joined: 11 Jul 2007, 16:13

CadImageDLL SetCadBorderType in Delphi

Post by Borni » 11 Jul 2007, 16:28

Hello,

i'm searching for this function in delphi

"If CADImage <> 0 Then
SetCADBorderType CADImage, BorderType
SetCADBorderSize CADImage, BorderSize"

where i can find it in Delphi ??????

HELP ME !!!!!!

Borni
Posts: 6
Joined: 11 Jul 2007, 16:13

Post by Borni » 11 Jul 2007, 17:09

<blockquote id="quote"><font size="2" face="Verdana, Arial, Helvetica" id="quote">quote:<hr height="1" noshade id="quote">

"If CADImage <> 0 Then
SetCADBorderType CADImage, BorderType
SetCADBorderSize CADImage, BorderSize"

<hr height="1" noshade id="quote"></font id="quote"></blockquote id="quote">
In file sgcadimage.pas this is not declared.
Which entries should be shown ???[?][?][?]

support
Posts: 2930
Joined: 30 Mar 2005, 11:36
Contact:

Post by support » 12 Jul 2007, 10:38

Hello Borni,

It is necessary to add the following lines into the <b>sgCADImage.pas</b>:

after:

Code: Select all

<font color="green">{$IFDEF CS_STATIC_DLL}</font id="green">
  ...
  TSetCADBorderType = <b>function</b> SetCADBorderType(Handle: THandle; <b>const</b> ABorderType: Integer): Integer; <b>stdcall</b>;
  TSetCADBorderSize = <b>function</b> SetCADBorderSize(Handle: THandle; <b>const</b> ABorderSize: Double): Integer; <b>stdcall</b>;
...
and after:

Code: Select all

<font color="green">{$ELSE}</font id="green">
  ...
  <b>function</b> SetCADBorderType(Handle: THandle; <b>const</b> ABorderType: Integer): Integer; <b>stdcall</b>;
    <b>external</b> CADImage name <font color="blue">'SetCADBorderType'</font id="blue">;
  <b>function</b> SetCADBorderSize(Handle: THandle; <b>const</b> ABorderSize: Double): Integer; <b>stdcall</b>;
    <b>external</b> CADImage name <font color="blue">'SetCADBorderSize'</font id="blue">;
...
Sergey.

Please post questions to the forum or write to support@cadsofttools.com

Borni
Posts: 6
Joined: 11 Jul 2007, 16:13

Post by Borni » 13 Jul 2007, 15:44

thanks for your quick answer.

Everything functions perfectly.[:D]

Post Reply