dbgrideh上画currnecy控件是怎么做的啊

Question

就是类好象财务上的分割线那个东东
在盒子上下的没source code 
.cn
或者[email protected]

Answer 1

procedure TfrmDJEdit.dbgrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var
  OldColor, OldFontColor: TColor;
begin    if (gdFocused in State) then
    begin
      sncDBCurrencyInplaceEdit.Left := Rect.Left + DBGrid1.Left + 2;
      sncDBCurrencyInplaceEdit.Top := Rect.Top + DBGrid1.top + 2;
      sncDBCurrencyInplaceEdit.Width := Rect.Right - Rect.Left;
      sncDBCurrencyInplaceEdit.Height := Rect.Bottom - Rect.Top;
      SetHighLightColor;
      if (sncDBCurrencyInplaceEdit.Tag = 1) and not sncDBCurrencyInplaceEdit.Visible then
        sncDBCurrencyInplaceEdit.Visible := True;
    end
    else
    begin
      OldColor := sncDBCurrencyInplaceEdit.Color;
      OldFontColor := sncDBCurrencyInplaceEdit.Font.Color;
      SetNormalColor;
      //往sncDBCurrencyInplaceEdit填写数值，Column.Field.AsFloat 为本来该显示字段的值
      DrawCurrencyFrame(DBGrid1.Canvas, Rect, sncDBCurrencyInplaceEdit, Column.Field.AsFloat);
      sncDBCurrencyInplaceEdit.Color := OldColor;
      sncDBCurrencyInplaceEdit.Font.Color := OldFontColor;
    end;
end;

Answer 2

  DrawCurrencyFrame这个过程是怎么来的