Много TImage

[bunukar]

Вобщем ситуация такая. Делаю Таблицу Менделеева. Каждый Элемент - Timage. Нужно чтобы при наведении курсора(OnMouseMove) изменялась картинка элемента, на который навели.
Я делаю просто изменением всех картинок. Но на каждый МаусМув по 118 строк кода(1 кратинка изменяется, а все другие изменяются на изначальную). Проблема в том, что измененная картинка долго грузится, да и кода только для МаусМув получится на 11к строк.
Как можно это реализовать лучше? Спасибо заранее.

[Sparkman]

1) отказаться от TImage;
2) рисовать на канве;
3) использовать MouseMove формы.

[bunukar]

Сообщение от Sparkman

1) отказаться от TImage;
2) рисовать на канве;
3) использовать MouseMove формы.

1)А как это можно сделать?
Я просто совсем новичок ещё
Ещё была идея всделать Таблицу на HTML. Там ведь проще, да и грузиться должно быстрее. Но как реализовать HTML в Дельфи так и не разобрался.

[Smitt&Wesson]

Если язык С++, то через разыменование классов:
Для TImage не делал, но для чекбоксов вот (как пример)

if(!((TCheckBox *)Form1->Controls[Index]->Checked)

Получаем индекс чекбокса и обрабатываем в одной функции.

[Sparkman]

Сообщение от bunukar

1)А как это можно сделать?
Я просто совсем новичок ещё
Ещё была идея всделать Таблицу на HTML. Там ведь проще, да и грузиться должно быстрее. Но как реализовать HTML в Дельфи так и не разобрался.

см. п.2

[Serge_Bliznykov]

графика не мой конёк. Но, ИМХО:

думаю, что главная ошибка TC в том, что он для каждого TImage пишет СВОЙ код.
я бы лично создал массив указателей на TImage. (или использовал ImageList)
и дальше обработчик писал ТАК, чтобы он (обработчик) был универсальный (один и тот же код ДЛЯ ВСЕХ картинок!

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

[bunukar]

Smitt&Wesson
Забыл уточнить. Делаю на Delphi 7

Sparkman
С канвас совсем не знаком. Только прмитивно - фигурки, таблицы - основы вобщем.

Serge_Bliznykov
Тоже не совсем понимаю, как реализовать в массиве.

Прикрепляю исходники. Весь тот код по 118 строк на каждую картинку я удалил, т.к. это точно не вариант.


_________
ЗАМЕНИЛ ВЛОЖЕНИЕ!
теперь без вируса!

Модератор

[Serge_Bliznykov]

так, сразу, пока не началось - бегом в тему
Delphi-“вирус” проверьте свою установленную Delphi!
и лечить свою заражённую Delphi!

[Serge_Bliznykov]

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

как это сделано:
1) у элементов водород, гелий, Li, Be, B назначены поле Tag ручками вписано индекс картинки из ImageList

2) все эти кнопки выделены (через Shift) и им всем назначен ОДИН и тот же обработчик события MouseEnter
и один и тот же обработчик события MouseLeave

собственно обработчики вот:

procedure TForm1.Image1MouseEnter(Sender: TObject);
var b:Tbitmap;
begin
  if Not (Sender is TImage) then Exit;

  SaveImage.Assign (TImage(Sender).Picture.Bitmap );
  b:=tbitmap.Create;
  imagelist1.GetBitmap(TImage(Sender).Tag,b);
  TImage(Sender).Picture.Bitmap:=b;
  b.Free;
end;

procedure TForm1.Image2MouseLeave(Sender: TObject);
begin
  if Not (Sender is TImage) then Exit;
  TImage(Sender).Picture.Bitmap := SaveImage;
end;

ну и полностью посмотреть код и посмотретЬ, как это работает можно в исходнике во вложенном архиве.
внимание! Там не полностью исходник, а только то, что менялось!

[bunukar]

Просмотрел. Примерное понял как делается.
Но у меня не находит эти процедуры в Events. При запуске исходника выскочил впорос, игнорировать или Cancel. Что делать?