CadImageDLL SetCadBorderType in Delphi

Borni · 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 · 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 ???[?][?][?]

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 · Post by **Borni** » 13 Jul 2007, 15:44

thanks for your quick answer.

Everything functions perfectly.[:D]