Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.11.19;
Скачать: CL | DM;

Вниз

Есть готовые решения для 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/ всё есть. Как в Греции.


 
ЮЮ ©   (2006-10-06 04:54) [4]

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);
)
Необходимые для редактирования данные вынесены там о обработчики совытий



Страницы: 1 вся ветка

Текущий архив: 2006.11.19;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.053 c
2-1162383769
ice321i
2006-11-01 15:22
2006.11.19
Компонент TIdFTP


15-1162485265
nutlover
2006-11-02 19:34
2006.11.19
Орешник


2-1162448206
alucard
2006-11-02 09:16
2006.11.19
Подскажите как ловить нажатие клавиш в Windows?


15-1162125633
MsGuns
2006-10-29 15:40
2006.11.19
Динамо делает Локо !


1-1160104783
padishah
2006-10-06 07:19
2006.11.19
Internet