карта мира(нужна помощь)

[alexBlack]

Можно еще вариант предложить ? Даже два.

Простой. Все страны разного цвета. Берем пиксель под курсором мыши. Его цвет - номер страны. Думаю цветов хватит.

Усложненный. Для каждой страны строится регион. Например, так делаются формы в виде произвольной картинки. CreateRectRGN / CombineRgn. Попадание курсора мыши в регион легко проверяется - RectInRegion.

[Air]

Усложненный. Для каждой страны строится регион. Например, так делаются формы в виде произвольной картинки. CreateRectRGN / CombineRgn. Попадание курсора мыши в регион легко проверяется - RectInRegion.

С этого места, можно поподробней, как построить регион. (скажем есть карта россии)

[alexBlack]

Вот пример (не мой)
Один цвет считается прозрачным. Из bmp строится регион, который включает все остальные цвета. Этот регион используется для создания формы.

 function TForm1.CreateRegion(Bmp: TBitmap): THandle;
 var
   X, Y, StartX: Integer;
   Excl: THandle;
   Row: PRGBArray;
   TransparentColor: TRGBTriple;
 begin
   Bmp.PixelFormat := pf24Bit;

   Result := CreateRectRGN(0, 0, Bmp.Width, Bmp.Height);

   for Y := 0 to Bmp.Height - 1 do
   begin
     Row := Bmp.Scanline[Y];

     StartX := -1;

     if Y = 0 then
       TransparentColor := Row[0];

     for X := 0 to Bmp.Width - 1 do
     begin
       if (Row[X].rgbtRed = TransparentColor.rgbtRed) and
         (Row[X].rgbtGreen = TransparentColor.rgbtGreen) and
         (Row[X].rgbtBlue = TransparentColor.rgbtBlue) then
       begin
         if StartX = -1 then StartX := X;
       end
       else
       begin
         if StartX > -1 then
         begin
           Excl := CreateRectRGN(StartX, Y, X + 1, Y + 1);
           try
             CombineRGN(Result, Result, Excl, RGN_DIFF);
             StartX := -1;
           finally
             DeleteObject(Excl);
           end;
         end;
       end;
     end;

     if StartX > -1 then
     begin
       Excl := CreateRectRGN(StartX, Y, Bmp.Width, Y + 1);
       try
         CombineRGN(Result, Result, Excl, RGN_DIFF);
       finally
         DeleteObject(Excl);
       end;
     end;
   end;
 end;

 procedure TForm1.FormCreate(Sender: TObject);
 var
   Bmp: TBitmap;
 begin
   Bmp := TBitmap.Create;
   try
     Bmp.LoadFromFile('C:\YourBitmap.bmp');
     FRegion := CreateRegion(Bmp);
     SetWindowRGN(Handle, FRegion, True);
   finally
     Bmp.Free;
   end;
 end;

[WOLFak]

1 вый вариант был моей идеей тока где найти такую карту?
2 ой вариант мне нрав хотя он ооочн замысловатый если строить регион для каждой страны....
их вроде ж больше 120 или 150 вроде бы

[Air]

Не подскажете "PRGBArray" из какого модуля взять?

[Air]

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

да нет на счет координат я понял ну есть у меня координаты далше то что?

А дальше в OnMouseMove нужно проверять с текушими координатами и если курсор находится в диаппазоне (скажем Китая),то по этим точкам прорисовываем линию, она и будет границей Китая.

[alexBlack]

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

Не подскажете "PRGBArray" из какого модуля взять?

Понятия не имею. Но у автора используется простое описание для доступа к цветам пикселов. Можно описать это так:

type
TRGBArray = array[0..32767] of TColor;
PRGBArray = ^TRGBArray;

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

[AlDelta]

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

Привет всем
вы не знаете где можно скачать карту мира (в ней не должно быть никаких записей кроме столиц стран и у каждой страны должен быть свой цвет)

WorlPolMap.rar

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

Можно еще вариант предложить ? Даже два.
Простой. Все страны разного цвета. Берем пиксель под курсором мыши. Его цвет - номер страны. Думаю цветов хватит.

Карту правишь под свои нужды Photoshop'ом. Берешь Простой метод (наиболее оптимальный) от alexBlack и получаешь нужный тебе результат

[mutabor]

Да, метод с цветами действительно хитрый и простой. Можно сделать так что юзер и не заметит что цвета разные. Обычно ведь на картах используют до 10-ти цветов, на один два байта оттенок изменяешь и никто не заметит, визуально те же десять цветов.

Если цвета были бы недоступны, я бы записал в файл (или в ресурсы) массивы для каждой страны свой с координатами всех точек принадлежащих стране. Для создания их один раз пройтись по карте и кликнуть мышкой в каждой стране, если не ошибаюсь около 160-ти кликов придется сделать, главное чтобы граница четкая и постоянного цвета была.

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

const
 Genres : array[0..146] of string =
    ('Blues','Classic Rock','Country','Dance','Disco','Funk','Grunge',
    'Hip- Hop','Jazz','Metal','New Age','Oldies','Other','Pop','R&B',...

Принцип думаю ясен?

[alexBlack]

А по мне, так вместо массивов проще маску сделать. Одну карту показываем пользователю (со всем рельефом). По второй карте определяем страну. Маска делается в Photoshope с реальной карты.