Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.12.23;
Скачать: CL | DM;

Вниз

Картинки в TStringGrid   Найти похожие ветки 

 
Walrus   (2003-12-11 09:01) [0]

Утро доброе! Вот собственно вопрос: можно ли вставить в ячейку картинку? Если можно, то как?


 
Dmitriy O. ©   (2003-12-11 09:11) [1]

А вроде для картинок предназначен дравгрид.


 
alex_***   (2003-12-11 09:17) [2]

OnDrawCell еще никто не отменял


 
VAleksey ©   (2003-12-11 09:26) [3]

Ну, например так:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
Var Bmp1:TBitMap;
begin
with Sender as TDrawGrid do
begin
Canvas.FillRect(Rect);
if gdFocused in State then
Canvas.DrawFocusRect(Rect);
end;
Bmp1:=TBitMap.Create;
ImageList1.GetBitmap(0,Bmp1);
if (ACol = 1) and (ARow = 1) then
begin
if Assigned(Bmp1) then
StringGrid1.Canvas.StretchDraw(Rect,Bmp1);
end;
Bmp1.Free;
end;


 
alex_***   (2003-12-11 09:28) [4]

Кстати, ImageList может сразу отрисовываться на Canvas"e. Без промежуточных выгрузок в bmp


 
Anatoly Podgoretsky ©   (2003-12-11 09:35) [5]

В справке есть пример.



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

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

Наверх




Память: 0.47 MB
Время: 0.017 c
6-75300
Горох
2003-10-24 18:41
2003.12.23
IdUDPClient1.SendBuffer()


14-75314
Учимся
2003-12-01 19:47
2003.12.23
Сформировать массив и упорядочить


3-75089
Borys
2003-11-29 22:28
2003.12.23
TADOConnection, не могу подключится к серверу с клиента


3-75122
Атнон С.
2003-11-28 14:05
2003.12.23
Подскажите, как засунуть картинку bmp в SQL Server?


7-75439
Dimaxx
2003-10-17 00:07
2003.12.23
Формат дисков под NT-системами