pickcustapply.~pas

来自「台湾朋友开发的进销存源代码,可以参考一下」· ~PAS 代码 · 共 62 行

unit pickcustapply;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls,db;

type
  TPickcustApplyfrm = class(TForm)
    Button1: TButton;
    Button2: TButton;
    DBGrid1: TDBGrid;
    procedure DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
      Field: TField; State: TGridDrawState);
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1ColEnter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PickcustApplyfrm: TPickcustApplyfrm;
MyColor:TColor;
implementation

uses MSDM;

{$R *.DFM}

procedure TPickcustApplyfrm.DBGrid1DrawDataCell(Sender: TObject;
  const Rect: TRect;Field: TField; State: TGridDrawState);
//claqua'clinfobk
var Canvas: TCanvas;
begin
 DBgrid1.Columns.State:=csDefault;
 Canvas := (Sender as TDBGrid).Canvas;
    Canvas.Brush.Color := MyColor;
    Canvas.FillRect(Rect);
    DBGrid1.DefaultDrawDataCell(Rect, Field, State);
   if(Field.Index=msdm.ModernSolidDM.CustApplyH.FieldCount-1) then
     if(MyColor=claqua) then
      MyColor:=Clinfobk
  else
       MyColor:=Claqua;
end;

procedure TPickcustApplyfrm.FormCreate(Sender: TObject);
begin
 //MyColor:=Claqua;
end;

procedure TPickcustApplyfrm.DBGrid1ColEnter(Sender: TObject);
begin
 //DBGrid1.Repaint;
 //MyColor:=Claqua;
end;

end.