home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi 4 Bible
/
Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso
/
source
/
FISHY
/
MAIN.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1998-03-16
|
1KB
|
53 lines
unit Main;
interface
uses
SysUtils, Windows, Messages, Classes, Graphics, Controls,
Dialogs, StdCtrls, Forms, DBCtrls, DB, DBGrids, DBTables,
Grids, Buttons, ExtCtrls;
type
TMainForm = class(TForm)
ScrollBox: TScrollBox;
DBNavigator: TDBNavigator;
Panel1: TPanel;
DataSource1: TDataSource;
Panel2: TPanel;
Table1: TTable;
DBImage1: TDBImage;
DBGrid1: TDBGrid;
Table1NAME: TStringField;
Table1AREA: TStringField;
Table1BMP: TBlobField;
BitBtn1: TBitBtn;
procedure FormCreate(Sender: TObject);
procedure DBImage1DblClick(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
MainForm: TMainForm;
implementation
{$R *.DFM}
{- Open the Table1 dataset }
procedure TMainForm.FormCreate(Sender: TObject);
begin
Table1.Open;
end;
{- Respond to double click in Blob image }
procedure TMainForm.DBImage1DblClick(Sender: TObject);
begin
with DBImage1.Picture do
ShowMessage('W=' + IntToStr(Width) +
' H=' + IntToStr(Height));
end;
end.