Нарисовать карту Опции

[}0pa]

Проблема такова: В прикрепленном файле находятся файлы 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.

[hiv]

Не могу найти в инете ничего стоящего, Возможно это АПИ фукнции, а с ними я еще не сталкивался...

Код

CharToOEM/OEMToChar

Может что-нибудь это? Тогда что за тим PAnsiChar???

Смотри DRKB (советую загрузить)

function StrToOem(const AnsiStr: string): string; 
begin 
  SetLength(result, Length(AnsiStr)); 
  if Length(result) > 0 then 
    CharToOem(PChar(AnsiStr), PChar(result)) 
end; 

Здесь win->dos , а наоборот сам переделаешь
Удачи.

[}0pa]

Большое Вам спасибо, что потратили время на эту задачу...Вроде все сделано.
ЗЫ: Что такое DRKB?

[hiv]

ЗЫ: Что такое DRKB?

Ну ты даешь!!! Смотри заголовок...

[}0pa]

Тьфу,ты...
Кстати,

Код

Attr:=$FFFFFFFF - faDirectory;

Означает, все файлы в текущей директории???

[hiv]

Кстати,

Код

Attr:=$FFFFFFFF - faDirectory;

Означает, все файлы в текущей директории???

Абсолютно верно. Причем faAnyFile не хляет, вместо него $FFFFFFFF. А не хляет потому, что мелкософтовцы в винде повводили еще новых атрибутов - да еще и в инвертированом виде.

[}0pa]

Код

    { if i=1 then
     begin //относительное смещение координат карты и формы на экране
       dX:=Region[i].Rect.Left;
       dY:=Region[i].Rect.Top;
     end
     else
     begin //выбираем минимальные значения
       if dX>Region[i].Rect.Left then dX:=Region[i].Rect.Left;
       if dY>Region[i].Rect.Top then dY:=Region[i].Rect.Top;
     end;  }

Я сомневаюсь,что эта часть кода жизненно необходима Да, к тому же зачем вообще рисовать прямоугольник?

[hiv]

Я сомневаюсь,что эта часть кода жизненно необходима

Необходима, если карты будут другие. Тогда смещения dx и dy, которые ты константами прописываешь в своей программе, прийдется менять, что повлечет перекомпиляцию кода. Тем более, что в этом коде используются все входные данные. Иначе зачем они тебе давались? Вспомни школьную физику или математику: "При решении задачи используются все данные, которые даны в условии, иначе задача решена НЕПРАВИЛЬНО!".

Да, к тому же зачем вообще рисовать прямоугольник?

Где ты видел рисование? TRect - просто стандартный объект, содержащий только координаты прямоугольной области.

[}0pa]

Случилось самое страшное . Мне нужно организовать, чтобы карта рисовалась точно в области формы и при иземенения размера формы менялся ее размер

[hiv]

Случилось самое страшное . Мне нужно организовать, чтобы карта рисовалась точно в области формы и при иземенения размера формы менялся ее размер

Тогда масштаб должен быть вещественным. Целочисленное деление DIV должно быть заменено вещественным /. Результируемые координаты должны быть округлены до целого.
И тот кусок кода что выкинул - верни и доработай, чтоб масштаб вычислять.

[Гость]

Нужно связать переменную m, отвечающую за масштаб с длиной и шириной формы, но другое дело, как это сделать?

[}0pa]

Тогда масштаб должен быть вещественным. Целочисленное деление DIV должно быть заменено вещественным /. Результируемые координаты должны быть округлены до целого.

А это я сделал, тем самым уменьшив шаг масштаба...

[}0pa]

Еще требуется обратиться к каждому региону нажатием Левой кнопки мыши
Вот не пойму как можно это сделать7

[hiv]

Еще требуется обратиться к каждому региону нажатием Левой кнопки мыши
Вот не пойму как можно это сделать7

Что значит обратиться? (поподробнее)

ЗЫ: Пересчитывай координаты мышки обратно в координаты карты, т.е. умножай на масштаб и добавляй смещение. Делать это по событию onMouseDown.

[}0pa]

Обратиться. При нажатии на отдельный регион, появляется новая форма с этим регионом, но при этом этот регион в точности имеет размер формы и при Resize карта менят размеры.

[hiv]

Главная проблема в определении принадлежности точки многоугольнику. Ее решение можешь посмотреть здесь.

[NTL]

Необходимо в этой же задаче: Дан рисунок, необходимо, создавая динмаически очередной ТАКОЙ же рисунок,
разместить его в точке, где находится Райцентр. Вот мой вариант, но что-то не получается...Не отображается копия. Помогите плзю

Код

       Image:=TImage.Create(Form1);
       BitMap:=TBitMap.Create;
       Myimage.width:=image1.width;
       Myimage.height:=image1.height;
       MyRect:=Rect(1,1,myImage.Width,myimage.Height);
       ImRect:=Rect(1,1,image1.Width,image1.Height);

        BitMap.Assign(Image1.Picture);

       MyImage.Canvas.CopyRect(MyRect,BitMap.Canvas,ImRect);

       Myimage.Left:=Round((Region[15].CenterX-dx-th div 2 - 1)/ m);
       Myimage.Top:= Round((Region[15].CenterY-dy-th div 2 - 1)/ m);
       MyImage.show;

[NTL]

А как же связать масштаб с габаритами формы? Чтобы при изменении размера формы, карта была в точности размером формы?

[hiv]

А как же связать масштаб с габаритами формы? Чтобы при изменении размера формы, карта была в точности размером формы?

Очень просто:
1) Определяешь масштаб горизонтальный = размер региона по горизонтали / ширину формы;
2) Определяешь масштаб вертикальный = размер региона по вертикали / высоту формы;
3) Выбираешь из этих двух масштабов выбираешь максимальный.

ЗЫ: А причем тут растровая графика TImage? Ведь все время работали с векторной графикой!

[NTL]

ЗЫ: А причем тут растровая графика TImage? Ведь все время работали с векторной графикой!

Поподробнее не могли бы...

[hiv]

Необходимо в этой же задаче: Дан рисунок, необходимо, создавая динмаически очередной ТАКОЙ же рисунок,
разместить его в точке, где находится Райцентр. Вот мой вариант, но что-то не получается...Не отображается копия. Помогите плзю

Нет! Это Вы поподробней:
1) Что за рисунок? Изображение региона мы сами рисуем по его координатам (это векторная графика)
2) Что значит разместить рисунок в точке? Это что - ужать его до такого состояния? Стандартные рисунки TImage (растровая графика) отображаются не в точке, а в прямоугольнике (который можно задавать типом TRect).
3) А где должна отображаться копия НЕИЗВЕСНОГО ТАКОГО ЖЕ рисунка?