home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Power Pack / Visual_Basic4_Power_Pack.bin / vb4files / ilib_vb / udbsimp.pa_ / udbsimp.pa
Encoding:
Text File  |  1996-11-20  |  1.5 KB  |  82 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. Written by Jan Dekkers and Kevin Adams (c) 1995, 1996. If you are a non
  16. registered client, you may use or alter this demo only for evaluation
  17. purposes.
  18.  
  19. Copyright by SkyLine Tools. All rights reserved.
  20.  
  21. Part of Imagelib VCL/DLL Library.
  22. }
  23.  
  24. unit Udbsimp;
  25.  
  26. {Includes settings to compile in either 16 or 32 bit}
  27. {$I DEFILIB.INC}
  28.  
  29. interface
  30.  
  31. uses
  32. {$IFDEF DEL32}
  33.   Windows,
  34. {$ELSE}
  35.   WinTypes,
  36.   WinProcs,
  37. {$ENDIF}
  38.   DLL95V1,    {ImageLib Dll interface and misc. functions}
  39.   SysUtils,
  40.   Messages,
  41.   Classes,
  42.   Graphics,
  43.   Controls,
  44.   Forms,
  45.   Dialogs,
  46.   ExtCtrls,
  47.   DBCtrls,
  48.   DB,
  49.   DBTables,
  50.   StdCtrls,
  51.   Tdmultip;
  52.  
  53.  
  54. type
  55.   TSimpleForm = class(TForm)
  56.     Table1: TTable;
  57.     DataSource1: TDataSource;
  58.     DBNavigator1: TDBNavigator;
  59.     Label1: TLabel;
  60.     DBMultiImage1: TPDBMultiImage;
  61.     procedure FormCreate(Sender: TObject);
  62.   private
  63.     { Private declarations }
  64.   public
  65.     { Public declarations }
  66.   end;
  67.  
  68. var
  69.   SimpleForm: TSimpleForm;
  70.  
  71. implementation
  72.  
  73. {$R *.DFM}
  74.  
  75. procedure TSimpleForm.FormCreate(Sender: TObject);
  76. begin
  77.   Table1.DatabaseName:=ExtractFilepath(Application.ExeName);
  78.   Table1.Active:=True;
  79. end;
  80.  
  81. end.
  82.