[dikiy_o]

Доброго времени суток.
Суть задачи: Работа с картой. максимальный размер карты: 16160х14140 пикселей. вывод топоосновы и рисование на ней, разного типа обьектов.
Реализация: Карта разбита на квадраты 8х7, в макимальном разрешении размер квадрата 2020х2020пик. в минимальном 202х202. Для масштабирования созданы карты разной степени детализации размерами 202, 404, 606, 808, 1010, 1212, 1414, 1616, 1818, 2020 пикселей, помещены в соотвествующие папки на диске. По скольку грузить целую картинку очень ресурсозатратно реализован вывод только видимой области. Прокрутка реализована посредством scrollbar получаем позицию ползунка и вычисляем диапазон видимой области.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72

procedure Tform1.ris(Sender: TObject; x1,y1,x2,y2,xs,ys:integer); //получаем картинку по ширине имейджа var polosa,ykt,xp,yp,sdx,sdy,y,x,kvadrat,xr1,yr1,xr2,yr2:integer; rx1,rx2,ry1,ry2,nx1,nx2,ny1,ny2:integer; JpegIm: TJpegImage; bm_razova,bm_razova1:tbitmap; begin   polosa:=round(2020*combobox1.Tag/100);  //в комбобоксе текущий масштаб и соответственно имя папки где лежат карты (10,20. //..90,100)     bm_razova := TBitmap.Create;   bm_razova.PixelFormat:=pf24Bit;   bm_razova.Width:=image1.Width;   bm_razova.Height:=image1.Height;       ykt:=0;   xp:=x1;   yp:=y1;   sdx:=0;   sdy:=0;     for y:=((y1 div polosa)+1) to ((y2 div polosa)+1) do   begin     xp:=x1;     sdx:=0;     for x:=((x1 div polosa)+1) to ((x2 div polosa)+1) do     begin       kvadrat:=N_kvadrat(x,y);//получаем номер квадрата который попадает в видимый диапазон       xr1:=xp;       yr1:=yp;       if x2<mass[kvadrat].xk2 then xr2:=x2       else xr2:=mass[kvadrat].xk2;       if y2<mass[kvadrat].yk2 then yr2:=y2       else yr2:=mass[kvadrat].yk2;       xp:=xr2;       ykt:=yr2;       karta.Close;       karta.SQL.Clear;       karta.SQL.Add('select * from karta where x=:x and y=:y');       karta.ParamByName('x').Asinteger:=x;       karta.ParamByName('y').Asinteger:=y;       karta.Open;       bm_razova1 := TBitMap.Create;       JpegIm := TJpegImage.Create;       JpegIm.LoadFromFile(ini.readstring('base','karta','no')+'/'+inttostr(combobox1.tag)+'/'+karta.Fields[3].asstring+'.jpg');       bm_razova1.Assign(JpegIm);       JpegIm.Destroy;       if xr1>=polosa then xr1:=xr1-mass[kvadrat].xk1;       if yr1>=polosa then yr1:=yr1-mass[kvadrat].yk1;       if xr2>=polosa then xr2:=xr2-mass[kvadrat].xk1;       if yr2>=polosa then yr2:=yr2-mass[kvadrat].yk1;       // область вырезания       rx1:=xr1;       ry1:=yr1;       rx2:=xr2-xr1;       ry2:=yr2-yr1;         // область в которую помещаем       nx1:=sdx;       ny1:=sdy;       nx2:=xr2-xr1;       ny2:=yr2-yr1;         bm_razova.Canvas.CopyRect(bounds(nx1,ny1,nx2,ny2),bm_razova1.Canvas,bounds(rx1,ry1,rx2,ry2));       bm_razova1.Free;       sdx:=sdx+(xr2-xr1);     end;     yp:=ykt;     sdy:=sdy+(yr2-yr1);   end;   image1.Picture.Assign(bm_razova);   bm_razova.Free; end;

Админ: Пользуемся тегами для оформления кода!

Все работает, но не удовлетворяет скорость отображения и прокрутки карты.

Вопрос: В каком направлении копать для оптимизации, или может стоит выбрать совсем другой подход?