Image ГИС

[demlan]

Всем привет. Надо сделать план местности. Кинул на форму ScrollBox. В него поместил Image. В него поместил большую картинку, чтобы края были за пределами. На картинке есть дома. Мне надо чтобы при наведении на определенный дом во втором Image выводилась фото этого дома. Решаю данную проблему через опу... кидаю на изображение на место дома другой Image и при наведении на него срабатывает событие... Но домов много и как мне кажется это не выход... Подскажите другой способ решения данной проблы пожалуйста.

[Streletz]

Возможно, эта тема Вам что-нибудь подскажет: Создание электронного справочника ГИС.

[demlan]

Безымянный.jpg вот вид программы.

if (x>918) and (X<990) then
  begin
  if (y>2456) and (y<2512) then
    begin
    If LoadImage<>'Штаб тыла' then
       begin
       Image5.Picture.LoadFromFile('..\Foto\Тыл.jpg');
       LoadImage:='Штаб тыла';
       end else
         begin
         panel2.Visible:=FALSE;
         Image5.Picture.Create;
         Image5.Picture:= nil;;
         LoadImage:='';
         end;
      end;
    end;

написал это-вроде следит, но глючно очень.
понял саму концепцию-надо создать БД с координатами зданий и по перемещению курсора сверять с БД и при совпадении выводить картинку. но как это сделать ума не приложу....

[demlan]

код на событии Image1MouseMove

[Streletz]

но как это сделать ума не приложу....

Что именно? БД?

[Человек_Борща]

Координаты должны быть относительными, а не абсолютными, ибо стоит пользователю изменить размеры окна или двинуть и ползунки, все ваши абсолютные координаты посыпятся.

Выходомбудет не только БД но и вычисление координат объектов. А ещё лучше рисовать карту самостоятельно.

[demlan]

Написал этот код-

function TForm1.GetImageName(const X, Xmin, Xmax, Y, Ymin, Ymax: Integer): string;
begin
if (X in [Xmin..Xmax]) and (Y in [Ymin..Ymax]) then
    begin
    Result:= ADOTable1Foto.AsString ;
    end
  else
    Result:= '';
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
NewImageName: string;
begin
if ssleft in shift then // если нажата левая кнопка мыши, то...
begin
x1:=x; //запоминаем конечные координаты
y1:=y; //запоминаем конечные координаты
Scrollbox1.VertScrollBar.Position := Scrollbox1.VertScrollBar.Position + y0-y1;
Scrollbox1.HorzScrollBar.Position := Scrollbox1.HorzScrollBar.Position +x0-x1;
 end;
Label1.Caption := IntToStr(x);
Label2.Caption := IntToStr(y);
//ПЕРЕБОРКА СТРОК ТАБЛИЦЫ

with ADOTable1 do
begin First;
while not EOF do begin
NewImageName:= GetImageName(X,StrToInt(ADOTable1Xmin.Text),StrToInt(ADOTable1Xmax.Text),
 Y,StrToInt(ADOTable1Ymin.Text),StrToInt(ADOTable1Ymax.Text));
  if NewImageName = '' then
    begin
   Image5.Visible:= False;
   LoadImage:='';
    end
  else
    if NewImageName <> LoadImage then
      begin
        Image5.Visible:= True;
        Image5.Picture.LoadFromFile(NewImageName);
        LoadImage:= NewImageName;

 end; next;
 end;



end;

Label3.Caption := NewImageName;

end;

вот только по БД неправильно ищет. Только одно здание находит, которое первое в таблице. Подскажите как правильно цикл поставить..

[demlan]

Изменил код функции на

function TForm1.GetImageName(const X, Xmin, Xmax, Y, Ymin, Ymax: Integer): string;
begin

if Result = '' then
if (X > Xmin) and (X < Xmax) and (Y > Ymin) and (Y < Ymax)
  then  begin
    Result:= ADOTable1Foto.AsString;
  end
  else
    Result:= '';
end;

стало все норм. Однако идет мерцание картинки при перемещении мышки по зданию. Посоветуйте, как убрать этот неприятный эффект?

[demlan]

Все заработало как надо. Если кому пригодится, то вот:

function TForm1.GetImageName(const X, Xmin, Xmax, Y, Ymin, Ymax: Integer): string;
begin
if Result = '' then
if (X > Xmin) and (X < Xmax) and (Y > Ymin) and (Y < Ymax)
  then  begin
    Result:= ADOTable1Foto.AsString;
  end
  else
    Result:= '';
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
NewImageName: string;
begin
if ssleft in shift then // если нажата левая кнопка мыши, то...
  begin
   x1:=x; //запоминаем конечные координаты
   y1:=y; //запоминаем конечные координаты
   Scrollbox1.VertScrollBar.Position := Scrollbox1.VertScrollBar.Position + y0-y1;
   Scrollbox1.HorzScrollBar.Position := Scrollbox1.HorzScrollBar.Position +x0-x1;
  end;
Label1.Caption := IntToStr(x);
Label2.Caption := IntToStr(y);
//ПЕРЕБОРКА СТРОК ТАБЛИЦЫ
with ADOTable1 do
begin First;
while not EOF do begin
NewImageName:= GetImageName(X,StrToInt(ADOTable1Xmin.Text),StrToInt(ADOTable1Xmax.Text),
  Y,StrToInt(ADOTable1Ymin.Text),StrToInt(ADOTable1Ymax.Text));
  if Label3.Caption=NewImageName then
  begin
   if NewImageName = '' then
     begin
      Image5.Visible:= False;
      LoadImage:='';
     end
   else
     if NewImageName <> LoadImage then
       begin
         Image5.Visible:= True;
         Image5.Picture.LoadFromFile(NewImageName);
         LoadImage:= NewImageName;
       end;
     end;
next;
end;
end;
Label3.Caption := NewImageName;
end;

Дорогу осилит идущий. Пойду дальше... Всем удачи.