ListView + кнопки [D7, WinXP]
VitaWED © (2006-05-29 21:50:00)
Здравствуйте! Подскажите, please, как? (или где?) взять такую
штуку: Нужен обычный ListView (vsReport), в некотором столбце
которого будет, например, какой нибудь ProgressBar или кнопка.
Особенно интересно, как рисовать компоненты при изменении
пользователем размеров столбцов...
AbrosimovA (2006-05-30 08:14:00) [1]
Без рисования:
var AddItemBtn: TSpeedButton;
procedure TBrowserForm.BFListViewMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y:
Integer);
var R: TRect;
begin
if Button = mbLeft then begin
if BFListView.ItemIndex=-1 then begin
AddItemBtn.Visible:=false;
Exit;
end;
if BFListView.Selected.ImageIndex=1 then begin
ListView_GetItemRect(BFListView.Selected.Handle,
BFListView.Selected.Index,R,LVIR_SELECTBOUNDS);
AddItemBtn.Top:=R.Top-2;
AddItemBtn.Left:=R.Right+5;
AddItemBtn.Visible:=true;
end else AddItemBtn.Visible:=false
end;
end;
Наверх 
ЧАТ |
Орешник |
|
