Как победить OwnerDraw в ListView? Нужна помощь тех кто это делал

← →
MegaVolt © (2006-10-19 17:49) [0]

Задача рисовать строчки в ListView самостоятельно один к одному как в оригинале.

Неполучается :(

1. Если не включать OwnerDraw. Рисовать в OnAdvancedCustomDrawItem в конце выставлять DefaultDraw в False неработает выделение в WinXP. Точнее оно появляется потом тут же почему то поверх перерисовыывается строчкой без выделения. (в 98 таких прблем нет). Так же если поставить HideSelection в true все ячейки оказываются выделенными :(

2. Если включить OwnerDraw то некорректно работают Hint-ы.

В чём я неправ?

Вот исходник:

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, XPMan, CommCtrl, ExtCtrls; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure ListView1Data(Sender: TObject; Item: TListItem); procedure ListView1AdvancedCustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage; var DefaultDraw: Boolean); private { Private declarations } ListView1:TListView; public { Public declarations } end; var Form1: TForm1; implementation uses Types, Math; {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin ListView1:=TListView.Create(self); with ListView1 do begin Parent:=Form1; ViewStyle:=vsReport; OwnerData:=true; //OwnerDraw:=true; Columns.Add; Columns[0].Caption:="11111"; Columns.Add; Columns[1].Caption:="E22222"; Columns.Add; Columns[2].Caption:="33333"; Items.Count:=30000; OnData:=ListView1Data; OnAdvancedCustomDrawItem:=ListView1AdvancedCustomDrawItem; Align:=alClient; //GridLines:=true; ShowHint:=false; RowSelect:=true; MultiSelect:=true; ReadOnly:=true; //HideSelection:=false; end; end; procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem); begin Item.Caption:="111111111111111111111111111111111111111"+IntToStr(Item.Index); Item.SubItems.Add("A22222222222222222222222222222222222"+IntToStr(Item.Index)); Item.SubItems.Add("33333333333333333333333333333333333"+IntToStr(Item.Index)); end; procedure TForm1.ListView1AdvancedCustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage; var DefaultDraw: Boolean); var R1,r2:TRect; i:integer; p:PChar; begin if stage=cdPrePaint then begin R1:=Item.DisplayRect(drBounds); R1.Right:=Sender.Column[0].Width;; if (cdsSelected in State) then begin Sender.Canvas.Brush.Color:=clHighlight; Sender.Canvas.Font.Color:=clHighlightText; end else begin Sender.Canvas.Brush.Color:=clWhite; Sender.Canvas.Font.Color:=clBlack; end; for i:=0 to Item.SubItems.Count do begin if i=0 then R1:=Item.DisplayRect(drLabel) else ListView_GetSubItemRect(ListView1.Handle,Item.Index,i,LVIR_BOUNDS,@R1); R1.Bottom:=R1.Bottom-Integer(Sender.GridLines); //учёт сетки if i<>0 then R1.Left:=R1.Left+Integer(Sender.GridLines);//учёт сетки R2:=R1; R2.Left:=R2.Left+5; //отступ от сетки R2.Right:=R2.Right-5; //отступ от сетки с другого конца if i=0 then p:=PAnsiChar(Item.Caption) else p:=PAnsiChar(Item.SubItems[i-1]); DrawText(Sender.Canvas.Handle,P,-1,R2,DT_END_ELLIPSIS or DT_NOPREFIX or DT_CALCRECT or DT_MODIFYSTRING); Sender.Canvas.TextRect(R1,R2.Left,R2.Top,String(p)); end; if (cdsFocused in State) then begin R1:=Item.DisplayRect(drLabel); ListView_GetSubItemRect(ListView1.Handle,Item.Index,0,LVIR_BOUNDS,@R2); R1.Right:=R2.Right; R1.Bottom:=R1.Bottom-Integer(Sender.GridLines); Sender.Canvas.DrawFocusRect(R1); end; end; DefaultDraw:=false; end; end.

← →
MegaVolt © (2006-10-20 10:53) [1]

Неужели никто так не делает? А как делают? Я один иду неправильным путём? Наставте на путь истинный. А то в советах через одного все советуют исспользовать OwnerDraw.

← →
SpellCaster (2006-10-20 16:55) [2]

> Если не включать OwnerDraw. Рисовать в OnAdvancedCustomDrawItem
> в конце выставлять DefaultDraw в False неработает выделение
> в WinXP. Точнее оно появляется потом тут же почему то поверх
> перерисовыывается строчкой без выделения. (в 98 таких прблем
> нет)

OwnerDraw для того и нужен, чтобы указать компоненту, что ты рисуешь сам. А что с хинтом-то?

← →
MegaVolt © (2006-10-20 17:00) [3]

>OwnerDraw для того и нужен, чтобы указать компоненту, что ты рисуешь сам.

Это я понимаю. Просто ставил разные эксперименты.

>А что с хинтом-то?

Если колонка меньше по ширине чем текст помещнный в неё вызывается Hint с полной строкой. По крайней мере так работает пока не включить OwnerDraw. Как только включаем Hint показывается но вот уже он содержит для всех SubItem одно и то же значение разное Item.Caption. Что не есть здорово :(

← →
MegaVolt © (2006-10-20 17:24) [4]

Сие убирает их напрочь SendMessage(ListView.Handle, 4170, 0, 0);
А нужно сделать так чтобы работали так как нужно. Может кто знает что послать нужно?

← →
MegaVolt © (2006-10-23 11:10) [5]

Подскажите тогда кто знает что за Message 4170?

← →
MetalFan © (2006-10-23 12:34) [6]

Смотри CommCtrls.
LVM_FIRST = $1000; { ListView messages } ... const {$EXTERNALSYM LVM_SETTOOLTIPS} LVM_SETTOOLTIPS = LVM_FIRST + 74; 4170
смотри MSDN
Sets the ToolTip control that the list-view control will use to display ToolTips. You can send this message explicitly or use the ListView_SetToolTips macro.

Syntax

To send this message, call the SendMessage function as follows.
lResult = SendMessage( // returns LRESULT in lResult (HWND) hWndControl, // handle to destination control (UINT) LVM_SETTOOLTIPS, // message ID (WPARAM) wParam, // = 0; not used, must be zero (LPARAM) lParam // = (LPARAM) (HWND) hwndToolTip; );
Parameters

wParam
Must be zero.

hwndToolTip
Handle to the ToolTip control to be set.

Return Value
Returns the handle to the previous ToolTip control.

MetalFan спасибо. Я искал сразу поиском 4170 а про поискать только смещении не догадался.

Может подскажешь что происходит после отсылки этого сообщения? Точнее меня больше интересует чем управляет это сообщение и как перехватить то где вызывается hint с некорректной строчкой?

наверное надо поковыряться в кишках VCL... времени щаз нет, а так бы помог) сорь

Ясно. Спасибо. Одно странно почему этот баг который должен был встретть каждый второй неописан нигде :(

Как победить OwnerDraw в ListView? Нужна помощь тех кто это делал Найти похожие ветки