Загрузка изображения в StringGrid

@optimusline · Регистрация: 14.12.2012

Студворк — интернет-сервис помощи студентам

Приветствую
Ребята я нашел код на Дельфи..Хотелось бы аналогичное .. для Builderа если можно помогите.. как загрузить файл с изображением в конкретную ячейку StringGrid может кто знает ?

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  bit: TBitmap;
begin
  bit:=TBitmap.Create;
  bit.LoadFromFile('c:\1.BMP');
  Rect:= Form1.StringGrid1.CellRect(3, 3);
  Form1.StringGrid1.Canvas.Brush.Bitmap:= bit;
  Form1.StringGrid1.Canvas.FillRect(Rect); 
end;

@Lelik-pahan · 20.01.2013, 23:33

C++
1
2
3
4
5
6
7
8
9
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{
    Graphics::TBitmap *bit = new Graphics::TBitmap;
    bit->LoadFromFile("c:\\1.BMP");
    Rect = Form1->StringGrid1->CellRect(3, 3);
    Form1->StringGrid1->Canvas->Brush->Bitmap = bit;
    Form1->StringGrid1->Canvas->FillRect(Rect);
}

@volvo · 20.01.2013, 23:51

За такой код (и на Дельфи, и на Билдере) надо отрывать все выступающие части тела. Во-первых, утечка, во-вторых, на кой создавать изображение при перерисовке каждой ячейки, и упорно рисовать его в ячейке (3, 3), вместо того, чтобы проверить, рисуется ли СЕЙЧАС ячейка (3, 3), и только тогда создать Bitmap, и вывести его?

@nick42 · 21.01.2013, 00:01

резковато, но в общем правильно; обработчик DrawCell вообще штука опасная, так как вертится не тогда, когда юзер "кликнул" в ячейке, а "вообще". (к Lelik-pahan, естественно, никаких претензий ).

@volvo · 21.01.2013, 00:04

А я к Lelik-pahan претензий и не имею

, я сразу сказал что сам оригинал оооочень далек от совершенства, он же просто его перенес на Билдеровский синтаксис...

@Avazart · 21.01.2013, 00:11

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
// Где-то более глобально
Graphics::TBitmap *bi; 
// Возможно где-то в конструкторе
bit= new Graphics::TBitmap;
bit->LoadFromFile("c:\\1.BMP");
//-------------------------------------------------------------------
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{
   if(ARow==3 && AСol==3)
     {
        Form1->StringGrid1->Canvas->Brush->Bitmap = bit;
        Form1->StringGrid1->Canvas->FillRect(Rect);
        // и тут возможно нужно вернуть назад первоначальный Bitmap для закраски других ячеек
     }
}
//--------------------------------------------------------------------
// Где-то  в конЦе жизни...
delete bi;

@optimusline · 21.01.2013, 12:02 **[ТС]**

Ребята , большое вам спасибо. Признателен очень ! Отличный форум и замечательные люди ! СПАСИБО !

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@volvo Супер-модератор 33414 / 21523 / 8237 Регистрация: 22.10.2011 Сообщений: 36,923 Записей в блоге: 12
	20.01.2013, 23:51
	За такой код (и на Дельфи, и на Билдере) надо отрывать все выступающие части тела. Во-первых, утечка, во-вторых, на кой создавать изображение при перерисовке каждой ячейки, и упорно рисовать его в ячейке (3, 3), вместо того, чтобы проверить, рисуется ли СЕЙЧАС ячейка (3, 3), и только тогда создать Bitmap, и вывести его? 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	21.01.2013, 00:01
	резковато, но в общем правильно; обработчик DrawCell вообще штука опасная, так как вертится не тогда, когда юзер "кликнул" в ячейке, а "вообще". (к Lelik-pahan, естественно, никаких претензий ). 0

@volvo Супер-модератор 33414 / 21523 / 8237 Регистрация: 22.10.2011 Сообщений: 36,923 Записей в блоге: 12
	21.01.2013, 00:04
	А я к Lelik-pahan претензий и не имею , я сразу сказал что сам оригинал оооочень далек от совершенства, он же просто его перенес на Билдеровский синтаксис... 0

@optimusline 0 / 0 / 0 Регистрация: 14.12.2012 Сообщений: 33
	21.01.2013, 12:02 [ТС]
	Ребята , большое вам спасибо. Признателен очень ! Отличный форум и замечательные люди ! СПАСИБО ! 0

Опции темы