Вниз
Скачать: CL | DM;

Работа при срабатывании OnCustomDrawItem в своем компаненте   Найти похожие ветки 

 
FHT   (2004-09-12 11:30) [0]

unit MyListView;

interface

uses
 Classes,Controls,ComCtrls,Messages,Commctrl,Windows,Sysutils;

type

 TMyListView = class(TListView)
 
 
 protected
{ Protected declarations }
function CustomDrawItem(Item: TListItem; State: TCustomDrawState;
Stage: TCustomDrawStage): Boolean;override;

 public
{ Public declarations }
 constructor Create(AOwner: TComponent); override;
 destructor Destroy; override;

end;

procedure Register;

implementation

constructor TMyListView.Create(AOwner: TComponent);
begin
   inherited Create(AOwner);
end;

destructor TMyListView.Destroy;
begin
 inherited Destroy;
end;

{Насколько я разбирался вот эта функция(ниже вопроса) срабатывает и вызывает событие
OnCustomDrawItem при прорисовки Items в ListView.
А вопрос такой:
почему она не срабатавает вот в этом компаненте, т.е. сигнал Beep не звучит или если поставить точку останова видно что вообще функция в родительском классе будто бы не отрабатывает.}

function TMyListView.CustomDrawItem(Item: TListItem; State: TCustomDrawState;
Stage: TCustomDrawStage): Boolean;
begin
    inherited CustomDrawItem(Item,State,Stage);//здесь точка останова
    Result:=True;
    Beep;
end;


procedure Register;
begin
 RegisterComponents("Standard", [TMyListView]);
end;

End.


 
Семен Сорокин ©   (2004-09-12 14:54) [1]

OwnerDraw = true?


 
FHT   (2004-09-13 04:49) [2]

Да True. Но функция не срабатывает.


 
FHT   (2004-09-14 03:29) [3]

Что никто не поможет?


 
Юрий Зотов ©   (2004-09-14 10:33) [4]

Не уверен, но может быть...

Посмотрите IsCustomDrawn. Согласно справке, "IsCustomDrawn returns true when the list view should generate an event". Получается, что если IsCustomDrawn вернет False (а он вернет False, если ни на одно событие пользовательнской отрисовки реально не назначен обработчик), то и событие генериться не будет. Соответственно, не будет вызываться и метод его диспетчеризации.


 
FHT   (2004-09-15 03:51) [5]

>Юрий Зотов ©   (14.09.04 10:33) [4]
Спасибо. Да дело было именно в этом.



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

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



Память: 0.46 MB
Время: -0.978 c
4-1120551660
Vrit
2005-07-05 12:21
2005.08.28
Как получить информацию об удаленной машине


4-1120733513
vecna
2005-07-07 14:51
2005.08.28
TEdit + PopupMenu


14-1123250460
BiN
2005-08-05 18:01
2005.08.28
"Практические умы" наемников или "киллера вызывали?"


4-1120803990
yuran
2005-07-08 10:26
2005.08.28
Как изменить иконку у любого exe файла?


1-1123370875
redlord
2005-08-07 03:27
2005.08.28
redlord




   Наверх