body {margin:0; padding:0; background:#fff; color:#000}td,body,.form {font-family:Tahoma; letter-spacing:1.1lm;font-size: 9pt}A {color:#336699; text-decoration: none;}The ControllerOur basic TGridViewController will hold a list of TGridViewColumns. I could make a simple array, or I could use TStringList. TStringList is probably one of the best and one of the worst classes in Delphi. So easy to use and so easy to abuse. In this case, I will only need to manage a handful of columns, instead of thousands of lines of text - so it will be ok.On the abuse side: before you start filling TStringList - consider adjusting the capacity. Resizing the list is EXPENSIVE. Also - fill first, sort later.Ok, lets take a look at the initial skeleton of the controller class: TGridViewController = class (TStringList) private FGrid : TStringGrid; function GetIsEmpty:Boolean; function GetCurrentSelectionIndex: Integer; protected procedure DefineAttributes; virtual; abstract; function GetRowCount: Integer; virtual; abstract; procedure SetGrid(const Value: TStringGrid); virtual; procedure DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); function MakeColumn(ColType : TGridViewColumnType; aTitle:String; aWidth:Integer; anAlign:TAlignment):TGridViewColumn; public constructor Create; virtual; destructor Destroy; override; procedure Refresh; function CreateTextColumn(aTitle:String; aGetText:TGetTextMethod; aWidth:Integer = 64; anAlign:TAlignment = taLeftJustify):TGridViewTextColumn; property CurrentSelectionIndex:Integer read GetCurrentSelectionIndex; property Grid: TStringGrid read FGrid write SetGrid; property IsEmpty: Boolean read GetIsEmpty; property RowCount:Integer read GetRowCount; end;I won't go into the details on the TGridViewColumn yet, but note the two abstract methods in the controller: DefineAttributes and GetRowCount. To make a working grid, these are what we need to override. The Grid property identifies the grid that we will control and DrawCell is the method we plug into the grid onDrawCell event. MakeColumn is called by the CreateTextColumn with the appropriate TGridColumnView descendant - hiding the interaction with our parent string list. I guess you already have figured out that IsEmpty simply check the number of rows.A simple ExampleLets consider the simplest possible example: a grid showing rows with the numbers 1 to 5, and their values squared. Note that the unit is pretty ignorant about what a grid is.unit DemoNumbersClass;interfaceuses Classes, SysUtils, FDCGridViewController;type TViewNumbers = class(TGridViewController) private function GetNumber(const Row: Integer): String; function GetNumberSquared(const Row: Integer): String; protected procedure DefineAttributes; override; function GetRowCount: Integer; override; end;We define two columns, and refer each column to a data retrival method.implementation{ TViewNumbers }procedure TViewNumbers.DefineAttributes;begin CreateTextColumn('Number', GetNumber); CreateTextColumn('Squared', GetNumberSquared, 64, taRightJustify);end;function TViewNumbers.GetNumber(const Row: Integer): String;begin Result := IntToStr(Row);end;function TViewNumbers.GetNumberSquared(const Row: Integer): String;begin Result := IntToStr(SQR(Row));end;function TViewNumbers.GetRowCount: Integer;begin Result := 5;end;end.Then we create a Form, drop a string grid on it, tweak some row size settings etc., and add the controller.unit DemoFDCGridViewController;interfaceuses Windows, Messages, SysUtils, Classes, Controls, Forms, StdCtrls, Grids, FDCGridViewController, DemoNumbersClass;type TGridViewForm = class(TForm) StringGrid1: TStringGrid; procedure FormCreate(Sender: TObject); private Numbers : TViewNumbers; public { Public declarations } end;var GridViewForm: TGridViewForm;implementation{$R *.dfm}{ TGridViewForm }procedure TGridViewForm.FormCreate(Sender: TObject);begin // Create our controller Numbers := TViewNumbers.Create; // and introduce the controller to the host grid Numbers.Grid := StringGrid1;end;end.And the result: As you can see, there are a few tweaks that I haven't described yet. Also, I still haven't revealed the simple steps done to invade our host grid.Stay tuned :) Veja artigo completo aqui Parceiros: |BlogTips| Musas| Hacker| News| EnglishTips| TipsDelphi| FutOnline| body {margin:0;