Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Клуб программистов > Свободное общение
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.04.2008, 17:25   #31
Air
Участник клуба
 
Аватар для Air
 
Регистрация: 30.04.2007
Сообщений: 1,307
По умолчанию

Цитата:
Сообщение от WOLFak Посмотреть сообщение
я ща над картой фотошопом попробую цвета поизменять
тот исходник alexBlack'а не фурычит с jpeg ) пишит что изменять можно тока битмап
но идея mutabor выглядит более надежной
А конвертировать не судьба.
Код:
Uses JPEG;
Function ConverterJPEGToBMP(JpgImage:TJpegImage):Tbitmap;
begin
Result:=TBitmap.Create;
Result.Assign(JpgImage);
end;
Цитата:
яж говорил что по сравнению со всеми вами я очень начинающий и почти ниче не знающий "программист"
Можно было спросить...
Всё гениальное - просто!

Последний раз редактировалось Air; 11.04.2008 в 17:55.
Air вне форума Ответить с цитированием
Старый 11.04.2008, 17:51   #32
WOLFak
Форумчанин
 
Аватар для WOLFak
 
Регистрация: 30.12.2007
Сообщений: 180
По умолчанию

яж говорил что по сравнению со всеми вами я очень начинающий и почти ниче не знающий "программист"
^_^
WOLFak вне форума Ответить с цитированием
Старый 11.04.2008, 22:32   #33
mutabor
Телепат с дипломом
Старожил
 
Аватар для mutabor
 
Регистрация: 10.06.2007
Сообщений: 4,929
По умолчанию

Цитата:
вот и вопрос как этот код должен работать(составление карты of byte)?
сначала нужно создать временную матрицу точек принадлежащих странам, из нее создать рабочий массив.
Временная матрица с переменной длиной по ширине
Maps: array of array of TPoint;
Переменной потому что площадь стран разная.
Когда она будет заполнена, из нее таким вот образом заполнить рабочий массив Map, к-рый и будет использоваться в программе.
Код:
for i:=0 to Length(Maps)-1 do //Length(Maps) = кол-ву стран
  begin
  j:=0;
  while j<Length(Maps[i]) do //Length(Maps[i]) = кол-ву точек в стране i
    Map[Maps[i,j].x,Maps[i,j].y]:=i+1;
  end;
Как создать матрицу с переменной шириной >>>
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог

Последний раз редактировалось mutabor; 11.04.2008 в 22:59.
mutabor вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужна помощь KpeHDeJIb Помощь студентам 4 04.07.2008 11:52
МНЕ НУЖНА ПОМОЩЬ Акашаев Нурлан Общие вопросы Delphi 4 29.06.2008 21:07
Нужна помощь londoner Общие вопросы Delphi 2 05.02.2007 14:23