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

Вниз

ListView + кнопки   Найти похожие ветки 

← →
VitaWED   (2006-05-29 21:50) [0]

Здравствуйте! Подскажите, please, как? (или где?) взять такую штуку: Нужен обычный ListView (vsReport), в некотором столбце которого будет, например, какой нибудь ProgressBar или кнопка. Особенно интересно, как рисовать компоненты при изменении пользователем размеров столбцов...

---

← →
AbrosimovA ©   (2006-05-30 08:14) [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;

---

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

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

Наверх

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