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

Вниз

CreateEditor   Найти похожие ветки 

 
Polevi ©   (2004-08-02 12:24) [0]

необходимо изменить поведение Inplace editor"a в TValueListEditor

function TValueListEditor.CreateEditor: TInplaceEdit;
begin
 FEditList := TInplaceEditList.Create(Self);
 EditList.DropDownRows := FDropDownRows;
 EditList.OnEditButtonClick := FOnEditButtonClick;
 EditList.OnGetPickListitems := EditListGetItems;
 Result := FEditList;
end;

FEditList в private
property EditList: TInplaceEditList read FEditList;

ваши предложения, господа
мне кроме хакерства ничего в голову не лезет


 
Sandman25 ©   (2004-08-02 12:28) [1]

protected
function CreateEditor: TInplaceEdit; override;


 
Polevi ©   (2004-08-02 12:32) [2]

спасибо, друг
а что делать с полем FEditList будем


 
Sandman25 ©   (2004-08-02 12:39) [3]

Насколько я разобрался, можно обойтись и без него.
Только надо будет перекрывать еще кучу методов, использующих FEditList.
Например, чтобы
function GetEditStyle(ACol, ARow: Longint): TEditStyle; override;
использовала уже Ваше поле, а не унаследованный FEditList


 
Polevi ©   (2004-08-02 12:40) [4]

это вам кажется нормальным ?


 
Polevi ©   (2004-08-02 12:41) [5]

procedure TValueListEditor.SetDropDownRows(const Value: Integer);
begin
 FDropDownRows := Value;
 if Assigned(EditList) then
   EditList.DropDownRows := Value;
end;

что в этом месте прикажете перекрывать ?


 
Sandman25 ©   (2004-08-02 12:45) [6]

[4] Polevi ©   (02.08.04 12:40)

Да, вполне. Бывает, что приходится целую иерархию заводить.

[5] Polevi ©   (02.08.04 12:41)

Ничего :)

function TValueListEditor.CreateEditor: TInplaceEdit;
begin
 FEditList := TInplaceEditList.Create(Self);
 EditList.DropDownRows := FDropDownRows;
...
   property DropDownRows: Integer read FDropDownRows write SetDropDownRows default 8;

Если перекрыт CreateEditor, причем без вызова inherited, то SetDropDownRows не используется.


 
Polevi ©   (2004-08-02 12:49) [7]

с бубном я плясать умею, не надо меня учить :)
просто если мой пост увидит вася из борланда, который написал этот sealed class - пусть ему будет стыдно :-)


 
Sandman25 ©   (2004-08-02 12:50) [8]

Понятно :)



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

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

Наверх




Память: 0.48 MB
Время: 0.112 c
3-1090080269
voe
2004-07-17 20:04
2004.08.15
Поиск записи с результатом - True или False


14-1091211885
olookin
2004-07-30 22:24
2004.08.15
Ваше мнение


14-1090860821
Art_Z
2004-07-26 20:53
2004.08.15
FAT32,NTFS и 65536 файлов...


14-1090677468
Кириешки
2004-07-24 17:57
2004.08.15
Помогите люди бедному программисту...


8-1086102528
lelik
2004-06-01 19:08
2004.08.15
Shape под наклоном