Есть готовые решения для PickList ячеек TStringGrid?

← →
Aleksandr. (2006-10-05 15:47) [0]

Чтобы при входе в ячейку можно было выпадающий список открывать?

← →
КотКамышовый © (2006-10-05 16:56) [1]

можно ComboBox использовать.
Делать видимым при входе в ячейку. Parent := Grid, координаты = CellRect ну и т.д.

← →
Loginov Dmitry © (2006-10-05 23:16) [2]

КотКамышовый © (05.10.06 16:56) [1]
Parent := Grid

А вот этого ради бога не надо! Слишком классные эффекты после этого наблюдаются :)

← →
Германн © (2006-10-06 01:17) [3]

> Есть готовые решения для PickList ячеек TStringGrid?

Есть. У Максима http://www.torry.net/ всё есть. Как в Греции.

TCustomGrid
protected
function GetEditStyle(ACol, ARow: Longint): TEditStyle; dynamic;
function CreateEditor: TInplaceEdit; virtual;

function TCustomGrid.GetEditStyle(ACol, ARow: Longint): TEditStyle;
begin
Result := esSimple;
end;

В TRxDrawGrid, например, это сделано так:

function GetEditStyle(ACol, ARow: Longint): TInplaceEditStyle; override;

function TRxDrawGrid.GetEditStyle(ACol, ARow: Longint): TInplaceEditStyle;
begin
Result := esSimple;
if Assigned(FOnGetEditStyle) then FOnGetEditStyle(Self, ACol, ARow, Result);
end;

Т.е. определение стиля редактора вынесено в обработчик события OnGetEditStyle

TInplaceEditList = class(TInPlaceEdit)
public
property OnGetPickListitems: TOnGetPickListItems read FOnGetPickListitems
write FOnGetPickListitems;

Т.е. после создание редакторя ячейки следует редактору назначить обработчик

З.Ы. Если данные хранятся в некой "таблице" в памяти, то можно взять TRxDrawGrid, где останется написать OnSet[Get]EditText и OnDrawCell.
(TrxDrawGrid уже имеет нужные методы
procedure DrawStr(ARect: TRect; const S: string; Align: TAlignment);
procedure DrawMultiline(ARect: TRect; const S: string; Align: TAlignment);
procedure DrawPicture(ARect: TRect; Graphic: TGraphic);
procedure DrawMasked(ARect: TRect; Graphic: TBitmap);
)
Необходимые для редактирования данные вынесены там о обработчики совытий

Есть готовые решения для PickList ячеек TStringGrid? Найти похожие ветки