home *** CD-ROM | disk | FTP | other *** search
/ Delphi 4 Bible / Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso / source / FISHY / MAIN.PAS < prev   
Pascal/Delphi Source File  |  1998-03-16  |  1KB  |  53 lines
  1. unit Main;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, Windows, Messages, Classes, Graphics, Controls,
  7.   Dialogs, StdCtrls, Forms, DBCtrls, DB, DBGrids, DBTables,
  8.   Grids, Buttons, ExtCtrls;
  9.  
  10. type
  11.   TMainForm = class(TForm)
  12.     ScrollBox: TScrollBox;
  13.     DBNavigator: TDBNavigator;
  14.     Panel1: TPanel;
  15.     DataSource1: TDataSource;
  16.     Panel2: TPanel;
  17.     Table1: TTable;
  18.     DBImage1: TDBImage;
  19.     DBGrid1: TDBGrid;
  20.     Table1NAME: TStringField;
  21.     Table1AREA: TStringField;
  22.     Table1BMP: TBlobField;
  23.     BitBtn1: TBitBtn;
  24.     procedure FormCreate(Sender: TObject);
  25.     procedure DBImage1DblClick(Sender: TObject);
  26.   private
  27.     { private declarations }
  28.   public
  29.     { public declarations }
  30.   end;
  31.  
  32. var
  33.   MainForm: TMainForm;
  34.  
  35. implementation
  36.  
  37. {$R *.DFM}
  38.  
  39. {- Open the Table1 dataset }
  40. procedure TMainForm.FormCreate(Sender: TObject);
  41. begin
  42.   Table1.Open;
  43. end;
  44.  
  45. {- Respond to double click in Blob image }
  46. procedure TMainForm.DBImage1DblClick(Sender: TObject);
  47. begin
  48.   with DBImage1.Picture do
  49.   ShowMessage('W=' + IntToStr(Width) +
  50.     ' H=' + IntToStr(Height));
  51. end;
  52.  
  53. end.