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

Типа listbox a только в место текста картинки   Найти похожие ветки 

← →
Батя   (2006-10-17 11:13) [0]

Подскажите пожалуйсто, нужен компонет позволяющий пользователю выбрать из множества BMP-шек одну. Например как в listbox.Только вместо текста должны отображаться эти самые bmp(они храняться в imageList). Спасибо

---

← →
EvS ©   (2006-10-17 11:25) [1]

drawgrid

---

← →
Dmitrij_K   (2006-10-17 11:29) [2]

ListView

---

← →
Percent   (2006-10-17 11:35) [3]

Например как в listbox

TListBox
См. OnDrawItem

---

← →
Батя   (2006-10-17 11:57) [4]

А вот как добовлять программно в ComboBoxEx.

---

← →
EvS ©   (2006-10-17 13:08) [5]

ItemEx.AddItem( параметры );
только не забудь Images:=ImageList1;

---

← →
RASkov   (2006-10-17 23:48) [6]

Используются DrawGrid и ImageList1:

procedure TForm1.drawgridDrawCell(Sender: TObject; ACol, ARow: Integer;
 Rect: TRect; State: TGridDrawState);
var Index: integer;
begin
 Index :=ARow * drawgrid.ColCount + ACol;
 with Sender as TDrawGrid do
 begin
  if (gdFocused in State)or(gdSelected in State) then
   begin
    Canvas.Brush.Color := clSilver;
    Canvas.DrawFocusRect(Rect);
   end else Canvas.Brush.Color := clWhite;
  Canvas.FillRect(Rect);
  ImageList1.Draw(Canvas, Rect.Left, Rect.Top, Index);
 end;
end;

В ImageList1 картинки. У drawgrid настрой ColCount и RowCount
например так в одну строчку:

procedure TForm1.FormCreate(Sender: TObject);
begin
 drawgrid.ColCount:=ImageList1.Count;
end;

И ее получение:

procedure TForm1.drawgridSelectCell(Sender: TObject; ACol, ARow: Integer;
 var CanSelect: Boolean);
begin
* Image1.Canvas.FillRect(Image1.Canvas.ClipRect);
 ImageList1.GetBitmap(ARow * drawgrid.ColCount + ACol, Image1.Picture.Bitmap);
* Image1.Refresh;
end;

То что * может и не надо.

---

← →
Schamane   (2006-10-18 00:59) [7]

Бать, а, бать! Уточни, а что есть «место текста»... или «текст картинки», что-ли?:)

---

← →
Schamane   (2006-10-18 01:04) [8]

Гы-гы... Это, значит, у картинки есть текст... в каком-то месте... И нужен, типа, listbox, только - в это самое место!

---

← →
Батя   (2006-10-18 01:19) [9]

> Schamane   (18.10.06 01:04) [8]
>
> Гы-гы... Это, значит, у картинки есть текст... в каком-то
> месте... И нужен, типа, listbox, только - в это самое место!
>

М-да. Ну ты укуренный!

---

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

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



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