VPF::[Delphi]bitmap в strinngrid - Форум программистов

belmax

Дата 9.4.2007, 21:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 9.4.2007

Репутация: нет
Всего: нет

по кликанью по ячейки вставить в ячейку bitmapовский рисунок

(пожалуйсто полный код )спасибо

ivan219

Дата 10.4.2007, 19:23 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 1
Всего: 12

Так там метод Cavas есть по Bibmap надо посмотреть вот через Canvas и можно вывести рисунок.
А какого рода картинки там будут?

--------------------

Мой первый сайт и моя первая программа!!!!!

ivan219

Дата 10.4.2007, 20:10 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 1
Всего: 12

Пример взят из DRKB

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, ExtCtrls;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Bitmap: TBitmap;
implementation

{$R *.dfm}

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 with (Sender as TStringGrid) do
  with Canvas do
   Draw(Rect.Left, Rect.Top, Bitmap);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Bitmap:=TBitmap.Create;
 Bitmap.LoadFromFile('1.bmp');
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Bitmap.Free;
end;
end.

Добавлено через 1 минуту и 23 секунды
Или ещё проще.

Код


StringGrid1.Canvas.Draw(Rect.Left, Rect.Top, Bitmap);

Добавлено через 13 минут и 27 секунд
А вот так картинка появляется там где ты кликаеш мышю.

Код


var
  Form1: TForm1;
  Bitmap: TBitmap;
  FARow, FACol: Integer;
  FChecked: Boolean=False;
implementation

{$R *.dfm}

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 if FChecked then
  if ACol=FACol then
   if ARow=FARow then
    StringGrid1.Canvas.Draw(Rect.Left, Rect.Top, Bitmap);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Bitmap:=TBitmap.Create;
 Bitmap.LoadFromFile('1.bmp');
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Bitmap.Free;
end;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
 FARow:=ARow;
 FACol:=ACol;
 FChecked:=True;
end;
end.

--------------------

Мой первый сайт и моя первая программа!!!!!

ZBugz

Дата 18.5.2007, 15:08 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 636
Регистрация: 15.2.2006
Где: Москва

Репутация: нет
Всего: 6

А как сделать тоже самое, вставить картинку в первую ячейку, но из ImageList, а то я не нашел примера smile

Это сообщение отредактировал(а) ZBugz - 21.5.2007, 08:04

Alexeis

Дата 22.5.2007, 09:57 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Misha_White

Дата 22.5.2007, 13:08 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 207
Регистрация: 25.4.2007
Где: Кодинск

Репутация: 1
Всего: 1

belmax,
А DrawGrid нельзя использовать?

--------------------

Я не волшебник... я только учусь...

ZBugz

Дата 23.5.2007, 08:27 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 636
Регистрация: 15.2.2006
Где: Москва

Репутация: нет
Всего: 6

Цитата(Alexeis @ 22.5.2007, 09:57)

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

Причем тут это ? smile

Я так понял тут вообще никто про это незнает, раз не ответили, включая вас или не хотят отвечать.

Добавлено через 1 минуту и 8 секунд

Цитата(Misha_White @ 22.5.2007, 13:08)

belmax,
А DrawGrid нельзя использовать?

Да я уже проект написал для StringGrid, а переделывать неохота, слишком много переделок в самом компоненте.

Alexeis

Дата 23.5.2007, 09:07 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459

Цитата(ZBugz @ 23.5.2007, 08:27

)

Причем тут это ?

Выбирая, закрыть бойанчег или переместить его в раздел для начинающих, я выбрал второе.

Цитата(ZBugz @ 18.5.2007, 15:08

)

А как сделать тоже самое, вставить картинку в первую ячейку, но из ImageList, а то я не нашел примера

Да тоже самое только вместо StringGrid1.Canvas.Draw(Rect.Left, Rect.Top, Bitmap);

будет ImageList1.Draw(StringGrid1.Canvas, Rect.Left, Rect.Top, Index);

Где Index - это номер картинки в ImageList1.

Это сообщение отредактировал(а) Alexeis - 23.5.2007, 09:08

--------------------

ZBugz

Дата 23.5.2007, 09:34 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 636
Регистрация: 15.2.2006
Где: Москва

Репутация: нет
Всего: 6

Супер, все работает. smile

M
Guedda

Не забываем отмечать вопрос решенным!

Это сообщение отредактировал(а) Guedda - 23.5.2007, 09:48

ZBugz

Дата 25.5.2007, 12:47 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 636
Регистрация: 15.2.2006
Где: Москва

Репутация: нет
Всего: 6

Да я хотел отметить, только вот не нашел галочку эту, может потому что не я тему создовал ? smile

Добавлено @ 12:51
Alexeis, есче вопросик, а как сделать так, чтоб картика, точнее картинки, к примеру у меня 10 строк и 10 столбцов, запихивались во все 10 строк, 1-го столбца подряд ? smile

А то при загрузке данных, картинка загружается только в последней строке.

Вот мой кусок кода, который запихивает картинку.

Код


if fileexists(F) then
    begin
 assignfile(d, F);
  reset(d);
  readln(d, temp);
  list.colcount := temp;
  readln(d, temp);
  list.rowcount := temp;
  for X := 1 to list.colcount - 1 do
    for y := 1 to list.rowcount - 1 do
    begin
      readln(d, tempstr);
      list.cells[x, y] := tempstr;
      
      FARow:=Y; ///<- Вот тут картинка показывается
      FACol:=0;
      FChecked:=True;

    end;
  closefile(d);
 end;

M
Guedda

Выбирайте правильную подсветку кода!

Это сообщение отредактировал(а) Guedda - 25.5.2007, 13:01

Alexeis

Дата 25.5.2007, 13:04 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459

Цитата(ZBugz @ 25.5.2007, 12:47

)

Вот мой кусок кода, который запихивает картинку.

ничего не понятно, что это такое и где вызывается.

--------------------

ZBugz

Дата 25.5.2007, 13:59 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 636
Регистрация: 15.2.2006
Где: Москва

Репутация: нет
Всего: 6

Щас, вот так:

Код


procedure TMainForm.ListDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 if FChecked then
  if ACol=FACol then
   if ARow=FARow then
LvImageList.Draw(List.Canvas, Rect.Left, Rect.Top, 0);
end;

Код


// Этоя загружаю данные из файла
F:=Ini.ReadString('Generals','SaveList', ExtractFilePath(Application.ExeName)+'sll.sll');
 If Pos('|',F)>0 then F:= Copy(F, 1, Pos('|',F)-1);

 if fileexists(F) then
    begin
 assignfile(d, F);
  reset(d);
  readln(d, temp);
  list.colcount := temp;
  readln(d, temp);
  list.rowcount := temp;
  for X := 1 to list.colcount - 1 do
    for y := 1 to list.rowcount - 1 do
    begin
      readln(d, tempstr);
      list.cells[x, y] := tempstr;
      FARow:=Y;
      FACol:=0;
      FChecked:=True;
    end;
  closefile(d);
 end;
Ini.Free;

Ну вот

Код


 FARow:=Y;
      FACol:=0;
      FChecked:=True;

Отрисовывает картинку, по идее он в цикле должен отрисовать в 0 столбце, количество картинок, равное количиству строк, а он только последнюю строку отрисовывает.

Alexeis

Дата 25.5.2007, 14:27 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459

ну так вместо нуля вот тут LvImageList.Draw(List.Canvas, Rect.Left, Rect.Top, 0);
указывай нужный индекс.

--------------------

ZBugz

Дата 25.5.2007, 14:33 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 636
Регистрация: 15.2.2006
Где: Москва

Репутация: нет
Всего: 6

Этоя наверное как всегда криво написал smile

Иконка то рисуется, но одна и в последнем строке, а я же в цикл спеуиально загнал, чтоб иконка во всех столбцах нарисовалась, а она почему то тока в последенем smile

Alexeis

Дата 25.5.2007, 14:50 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459

Цитата(ZBugz @ 25.5.2007, 14:33

)

а я же в цикл спеуиально загнал, чтоб иконка во всех столбцах нарисовалась, а она почему то тока в последенем

Причем здесь цикл? Обработчик вызывается изнутри. Не нужно ничего дополнительно вызывать

Код


procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  ImageList1.Draw(StringGrid1.Canvas, Rect.Left, Rect.Top, ARow);
end;

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »