home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / imagelib / bfullscr.pa_ / bfullscr.pa
Text File  |  1995-09-29  |  1KB  |  61 lines
  1. {Part of Imagelib VCL/DLL Library.
  2. Written by Jan Dekkers and Kevin Adams (c) 1995. If you are a non
  3. registered client, you may use or alter this demo only for evaluation
  4. purposes.
  5.  
  6. Uses ImageLib 2.2.1 Changed the callback to a function instead of a
  7. procedure to let the user cancel out. Added:
  8.  
  9. Changed callback in version 2.21 to a function with cdecl.
  10. using the C calling convention.
  11.  
  12. scrolling text images
  13. Cut, Copy and Paste to/from the clipboard
  14. Printing bitmaps}
  15.  
  16.  
  17. unit Bfullscr;
  18.  
  19. interface
  20.  
  21. uses
  22.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  23.   Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, TMultiP;
  24.  
  25. type
  26.   TFullSlide = class(TForm)
  27.     MultiImage1: TPMultiImage;
  28.     procedure ImageClick(Sender: TObject);
  29.     procedure FormCreate(Sender: TObject);
  30.   private
  31.     { Private declarations }
  32.   public
  33.     { Public declarations }
  34.   end;
  35.  
  36. var
  37.   FullSlide: TFullSlide;
  38.  
  39. implementation
  40.  
  41. {$R *.DFM}
  42.  
  43. {-------------------------------------------------------------------------}
  44. procedure TFullSlide.FormCreate(Sender: TObject);
  45. begin
  46.   SetBounds(0,0,screen.width,screen.height);
  47.   MultiImage1.top:=0;
  48.   MultiImage1.left:=0;
  49.   MultiImage1.height:=screen.height;
  50.   MultiImage1.width:=screen.width;
  51. end;
  52.  
  53. {-------------------------------------------------------------------------}
  54. procedure TFullSlide.ImageClick(Sender: TObject);
  55. begin
  56.   fullslide.close;
  57. end;
  58.  
  59. end.
  60.  
  61.