Загрузка изображения в 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 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .

@volvo Супер-модератор 33407 / 21517 / 8236 Регистрация: 22.10.2011 Сообщений: 36,917 Записей в блоге: 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 Супер-модератор 33407 / 21517 / 8236 Регистрация: 22.10.2011 Сообщений: 36,917 Записей в блоге: 12
	21.01.2013, 00:04
	А я к Lelik-pahan претензий и не имею , я сразу сказал что сам оригинал оооочень далек от совершенства, он же просто его перенес на Билдеровский синтаксис... 0

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