Форум: "Начинающим";
Текущий архив: 2006.11.05;
Скачать: [xml.tar.bz2];
Вниз
Типа 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.11.05;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.049 c
