home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / RMTP03.ZIP / DISOBJ.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-02-25  |  1.9 KB  |  45 lines
  1. (****************************************************************)
  2. (*                                                              *)
  3. (* Saving a file from Raster Master in XGF format and using the *)
  4. (* BINOBJ program to convert it to an object file allows as to  *)
  5. (* include the image as a part of the executable.               *)
  6. (*                                                              *)
  7. (* eg.                                                          *)
  8. (*     DOS>BINOBJ DISK.XGF DISK.OBJ DISK                        *)
  9. (*                                                              *)
  10. (* Using the above format we create a procedure name DISK and   *)
  11. (* link the object file.                                        *)
  12. (*                                                              *)
  13. (* Procedure Disk; External;                                    *)
  14. (* {$L DISK.OBJ}                                                *)
  15. (*                                                              *)
  16. (****************************************************************)
  17.  
  18.  
  19. Program DisObj;
  20.  Uses Graph;
  21. Var
  22.  Gd   : Integer;
  23.  Gm   : Integer;
  24.  Img  : Pointer;
  25.  
  26. Procedure Disk; External;
  27. {$L DISK.OBJ}                              (* Link DISK.OBJ             *)
  28.  
  29. Begin
  30.  Gd:=EGA;
  31.  Gm:=EGAhi;
  32.  InitGraph(Gd,Gm,'');                      (* Set path where EGAVGA.BGI *)
  33.                                            (* is located                *)
  34.  SetFillStyle(SolidFill,Blue);
  35.  Bar(0,0,639,349);
  36.  
  37.  Img:=@Disk;                               (* Pass the address of the   *)
  38.                                            (* procedure to the pointer  *)
  39.  
  40.  PutImage(300,120,Img^,NormalPut);         (* Display image             *)
  41.  
  42.  ReadLn;                                   (* Wait for enter key        *)
  43.  
  44.  CloseGraph;                               (* Close graphics            *)
  45. End.