Из timagelist в image

@@lex999 · Регистрация: 26.06.2013

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

Неободимо из imagelist поместеть картинку в image, причем выбор картинки происходит из toolbutton,
Пытался сделать так:

Delphi

1	ImageList1.GetBitmap(0,A1x1.Picture.Bitmap);

но тут заноситься только картина на определенном индексе, как сделать чтобы можно было заносить картинку любого индекса ?

@mss · 27.02.2015, 08:17

Сообщение от @lex999

нажимаю на кнопку на toolbar'e, затем на image

И появляется изображение, которого до этого вообще не было ?

А потом еще раз "нажимаешь .. затем" и изображение остается прежним ?

@@lex999 · 27.02.2015, 08:40 **[ТС]**

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

@mss · 27.02.2015, 08:57

Сообщение от @lex999

изображение которое я выбрал

И опять нихрена не понятно)

Ладно, спрошу по рабоче-крестьянски:

вот ты запустил свое приложение, появилась форма, никакие кнопки нигде ты еще не давил - изображение в Image уже есть ?

@@lex999 · 27.02.2015, 09:13 **[ТС]**

нет

p.s сорри за мой французский)

@mss · 27.02.2015, 09:26

Сделай так:

Delphi

procedure TForm1.A1x1Click(Sender: TObject);
begin
  ShowMessage('Жмакнул на A1x1: N = ' + IntToStr(N));
  ImageList1.GetBitmap(n,A1x1.Picture.Bitmap);
  A1x1.Repaint;
end;
 
procedure TForm1.LogButton1Click(Sender: TObject);
begin
  n:=1;
  ShowMessage('Жмакнул на LogButton1: N = ' + IntToStr(N));
end;
 
procedure TForm1.LogButton2Click(Sender: TObject);
begin
  n:=2;
  ShowMessage('Жмакнул на LogButton2: N = ' + IntToStr(N));
end;

Рассказывай подробно при каких действиях и что при этом видишь ..

@@lex999 · 27.02.2015, 09:56 **[ТС]**

Спасибо огромное, совсем забыл про repaint))

Добавлено через 9 минут
еще один вопрос, если можно, вы не знаете ,как можно сделать так, чтобы границы image были видны, т.е чтобы была своеобразная сетка ?

@mss · 27.02.2015, 10:02

И сколько же этих Image ты нашлепал на форму ?

@@lex999 · 27.02.2015, 10:13 **[ТС]**

210, или можно как то по другом сделать границы, т.е на image с границами скинуть все эти другие image

@mss · 27.02.2015, 10:22

Сообщение от @lex999

210

Очуметь..

А по-хорошему-то не нужен вообще ни один - все это расчудесно делается средствами всего одного-единственного компонента TDrawGrid.

@@lex999 · 27.02.2015, 10:30 **[ТС]**

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

@mss · 27.02.2015, 10:44

для каждой кнопки укажи, например, в св-ве Tag значение соответствующего индекса в имиджлисте
назначь всем кнопкам единый метод-обработчик события клика

в этом едином для всех кнопок методе-обработчике:

Delphi

1	N := TComponent(Sender).Tag;

Тоже самое касается коспонентов Image, коих у тебя 210 - назначь им единый метод обработчик клика, в котором:

Delphi

with TImage(Sender) do
begin
  ImageList1.GetBitmap(n, Picture.Bitmap);
  Repaint;
end;

@@lex999 · 27.02.2015, 11:19 **[ТС]**

т.е для кнопок создать одну процедуру и ссылаться на нее, и для image тоже одну процедуру и ссылаться на нее ?

@mss · 27.02.2015, 11:21

именно так

@@lex999 · 27.02.2015, 11:33 **[ТС]**

и чтобы тегу присвоить индекс в imagelist что-то вроде этого:

Delphi

1 2	TToolButton(sender).Tag:=ImageList1.Tag; N := TToolButton(Sender).Tag

@mss · 27.02.2015, 11:42

нет.
значение Кнопка.Tag должно заполняться в момент создания самой Кнопки (в дизайнтайм или в рантайм - не суть как важно)

В момент же клика Кнопки при едином на все кнопки обработчике клика значение св-ва Tag конкретно кликнутой кнопки как раз и может быть получено строчкой
N := TToolButton(Sender).Tag

А ImageList1.Tag тут вообще ни с какого боку ни припека)

@@lex999 · 27.02.2015, 12:04 **[ТС]**

все сделал вот так вроде работает

Delphi

1	N := TToolButton(Sender).ImageIndex;

относительно image:
Добавлено через 10 минут

Delphi

1 2	ImageList1.GetBitmap(n, Picture.Bitmap); Repaint;

в этом случае пишет ошибку

[Error] Unit1.pas(330): Undeclared identifier: 'Picture'

как я понимаю проблему в том что к pictures нужнен конкретный image, как можно это испраить ?)

@mss · 27.02.2015, 12:11

Сообщение от @lex999

Undeclared identifier: 'Picture'

А эту строку

with TImage(Sender) do

у тебя мыши съели ?)

@@lex999 · 27.02.2015, 12:13 **[ТС]**

все, не увидел:

Delphi

1	with TImage(Sender) do

, спасибо огромное

@mss · 27.02.2015, 12:24

Все же подумай пока не поздно, нафих тебе две сотни Image, когда (и нужно) можно обойтись всего одним TDrawGrid)

@@lex999 · 27.02.2015, 12:42 **[ТС]**

просто с отдельным компонентом, мне кажется, удобнее работать, или c drawgrid все таки лучше ?

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	27.02.2015, 08:57	23
	Сообщение от @lex999 изображение которое я выбрал И опять нихрена не понятно) Ладно, спрошу по рабоче-крестьянски: вот ты запустил свое приложение, появилась форма, никакие кнопки нигде ты еще не давил - изображение в Image уже есть ? 0

@@lex999 4 / 4 / 0 Регистрация: 26.06.2013 Сообщений: 110
	27.02.2015, 10:13 [ТС]	28
	210, или можно как то по другом сделать границы, т.е на image с границами скинуть все эти другие image 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	27.02.2015, 10:22	29
	Сообщение от @lex999 210 Очуметь.. А по-хорошему-то не нужен вообще ни один - все это расчудесно делается средствами всего одного-единственного компонента TDrawGrid. 0

@@lex999 4 / 4 / 0 Регистрация: 26.06.2013 Сообщений: 110
	27.02.2015, 11:19 [ТС]	32
	т.е для кнопок создать одну процедуру и ссылаться на нее, и для image тоже одну процедуру и ссылаться на нее ? 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	27.02.2015, 11:42	35
	нет. значение Кнопка.Tag должно заполняться в момент создания самой Кнопки (в дизайнтайм или в рантайм - не суть как важно) В момент же клика Кнопки при едином на все кнопки обработчике клика значение св-ва Tag конкретно кликнутой кнопки как раз и может быть получено строчкой N := TToolButton(Sender).Tag А ImageList1.Tag тут вообще ни с какого боку ни припека) 1

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	27.02.2015, 08:17	21
	Сообщение от @lex999 нажимаю на кнопку на toolbar'e, затем на image И появляется изображение, которого до этого вообще не было ? А потом еще раз "нажимаешь .. затем" и изображение остается прежним ? 0

@@lex999 4 / 4 / 0 Регистрация: 26.06.2013 Сообщений: 110
	27.02.2015, 08:40 [ТС]	22
	появляется изображение которое я выбрал, но поменять его на другое не получается. 0

@@lex999 4 / 4 / 0 Регистрация: 26.06.2013 Сообщений: 110
	27.02.2015, 09:13 [ТС]	24
	нет p.s сорри за мой французский) 0

@@lex999 4 / 4 / 0 Регистрация: 26.06.2013 Сообщений: 110
	27.02.2015, 09:56 [ТС]	26
	Спасибо огромное, совсем забыл про repaint)) Добавлено через 9 минут еще один вопрос, если можно, вы не знаете ,как можно сделать так, чтобы границы image были видны, т.е чтобы была своеобразная сетка ? 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	27.02.2015, 10:02	27
	И сколько же этих Image ты нашлепал на форму ? 0

@@lex999 4 / 4 / 0 Регистрация: 26.06.2013 Сообщений: 110
	27.02.2015, 10:30 [ТС]	30
	а вы не могли бы подсказать, как ужать код, т.е чтобы для каждой кнопки и image не прописывать один и тот же код ? 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	27.02.2015, 11:21	33
	именно так 1

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	27.02.2015, 12:11	37
	Сообщение от @lex999 Undeclared identifier: 'Picture' А эту строку with TImage(Sender) do у тебя мыши съели ?) 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	27.02.2015, 12:24	39
	Все же подумай пока не поздно, нафих тебе две сотни Image, когда (и нужно) можно обойтись всего одним TDrawGrid) 0

@@lex999 4 / 4 / 0 Регистрация: 26.06.2013 Сообщений: 110
	27.02.2015, 12:42 [ТС]	40
	просто с отдельным компонентом, мне кажется, удобнее работать, или c drawgrid все таки лучше ? 0