unit1.~pas

精彩编程百例75～100 其中有媒体播放器 SQL语言编辑器 ADO方法连接多个数据库 用户密码验证系统 获取Man地址 信史服务 ping命令等待

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    ScrollBar1: TScrollBar;
    DBGrid1: TDBGrid;
    DBImage1: TDBImage;
    DBNavigator1: TDBNavigator;
    DataSource1: TDataSource;
    Table1: TTable;
    procedure DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
    Field: TField; State: TGridDrawState);
    procedure ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
    var ScrollPos: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
var
bmp:TBitmap;
begin
  with DBGrid1.Canvas do
    begin
      Fillrect(Rect);
      if Field is TGraphicField then
        try
          bmp:=TBitmap.Create ;
          bmp.Assign(Field);
          Draw(Rect.Left ,Rect.Top ,bmp);
        finally
          bmp.Free;
        end
      else
        textout(rect.Left ,rect.Top ,Field.Text );
    end;
end;
procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
begin
edit1.Text:='数据表字体的大小是 '+IntToStr(ScrollPos);
DBGrid1.Font.Size :=ScrollPos;
end;
end.