home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / imagelib / usimple.pa_ / usimple.pa
Text File  |  1995-10-01  |  1KB  |  56 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 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 Usimple;
  18.  
  19. interface
  20.  
  21. uses
  22.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  23.   Forms, Dialogs, StdCtrls, Tmultip;
  24.  
  25. type
  26.   TSimpleForm = class(TForm)
  27.     Button1: TButton;
  28.     OpenDialog1: TOpenDialog;
  29.     MultiImage1: TPMultiImage;
  30.     procedure Button1Click(Sender: TObject);
  31.   private
  32.     { Private declarations }
  33.   public
  34.     { Public declarations }
  35.   end;
  36.  
  37. var
  38.   SimpleForm: TSimpleForm;
  39.  
  40. implementation
  41.  
  42. {$R *.DFM}
  43.  
  44. procedure TSimpleForm.Button1Click(Sender: TObject);
  45. begin
  46.  
  47.  if OpenDialog1.execute then begin
  48.   Screen.Cursor:=CRHOURGLASS;
  49.   MultiImage1.Imagename:=OpenDialog1.filename;
  50.   Screen.Cursor:=CRDEFAULT;
  51.  end;
  52. end;
  53.  
  54.  
  55. end.
  56.