Смена изображения при наведении не на белую область

[Alex Cones]

Имеется:
На фоне - карта мира (в арихиве - урезанная часть)
На ней сверху расположена картика Image 1 с частью южной америки.
Как сделать, что бы при наведении на америку (именно на америку, а не на область картинки) картинка сменялась на другую (В архиве - 1.bmp)?

[DomiNick]

Как сделать, что бы при наведении на америку

Ну наверное попадание в область проверять...

А вы уже реализовали это "при наведении"..? В обычном TImage нет событий "OnMouseEnter" и "OnMouseLeave".....
Или у вас не Delphi 7, а какой-то более новый, где эти события добавили?

А вообще я бы сделал HTML-страницу и её в браузере выводил...

[Alex Cones]

Дельфя обыкновенная - семерка, Leave и Enter там действительно нет.

А вообще я бы сделал HTML-страницу и её в браузере выводил...

Тогда бы я делал не приложение, а HTML страницу.

Ну наверное попадание в область проверять...

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

Так что...

[DomiNick]

очертания америки - не прямоугольник и даже не квадрат

Ну и что?
Через регионы же вроде можно... Сейчас попробую вспомнить как.....
В самом крайнем случае через много уравнений прямых...

Дельфя обыкновенная - семерка, Leave и Enter там действительно нет

И как же вы тогда сделали..?
Я находил примеры как так сделать, но может есть что получше...


UpDate

Вспомнил...

Проверить принадлежит ли точка заданому региону:
If PtInRegion(R, X, Y) Then ...
где R - регион, X и Y - координаты точки

[Alex Cones]

Делал примитивно - через проверку координат мыши:
Var P: TPoint;
If (p.X>150) And (p.X<200) And (p.Y>100) And (p.Y<200) Then ...

А как задавать регион? С этого места пожалуйста поподробней.
Кстати пришла в голову мысль... Правда не знаю долго ли это реализовывать. Но ... Если создать копию этого изображения (по размерам) а все изображение закрасить к примеру белым, а область америки сделать например синей. После этого загрузить это изображение в Дельфи и проверять в зависимости от положения мыши (тот же p.Y) точку с соответствующими координатами на этой новой карте. И если пиксель синего цвета, то включить флаг. Думаю так можно реализовать не только одну страну. Достаточно будет добавить цвет на карту и проверку.

[Alex Cones]

Все! Готово! Сделал еще проще - создал в отдельной папке текстовый файл с матрицей чисел 256*192 (То бишь 1024*768, но деленные на 4), Вот его обрывок:
...000000000011111000000...
...000000000001110000000...
...000000000000110000000...
...000000000000010000000...
...000000000000000000000...

Потом загружаю его в отдельный массив:

 Begin
  Assign(F,'FCMAP.txt');
  Reset(F);
  For A:=0 to 191 do
   Begin
    Readln(F,S);
    For B:=0 to 255 do
     Begin
      FCDATAMAP[B,A]:=StrToInt(Copy(S,1,1));
      Delete(S,1,1);
     End;
   End;
  CloseFile(F);
 End;

После чего создал такую процедурку:

procedure TForm1.FCMAPMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 If FCDATAMAP[Trunc(X/4),Trunc(Y/4)] = 1 Then Form1.Label1.Caption:='1';
end;

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

[DomiNick]

А как задавать регион?

Var R: HRGN;
...
R:=CreateRectRgn(100, 300, 250, 400); // Создать прямоугольный регион
R:=CreateEllipticRgn(10, 10, 100, 100); // Создать овальный регион
R:=CreatePolygonRgn(Points, 10, WINDING); // Создать многоугольный регион

Уважаемый mihali4 как-то посоветовал поинтересоваться регионами и дал пару ссылок...
Я в качестве тренировки над TButton издевался:

Procedure TForm1.FormCreate(Sender: TObject);
Begin
Button1.Left:=10;
Button1.Top:=10;
Button1.Height:=200;
Button1.Width:=200;
Form1.Color:=clNavy;
End;

Procedure TForm1.Button1Click(Sender: TObject);
Var i: Integer; R1, R2: HRGN; Points: Array [0..9] Of TPoint;
Begin
Randomize;
For i:=0 To 9 Do
      Begin
      Points[i].X:=Random(160)+20;
      Points[i].Y:=Random(160)+20;
      End;
R1:=CreateRectRgn(0, 0, 200, 200);
R2:=CreateRectRgn(20, 20, 180, 180);
CombineRgn(R1, R1, R2, RGN_XOR);
R2:=CreateEllipticRgn(70, 70, 130, 130);
CombineRgn(R1, R1, R2, RGN_OR);
R2:=CreatePolygonRgn(Points, 10, WINDING);
CombineRgn(R1, R1, R2, RGN_OR);
SetWindowRgn(Button1.Handle, R1, True);
End;