unit1.pas

控制数据表每行的颜色

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBXpress, DBCtrls, StdCtrls, DB, DBClient, SimpleDS, SqlExpr,
  Grids, DBGrids,ExtCtrls, ADODB, dxExEdtr, dxDBTLCl, dxGrClms, dxDBGrid,
  dxTL, dxDBCtrl, dxCntner;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    DBImage1: TDBImage;
    OpenDialog1: TOpenDialog;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    ADOTable1ID: TIntegerField;
    ADOTable1name: TWideStringField;
    ADOTable1picture: TBlobField;
    Button1: TButton;
    Button2: TButton;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1ID: TdxDBGridMaskColumn;
    dxDBGrid1name: TdxDBGridColumn;
    dxDBGrid1picture: TdxDBGridBlobColumn;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure dxDBGrid1CustomDrawCell(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxTreeListColumn;
      ASelected, AFocused, ANewItemRow: Boolean; var AText: String;
      var AColor: TColor; AFont: TFont; var AAlignment: TAlignment;
      var ADone: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  graphic1:Timage;
begin
  if OpenDialog1.Execute then
  begin
    try
      graphic1:=Timage.Create(self);
      graphic1.picture.loadfromfile(OpenDialog1.filename);
      ADOTable1.Edit;
      ADOTable1.FieldByName('picture').Assign(graphic1.Picture);
    finally
      graphic1.free;
    end;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
      ADOTable1.Edit;
      ADOTable1picture.LoadFromFile(OpenDialog1.filename);
  end;
end;

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
     if ADOTable1.FieldByName('ID').AsInteger > 2 then
     begin
        DBGrid1.Canvas.Font.Color := clBlue;
        DBGrid1.Canvas.Brush.Color:=clGradientActiveCaption;
     end;
     DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

procedure TForm1.dxDBGrid1CustomDrawCell(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxTreeListColumn;
  ASelected, AFocused, ANewItemRow: Boolean; var AText: String;
  var AColor: TColor; AFont: TFont; var AAlignment: TAlignment;
  var ADone: Boolean);
begin
  if dxDBGrid1ID.Field.AsInteger=2 then
    AColor := clGradientActiveCaption;
end;

end.