[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]

    {Here's a TDBGrid derivative that exposes the Col, Row and Canvas properties
    as well as the CellRect method.  This is extremely useful if you would like
    to, for example, pop a dropdown list over a cell when the user enters.
    }

    unit VUBComps;

    interface

    uses
      SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
      Forms, Dialogs, Grids, DBGrids, DB, Menus;

    type
      TDBGridVUB = class(TDBGrid)
      private
        { Private declarations }
      protected
        { Protected declarations }
      public
        property Canvas;
        function CellRect(ACol, ARow: Longint): TRect;
        property Col;
        property Row;

    procedure Register;

    implementation

    procedure Register;
    begin
      RegisterComponents('VUBudget', [TDBGridVUB]);
    end;

    function TDBGridVUB.CellRect(ACol, ARow: Longint): TRect;
    begin
      Result := inherited CellRect(ACol, ARow);
    end;

    end.

[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]