home *** CD-ROM | disk | FTP | other *** search
/ Chip: Shareware for Win 95 / Chip-Shareware-Win95.bin / ostatni / delphi / ruzne / auto32d3.exe / rar / AUTO32D3 / DEMOS / DELPHI3.0 / DBGRIDAD / MAIN.PAS < prev   
Pascal/Delphi Source File  |  1997-07-05  |  2KB  |  69 lines
  1. unit main;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Grids, DBGrids, adbgrid, DB, DBTables, StdCtrls, ExtCtrls,
  8.   DBCtrls, Buttons, agridbtn;
  9.  
  10. type
  11.   TMainForm = class(TForm)
  12.     Table1: TTable;
  13.     DataSource1: TDataSource;
  14.     Panel1: TPanel;
  15.     Panel2: TPanel;
  16.     AutoDBGrid1: TAutoDBGrid;
  17.     CheckBox1: TCheckBox;
  18.     CheckBox2: TCheckBox;
  19.     Button1: TButton;
  20.     BitBtn1: TBitBtn;
  21.     Table1SpeciesNo: TFloatField;
  22.     Table1Category: TStringField;
  23.     Table1Common_Name: TStringField;
  24.     Table1SpeciesName: TStringField;
  25.     Table1Lengthcm: TFloatField;
  26.     Table1Length_In: TFloatField;
  27.     Table1Notes: TMemoField;
  28.     Table1Graphic: TGraphicField;
  29.     Label1: TLabel;
  30.     DBNavigator1: TDBNavigator;
  31.     procedure CheckBox1Click(Sender: TObject);
  32.     procedure CheckBox2Click(Sender: TObject);
  33.     procedure Button1Click(Sender: TObject);
  34.   private
  35.     { Private declarations }
  36.   public
  37.     { Public declarations }
  38.   end;
  39.  
  40. var
  41.   MainForm: TMainForm;
  42.  
  43. implementation
  44.  
  45. uses About;
  46.  
  47. {$R *.DFM}
  48.  
  49. procedure TMainForm.CheckBox1Click(Sender: TObject);
  50. begin
  51.   if(CheckBox1.Checked) then
  52.     AutoDBGrid1.AutoOptions := AutoDBGrid1.AutoOptions +  [adgViewMemo]
  53.   else AutoDBGrid1.AutoOptions := AutoDBGrid1.AutoOptions -  [adgViewMemo];
  54. end;
  55.  
  56. procedure TMainForm.CheckBox2Click(Sender: TObject);
  57. begin
  58.   if(CheckBox2.Checked) then
  59.     AutoDBGrid1.AutoOptions := AutoDBGrid1.AutoOptions +  [adgViewImage]
  60.   else AutoDBGrid1.AutoOptions := AutoDBGrid1.AutoOptions -  [adgViewImage];
  61. end;
  62.  
  63. procedure TMainForm.Button1Click(Sender: TObject);
  64. begin
  65.   fmAboutBox.ShowModal;
  66. end;
  67.  
  68. end.
  69.