IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> Нарисовать карту
сообщение
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 75
Пол: Мужской

Репутация: -  0  +


Проблема такова: В прикрепленном файле находятся файлы KRD-карты районов. Каждый из них содержит название района, координаты точек, макс. и мин. значения "х" и "у". Помогите вывести на экран хотя бы одну карту
Код


interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  x,y,h:real;
  I1,I2,J1,J2:integer;
  x1,x2,y1,y2:real;
implementation

{$R *.dfm}
{------------------------------------------------------------------------------}
function II(x:real):Integer;
begin
  II:=I1 + Trunc ((x-x1)*(I2-I1)/(x2-x1))
end;
{------------------------------------------------------------------------------}
function JJ(y:real):Integer;
begin
  JJ:=J1 + Trunc ((y-y1)*(J2-J1)/(y2-y1))
end;
{------------------------------------------------------------------------------}
procedure TForm1.Button1Click(Sender: TObject);
begin
with Image1

end;

end.


Прикрепленные файлы
Прикрепленный файл  KRD.rar ( 17.13 килобайт ) Кол-во скачиваний: 235


--------------------
Ну, а почему бы в свободное время не позаниматься программированием?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Фанат Delphi
**

Группа: Пользователи
Сообщений: 72
Пол: Мужской
Реальное имя: Сергей

Репутация: -  0  +


К райцентру я смог обратитьсяся, мб немного неоптимально, но собсвена вот//
Код
      
MasX[i]:= Round((Region[i].CenterX-dx) / m) - round((Image1.Picture.Graphic.Width) / 2);
MasY[i]:= Round((Region[i].CenterY-dy) / m) - Image1.Picture.Graphic.Height div 2;
Canvas.Draw(MasX[i],MasY[i],Image1.Picture.Graphic);
---------------------------------------------------------------
if (x>=MasX[i])and (x<=MasX[i]+image1.Picture.Width) and (y>=MasY[i])and(y<=MasY[i]+image1.Picture.height) then
      label2.caption:=Region[i].Name;

Осталось только к самому региону...Может подскажете? smile.gif


--------------------
ICQ (384-043-857)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
}0pa   Нарисовать карту   17.11.2006 20:37
}0pa   Смотрю по коду, вроде должно работать, но все равн…   19.11.2006 14:25
мисс_граффити   Что значит вывести? Что должно получиться на экран…   19.11.2006 16:09
}0pa   Да, куча точек - карта района с его названием и на…   19.11.2006 21:24
hiv   Что означает 7 в 7-ой строке файла данных о районе…   21.11.2006 15:12
hiv   Вроде что-то получилось :) Вот как выглядит: ЗЫ:…   21.11.2006 16:19
}0pa   Но не забудь, что пересчитывать Delta (относитель…   23.11.2006 16:37
hiv   1.Наверное, придется заносить сещение в массив? 2…   23.11.2006 20:05
}0pa   Большой респект. Нашел свои ошибки!!!С…   22.11.2006 5:50
}0pa   Не мог ты написать пример хотя бы для 2 карт.   22.11.2006 22:29
}0pa   Canvas.Ellipse(Region.CenterX-Region.Delta.X-t…   23.11.2006 6:30
hiv   Понятно,что это эллипс, но каким же образом мы выб…   23.11.2006 13:14
}0pa   Масштаб не получается реализовать, т.е. на форме в…   26.11.2006 21:57
}0pa   Вот этот проэкт. Вся карта не помещается на форму.…   27.11.2006 4:07
hiv   Вот этот проэкт. Вся карта не помещается на форму…   27.11.2006 14:39
}0pa   С маштабом я потом сам догадался, вспомнив про сжа…   27.11.2006 17:54
hiv   Посмотри описание объекта TColor; Из него можно со…   27.11.2006 18:16
}0pa   Sorry, сам разобрался... Function MyColor(c…   27.11.2006 18:41
hiv   Может, немного нерациорально, но тем не менее... …   27.11.2006 18:53
}0pa   Не могу найти в инете ничего стоящего, Возможно эт…   28.11.2006 0:00
hiv   Не могу найти в инете ничего стоящего, Возможно э…   28.11.2006 14:02
}0pa   Большое Вам спасибо, что потратили время на эту за…   29.11.2006 0:52
hiv   ЗЫ: Что такое DRKB? Ну ты даешь!!! …   29.11.2006 13:23
}0pa   Тьфу,ты... :mega_chok: :mega_chok: :mega_chok: …   29.11.2006 23:17
hiv   Кстати, Attr:=$FFFFFFFF - faDirectory; Оз…   30.11.2006 13:29
}0pa   { if i=1 then begin //относительное смещение ко…   1.12.2006 5:08
hiv   Я сомневаюсь,что эта часть кода жизненно необходим…   1.12.2006 13:36
NTL   { if i=1 then begin //относительное смещение к…   11.12.2006 21:45
hiv   Почему именно i:=1 Если dX и dY не будут определ…   12.12.2006 13:48
}0pa   Случилось самое страшное :mad: . Мне нужно организ…   1.12.2006 20:44
hiv   Случилось самое страшное :mad: . Мне нужно органи…   1.12.2006 21:49
Гость   Нужно связать переменную m, отвечающую за масштаб …   2.12.2006 1:19
}0pa   А это я сделал, тем самым уменьшив шаг масштаба..…   2.12.2006 1:20
}0pa   Еще требуется обратиться к каждому региону нажатие…   4.12.2006 18:06
hiv   Еще требуется обратиться к каждому региону нажати…   4.12.2006 21:54
}0pa   Обратиться. При нажатии на отдельный регион, появл…   5.12.2006 3:47
hiv   Главная проблема в определении принадлежности точк…   5.12.2006 14:57
NTL   Необходимо в этой же задаче: Дан рисунок, необходи…   7.12.2006 22:26
hiv   Необходимо в этой же задаче: Дан рисунок, необход…   11.12.2006 13:23
NTL   А как же связать масштаб с габаритами формы? Чтобы…   8.12.2006 6:14
hiv   А как же связать масштаб с габаритами формы? Чтоб…   8.12.2006 13:09
NTL   ЗЫ: А причем тут растровая графика TImage? Ведь в…   8.12.2006 20:19
NTL   Вообщем, дан на форма Image1 с загруженным туда ри…   11.12.2006 15:41
hiv   ВместоCanvas.Ellipse((Region[i].CenterX-x-th div 2…   11.12.2006 16:37
NTL   для m:real; не подходит, а для целого в самый раз…   11.12.2006 21:11
NTL   Тьфу ты :norespect: Для m - любого дошло до меня..…   11.12.2006 21:22
NTL   Мне собственно нужно теперь обратиться к этой кар…   12.12.2006 18:30
NTL   Но у нас же условие будет проверяться только один…   12.12.2006 19:39
NTL   К райцентру я смог обратитьсяся, мб немного неопти…   12.12.2006 19:19
NTL   Может быть, что-нибудь похожее...рез-ат этого почт…   12.12.2006 19:50
hiv   ЗЫ: Принадлежность точки к многоугольнику рассмотр…   12.12.2006 20:34
NTL   При нажатии на райцентр - новая форма и рисование …   12.12.2006 20:57
NTL   С этой задачей справился, осталось немного- при на…   14.12.2006 12:50
z12   С этой задачей справился, осталось немного- при н…   15.01.2007 23:22


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.03.2024 23:16
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name