Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2006.11.19;
Скачать: [xml.tar.bz2];

Вниз

Есть готовые решения для 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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.148 c
15-1162216707
race1
2006-10-30 16:58
2006.11.19
Без дорог


2-1162054281
Ingwar
2006-10-28 20:51
2006.11.19
Как лучше сделать!


15-1161987121
Gero
2006-10-28 02:12
2006.11.19
Часы спешат


2-1162211623
zdm
2006-10-30 15:33
2006.11.19
TDBNumberEditEh формат Currency


15-1162204867
User Boris
2006-10-30 13:41
2006.11.19
Литература по изучению Delphi





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский