home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / imagelib / ufullscr.pa_ / ufullscr.pa
Text File  |  1995-09-24  |  2KB  |  68 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 3.0
  7.  
  8. Changed callback in version 2.21 to a function with cdecl.
  9. using the C calling convention.
  10.  
  11. scrolling text images
  12. Cut, Copy and Paste to/from the clipboard
  13. Printing bitmaps}
  14.  
  15.  
  16. unit Ufullscr;
  17.  
  18. interface
  19.  
  20. uses
  21.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  22.   Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Tmultip;
  23.  
  24. type
  25.   TFullSlide = class(TForm)
  26.     MultiImage1: TPMultiImage;
  27.     procedure ImageClick(Sender: TObject);
  28.     procedure FormCreate(Sender: TObject);
  29.     procedure MultiImage1KeyDown(Sender: TObject; var Key: Word;
  30.       Shift: TShiftState);
  31.   private
  32.     { Private declarations }
  33.   public
  34.     { Public declarations }
  35.   end;
  36.  
  37. var
  38.   FullSlide: TFullSlide;
  39.  
  40. implementation
  41.  
  42. {$R *.DFM}
  43.  
  44. {-------------------------------------------------------------------------}
  45. procedure TFullSlide.FormCreate(Sender: TObject);
  46. begin
  47.   SetBounds(0,0,screen.width,screen.height);
  48.   MultiImage1.top:=0;
  49.   MultiImage1.left:=0;
  50.   MultiImage1.height:=screen.height;
  51.   MultiImage1.width:=screen.width;
  52. end;
  53. {---------------------------------------------------------------------}
  54.  
  55. procedure TFullSlide.ImageClick(Sender: TObject);
  56. begin
  57.   fullslide.close;
  58. end;
  59.  
  60. procedure TFullSlide.MultiImage1KeyDown(Sender: TObject; var Key: Word;
  61.   Shift: TShiftState);
  62. begin
  63.  ImageClick(Sender);
  64. end;
  65.  
  66. end.
  67.  
  68.