[Back to ANSI SWAG index]  [Back to Main SWAG index]  [Original]

Well, everyone is asking how to integrate a picture from The Draw into your
Pascal Program, so here is how to do it.

First start up The Draw, and either Draw, or load your picture(pretty
simple).

then select Save.
When asked For a save Format, select (ObJect).
For Save Mode, select (Normal).
For Memory Model, select (Turbo Pascal v4+).
For Reference identifier to use, Type in the name that you wish to have the
picture Procedure named, this will be explained later.
then, For the Filename, of course enter the Filename you wish to save it
under.

Next, is the method to place The .OBJ image into your Program.
Somewhere up in the declairations area (after the Var statements, and
beFore your begin) place the following:

{$L C:\PATH\PICTURE.OBJ}
Procedure ProcName; external;  {Change ProcName to the Reference Identifier
                                That you used when saving the picture}

then, to call that picture, there is 1 of 2 ways. First of all, you can
make another Procedure immediatly after this one that goes as such:

Procedure DrawANSIScreen;
begin
  Move(Pointer(@ProcName)^,prt($B800,0)^,4000);
end;

then all you have to do is call the Procedure DrawANSIScreen to draw your
picture. or you can copy that line beginning With Move into your source
code directly. Make sure to again replace the ProcName With your specified
Referecne Identifier. Make sure to give each picture a different
Identifier, I do not know what the outcome would be if you used the same
one. Probally wouldn't even Compile. Also, I have not tried this With
Animation. Considering that this Writes directly to screen, it probally
won't work, or will be too fast For the human eye to follow. On top of
this, I migh point out that since this IS a direct video access, the cursor
WILL not move For it's last position when the screen is printed, so you can
fill the Complete screen, and it will not scroll.

Hope that this has been helpful. It's very easy, and I pulled it direct
from The Draw docs. This is supposed to work With Pascal 6.0 and up only.
to work With earlier Pascal versions, please read the docs. They entail the
process Completely (but not very understandibly <G>).

[Back to ANSI SWAG index]  [Back to Main SWAG index]  [Original]