Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.035 c