Главная страница
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.069 c
2-1162472187
Sergey_b
2006-11-02 15:56
2006.11.19
SELECT, UPDATE, INSERT


1-1159882134
mazur_r
2006-10-03 17:28
2006.11.19
Работа с полями в Word.


15-1162084362
MultiLang
2006-10-29 04:12
2006.11.19
Функция перевода файлов *.pas в структуру элементов языка ?


2-1162292042
Делфи
2006-10-31 13:54
2006.11.19
Delphi3


2-1161939124
Andrey.Ru
2006-10-27 12:52
2006.11.19
Запуск потока Windows API