home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / imagelib / udbsimp.pa_ / udbsimp.pa
Text File  |  1995-10-01  |  1KB  |  52 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. unit Udbsimp;
  16.  
  17. interface
  18.  
  19. uses
  20.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  21.   Forms, Dialogs, ExtCtrls, DBCtrls, DB, DBTables, StdCtrls, Tdmultip;
  22.  
  23.  
  24. type
  25.   TSimpleForm = class(TForm)
  26.     Table1: TTable;
  27.     DataSource1: TDataSource;
  28.     DBNavigator1: TDBNavigator;
  29.     Label1: TLabel;
  30.     DBMultiImage1: TPDBMultiImage;
  31.     procedure FormCreate(Sender: TObject);
  32.   private
  33.     { Private declarations }
  34.   public
  35.     { Public declarations }
  36.   end;
  37.  
  38. var
  39.   SimpleForm: TSimpleForm;
  40.  
  41. implementation
  42.  
  43. {$R *.DFM}
  44.  
  45. procedure TSimpleForm.FormCreate(Sender: TObject);
  46. begin
  47.   Table1.DatabaseName:=ExtractFilepath(Application.ExeName);
  48.   Table1.Active:=True;
  49. end;
  50.  
  51. end.
  52.