demo6.pas

Delphi的几个有用的源代码

unit demo6;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
begin
edit1.Text:='数据表字体的大小是 '+IntToStr(ScrollPos);
DBGrid1.Font.Size :=ScrollPos;
end;

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;

end.