Components for Delphi and C++ Builder.

//Установка значка Золотой бонус, на Расписание
procedure TFormAssistantReg.DBGridEh4DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
var btmp : TIcon; fixRect : TRect; bmpWidth : integer; imgIndex : integer;
begin
     fixRect := Rect;
     if ((Column.Field = MemTableEh4NAME) and MemTableEh4gb.Value) then
        begin
        btmp := TIcon.Create;
        try
           ImageList1.GetIcon(0, btmp);
           bmpWidth := (Rect.Bottom - Rect.Top);
           fixRect.Right := Rect.Left + bmpWidth;
           DBGridEh4.Canvas.StretchDraw(fixRect, btmp);
        finally
        btmp.Free;
        end;
        fixRect := Rect;
        fixRect.Left := fixRect.Left + bmpWidth;
        DBGridEh4.DefaultDrawColumnCell(fixRect, DataCol, Column, State);
        end;
end;   

procedure TfrEditControls.DBGridEh6Columns2AdvDrawDataCell(
  Sender: TCustomDBGridEh; Cell, AreaCell: TGridCoord; Column: TColumnEh;
  const ARect: TRect; var Params: TColCellParamsEh; var Processed: Boolean);
begin
  // //Draw custom data
  // \\
  Sender.DefaultDrawColumnDataCell(Cell, AreaCell, Column, ARect, Params);
end;

procedure TFormCallCntr.DBGridEh4Columns3AdvDrawDataCell(
  Sender: TCustomDBGridEh; Cell, AreaCell: TGridCoord; Column: TColumnEh;
  const ARect: TRect; var Params: TColCellParamsEh; var Processed: Boolean);
var btmp : TIcon; fixRect : TRect; bmpWidth : integer; imgIndex : integer;
begin
     fixRect := ARect;
     //if ((Column.Field = MemTableEh4NAME) and MemTableEh4gb.Value) then
        begin
        btmp := TIcon.Create;
        try
           ImageList1.GetIcon(0, btmp);
           bmpWidth := (ARect.Bottom - ARect.Top);
           fixRect.Right := ARect.Left + bmpWidth;
           Sender.Canvas.StretchDraw(fixRect, btmp);
        finally
        btmp.Free;
        end;
        fixRect := ARect;
        fixRect.Left := fixRect.Left + bmpWidth;
        end;
    Sender.DefaultDrawColumnDataCell(Cell, AreaCell, Column, fixRect, Params);
end;     

procedure TFormCallCntr.DBGridEh4Columns3AdvDrawDataCell(
  Sender: TCustomDBGridEh; Cell, AreaCell: TGridCoord; Column: TColumnEh;
  const ARect: TRect; var Params: TColCellParamsEh; var Processed: Boolean);
var btmp : TIcon; fixRect : TRect; bmpWidth : integer; imgIndex : integer;
begin
     fixRect := ARect;
     //if ((Column.Field = MemTableEh4NAME) and MemTableEh4gb.Value) then
        begin
        btmp := TIcon.Create;
        try
           ImageList1.GetIcon(0, btmp);
           bmpWidth := (ARect.Bottom - ARect.Top);
           fixRect.Right := ARect.Left + bmpWidth;
           Sender.Canvas.StretchDraw(fixRect, btmp);
        finally
        btmp.Free;
        end;
        fixRect := ARect;
        fixRect.Left := fixRect.Left + bmpWidth;
        end;
    Sender.DefaultDrawColumnDataCell(Cell, AreaCell, Column, fixRect, Params);
    Processed := True;
end;

procedure TFormCallCntr.DBGridEh4DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
var btmp : TIcon; fixRect : TRect; bmpWidth : integer; imgIndex : integer; clfon:TColor;
begin
     fixRect := Rect;
     with (Sender as TDBGridEh) do
     if ((Column.Field = MemTableEh4NAME) and MemTableEh4gb.Value) then
        begin
        clfon:=Canvas.Pixels[fixRect.Left,fixRect.Top+1];
        btmp := TIcon.Create;
        try
           ImageList1.GetIcon(0, btmp);
           bmpWidth := (Rect.Bottom - Rect.Top);
           fixRect.Right := Rect.Left + bmpWidth;
           fixRect.Top:=fixRect.Top+1; fixRect.Bottom:=fixRect.Bottom-1;
           Canvas.StretchDraw(fixRect, btmp);
        finally
        btmp.Free;
        end;
        fixRect := Rect;
        fixRect.Left := fixRect.Left + bmpWidth;
        Canvas.CopyRect(fixRect, Canvas, fixRect);
        Canvas.Brush.Color := clfon;
        Canvas.textOut(fixRect.Left+2,fixRect.Top+2,' '+Column.Field.text);
        end;
end;