unit2.pas

Delphi的Glib功能实现 具体功能请看帮助

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, CustomizeGrid, StdCtrls, ExtCtrls,
  ImgList, Spin;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    ADOConnection1: TADOConnection;
    pnlDerecha: TPanel;
    splVertical1: TSplitter;
    pnlCentral: TPanel;
    pnlGrid: TPanel;
    pnlInferior: TPanel;
    splHorizontal: TSplitter;
    cdbg1: TCustomizeGrid;
    chkActivar: TCheckBox;
    mmoCode: TMemo;
    rgEventos: TRadioGroup;
    ilFlags: TImageList;
    nbCodigos: TNotebook;
    mmcodigo0: TMemo;
    mmcodigo1: TMemo;
    mmcodigo2: TMemo;
    mmcodigo3: TMemo;
    mmcodigo4: TMemo;
    mmcodigo5: TMemo;
    mmcodigo6: TMemo;
    cbbTema: TComboBox;
    lblFlatStile: TLabel;
    chkAlternative: TCheckBox;
    qry2: TADOQuery;
    tblCustomers: TADOTable;
    tblVendors: TADOTable;
    dbgrd1: TDBGrid;
    cd1: TColorDialog;
    cd2: TColorDialog;
    lblColores: TLabel;
    edColor1: TPanel;
    edColor2: TPanel;
    procedure CustomizeGrid1PaintCell(FieldName: String; Field: TField;
      var CellColor: TColor; var ChangeColor: Boolean);
    procedure chkActivarClick(Sender: TObject);
    procedure rgEventosClick(Sender: TObject);
    procedure cdbg1PaintCell(FieldName: String; Field: TField;
      var CellColor: TColor; var ChangeColor: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure cdbg1PaintColumn(FieldName: String; Field: TField;
      DataCol: Integer; Column: TColumn; var ColColor: TColor;
      var ChangeColor: Boolean);
    procedure dbgrdDatosTitleClick(Column: TColumn);
    procedure cdbg1PaintRow(DS: TDataSet; var RowColor: TColor;
      var ChangeColor: Boolean);
    procedure cdbg1PaintCellImage(FieldName: String; Field: TField;
      var Bitmap: TBitmap; var Change: Boolean);
    procedure cbbTemaChange(Sender: TObject);
    procedure chkAlternativeClick(Sender: TObject);
    procedure seFixedColsChange(Sender: TObject);
    procedure edColor1Click(Sender: TObject);
    procedure edColor2Click(Sender: TObject);
  private
    FEvento: Integer;
    FClickedColumn:TColumn;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CustomizeGrid1PaintCell(FieldName: String; Field: TField;
  var CellColor: TColor; var ChangeColor: Boolean);
begin

  //
  if (FieldName = 'State') and (Field.AsString = 'OR') then begin
    CellColor := clRed;
    ChangeColor := True;
  end;

end;

procedure TForm1.chkActivarClick(Sender: TObject);
begin
//  cdbg1.FlatStyle.FlatTheme := TGridTheme(cbbTema.ItemIndex);
//  cdbg1.FlatStyle.Active := (TStyleGrid(cbbEstilo.ItemIndex) = sgFlat);
  cdbg1.Active := not cdbg1.Active;
end;


procedure TForm1.rgEventosClick(Sender: TObject);
var
  mm:TComponent;
begin

  // Segun el que est