{--------------------------------------------------------------}
{ Модуль StringGridWithPickList                                }
{                                                              }
{ Перекрывает стандартный TStringGrid                          }
{ Добавляет возможность подключения выпадающих списков,        }
{ назначаемых на ячейки по строкам или колонкам                }
{ В uses должен указываться после модуля Grids                }
{ Использован "Метод Geo":                                    }
{ http://delphikingdom.com/asp/viewitem.asp?catalogid=1367    }
{--------------------------------------------------------------}

unit StringGridWithPickList;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids;

type
  TPickListInfo = record
    List: TStringList;
    Row: Integer;
    Col: Integer;
  end;                                   

  TStringGrid=class(Grids.TStringGrid)
  private
    FPickLists: array of TPickListInfo;
    function GetPickList(Idx: Integer): TStringList;
    function GetPickListCol(Idx: Integer): Integer;
    function GetPickListCount: Integer;
    function GetPickListRow(Idx: Integer): Integer;
    procedure SetPickListCol(Idx: Integer; const Value: Integer);
    procedure SetPickListCount(const Value: Integer);
    procedure SetPickListRow(Idx: Integer; const Value: Integer);
  protected
    function CreateEditor:TInplaceEdit; override;
    function GetEditStyle(ACol,ARow:longint):TEditStyle ;override;
  public
    destructor Destroy; override;
    property PickListCount: Integer read GetPickListCount write SetPickListCount;
    property PickList[Idx: Integer]: TStringList read GetPickList;
    property PickListCol[Idx: Integer]: Integer read GetPickListCol write SetPickListCol;
    property PickListRow[Idx: Integer]: Integer read GetPickListRow write SetPickListRow;
  end;

implementation

{Деструктор}

destructor TStringGrid.Destroy;
begin
  PickListCount := 0;
  inherited;
end;

{Перекрытые}

function TStringGrid.CreateEditor: TInplaceEdit;
begin
  Result:=TInplaceEditList.Create(Self);
end;     

function TStringGrid.GetEditStyle(ACol, ARow: Integer): TEditStyle;
var
  i: Integer;
begin
  Result := esSimple;
  for i:=Low(FPickLists) to High(FPickLists) do
    if (ACol = FPickLists[i].Col) or (ARow = FPickLists[i].Row) then
    begin
      Result := esPickList;
      (InplaceEditor as TInplaceEditList).PickList.Items.Assign(FPickLists[i].List);
      Exit;
    end;
end;

{Свойства}

function TStringGrid.GetPickList(Idx: Integer): TStringList;
begin
  Result := FPickLists[Idx].List;
end;

function TStringGrid.GetPickListCol(Idx: Integer): Integer;
begin
  Result := FPickLists[Idx].Col;
end;

function TStringGrid.GetPickListCount: Integer;
begin
  Result := Length(FPickLists);
end;

function TStringGrid.GetPickListRow(Idx: Integer): Integer;
begin
  Result := FPickLists[Idx].Row;
end;

procedure TStringGrid.SetPickListCol(Idx: Integer; const Value: Integer);
begin
  FPickLists[Idx].Col := Value;
  FPickLists[Idx].Row := -1;
end;

procedure TStringGrid.SetPickListCount(const Value: Integer);
var
  i, OldValue: Integer;
begin
  OldValue := PickListCount;
  {Увеличение}
  if OldValue < Value then
  begin
    SetLength(FPickLists, Value);
    for i := OldValue to Value-1 do  // Индексы с 0
      with FPickLists[i] do
      begin
        List := TStringList.Create;
        Row := -1;
        Col := -1;
      end;
  end;
  {Уменьшение}
  if OldValue > Value then
  begin
    for i := OldValue-1 downto Value do  // Индексы с 0
      FPickLists[i].List.Free;
    SetLength(FPickLists, Value);
  end;
end;

procedure TStringGrid.SetPickListRow(Idx: Integer; const Value: Integer);
begin
  FPickLists[Idx].Row := Value;
  FPickLists[Idx].Col := -1;
end;

end.

unit TestFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StringGridWithPickList {после Grids};

type
  TTestForm = class(TForm)
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  TestForm: TTestForm;

implementation

{$R *.dfm}

procedure TTestForm.FormCreate(Sender: TObject);
begin
  {Options устанавливать в инспекторе, здесь - для напоминания}
  StringGrid1.Options := StringGrid1.Options + [goEditing];
  StringGrid2.Options := StringGrid2.Options + [goEditing];

  {Списки по колонкам}
  with StringGrid1 do
  begin
    PickListCount := 2; // Будет 2 списка
    {Колонка 1}
    PickListCol[0] := 1;
    PickList[0].DelimitedText := 'Иванов,Петров,Сидоров';
    {Колонка 2}
    PickListCol[1] := 2;
    PickList[1].CommaText := '"Директор","Водитель","Машинист башенного крана"';
  end;

  {Списки по строкам}
  with StringGrid2 do
  begin
    PickListCount := 3; // Будет 3 списка
    {Строка 1}
    PickListRow[0] := 1;
    PickList[0].Delimiter := '|';
    PickList[0].QuoteChar := '*';
    PickList[0].DelimitedText := '*OOO "Рога и копыта"*|*ЧП Иванов*|*Магазин "Детский Мир"*';
    {Строка 2}
    PickListRow[1] := 2;
    PickList[1].DelimitedText := 'Сторож Уборщица Бухгалтер';
    {Строка 3}
    PickListRow[2] := 3;
    PickList[2].Add('Кран башенный');
    PickList[2].Add('Самосвал карьерный');
    PickList[2].Add('Аппарат телефонный');
  end;

  //ReportMemoryLeaksOnShutdown := True;
end;

end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids;

Type TStringGrid=class(Grids.TStringGrid)
      protected
      function CreateEditor:TInplaceEdit;override;
      function GetEditStyle(ACol,ARow:longint):TEditStyle;override;
    end;

Type TMyGrid1=class(Grids.TStringGrid)
      protected
      function CreateEditor:TInplaceEdit;override;
      function GetEditStyle(ACol,ARow:longint):TEditStyle;override;

Type TMyGrid2=class(Grids.TStringGrid)
      protected
      function CreateEditor:TInplaceEdit;override;
      function GetEditStyle(ACol,ARow:longint):TEditStyle;override;
    end;
    end;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids;

Type TStringGrid=class(Grids.TStringGrid)
      protected
      function CreateEditor:TInplaceEdit;override;
      function GetEditStyle(ACol,ARow:longint):TEditStyle;override;
    end;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TStringGrid }

{ TStringGrid }

function TStringGrid.CreateEditor: TInplaceEdit;
begin
  Result:=TInplaceEditList.Create(Self);
  with TInplaceEditList(Result) do begin
    Parent:=Self.Parent;
  end;
end;

function TStringGrid.GetEditStyle(ACol,ARow:longint):TEditStyle;
begin
  case ACol of
    1:begin
      Result:=esPickList;
      with TInplaceEditList(InplaceEditor) do begin
        PickList.Clear;
        PickList.AddItem('Column 1_1',nil);
        PickList.AddItem('Column 1_2',nil);
        PickList.AddItem('Column 1_3',nil);
        PickList.AddItem('Column 1_4',nil);
      end;
    end;
    2:begin
      Result:=esPickList;
      with TInplaceEditList(InplaceEditor) do begin
        PickList.Clear;
        PickList.AddItem('Column 2_1',nil);
        PickList.AddItem('Column 2_2',nil);
        PickList.AddItem('Column 2_3',nil);
        PickList.AddItem('Column 2_4',nil);
      end;
    end else Result:=esSimple;
  end;
end;

end.

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  //Перебросим выбранное в значение из ComboBox в grid
  StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row]
  :=ComboBox1.Items[ComboBox1.ItemIndex];
  ComboBox1.Visible:=False;
  StringGrid1.SetFocus;
end;