перерисовка канвы

[Bayazet]

замахнулся (а вернее МЕНЯ замахнули) я на написание миниГИСа

возникла проблема:
на событие
procedure TMF.MainMapMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);

я беру координаты в пикселях и преобразую их в координаты, чтобы постоянно отображать координаты курсора.
однако в этот момент канва тухнет и ее надо перерисовывать каждый раз (после каждого перемещания!)
т.к. объектов на карте может быть досточно много, это вызовет неплохую нагрузку на ресурсы компьютера.

не подскажете, как можно обойти постоянную перерисовку канвы?

----
да, и еще один вопрос:
я не разобрался с форматированием FloatToStr.
как мне можно ограничить длину числа, скажем, 10 цифрами, а целую ее часть, скажем, 7?

[Kotofff]

А можно кусок кода ?
Или пример в архиве ...

[BOBAH13]

Раз объектов много, то GDI тут не поможет. Надо использовать DirectX или OpenGL. Но если уж очень хочется GDI то залог успеха этого дела, заключается в отрисовки всех частей, и потом при перерисовки не прорисовывать заново, то что уже было прорисовано и хранится в памяти, просто вызвать BitBlt ( или в таком духе, что надо ). Т.е. можете даже просто хранить в TBitmap, и рисовать так же в TBitmap а потом просто перекрывать образцом из памяти вашу канву. Это даст скорость прорисовки, качество но заберет больше ОЗУ.

p.s. видимо читать и думать люди не хотят (пост №4).

[Bayazet]

кусок кода? ну пожалуйста:

Type
  TMF = class(TForm)
.......
    CursorCoordX: TLabel;
    CursorCoordDelimiter: TLabel;
    CursorCoordY: TLabel;

procedure TMF.MainMapMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Pix.X := X;
  Pix.Y := Y;
  PixToCoord(Pix, Dot);
  MF.CursorCoordX.Caption := FloatToStr(Dot.X);
  MF.CursorCoordY.Caption := FloatToStr(Dot.Y);
  DrawMap;
end;

Dot - рекорд из двух даблов; Pix - тоже самое, но интежеры.
DrawMap - рисование карты (с предшествующей перегонкой координат в пиксели)

[Bayazet]

используя битмап у мен возникали проблемы с простейшим

Canvas.Draw(0,0, bmpMap)

компилятор говорил, что в ждал TGraphic, а нашел TBitMap

может я неправильно создаю битмапу?

  bmpMap.Create;
  bmpMap.Width := MF.MainMap.Width;
  bmpMap.Height := MF.MainMap.Height;

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

[BOBAH13]

bmpMap.Create;

- ну тут слов нет я вообще удивляюсь как после этой строчки у вас программа не вылетает с Accession valation Надо бы про ООП object pascal вам почитать. Верно должно быть так:

bmpMap := TBitmap.Create;

[Bayazet]

все равно пишет несоответствие типов TGraphic и TBitMap в Canvas.Draw(0,0,bmpMap);

может я недостаточно информации указываю при создании?

[BOBAH13]

Сообщение от Bayazet

все равно пишет несоответствие типов TGraphic и TBitMap в Canvas.Draw(0,0,bmpMap);

может я недостаточно информации указываю при создании?

код приведите, как у вас объявлена переменная bmpMap ? у нее класс TBitmap? Если да, то какой версией дельфи вы пользуитесь ?

[Bayazet]

var
  bmpMap : TBitMap;

........

  bmpMap := TBitMap.Create;
  bmpMap.Width := MF.MainMap.Width;
  bmpMap.Height := MF.MainMap.Height;

........

  Foi i := 0 to shps_count-1 do
    Case shapes[i].ShpID of
      PLineID : bmpMap.Canvas.Polyline(Points);
      PolyID : bmpMap.Canvas.Polygon(Points);
      RectID : bmpMap.Canvas.Rectangle(Points[0].X, Points[0].Y, Points[1].X, Points[1].Y);
      EllipseID : bmpMap.Canvas.Ellipse(Points[0].X, Points[0].Y, Points[1].X, Points[1].Y);
      LineID : bmpMap.Canvas.Polyline(Points);
    end;

.........

  MF.MainMap.Canvas.Draw(0,0, bmpMap);

MainMap типа TPaintBox
Delphi 7

[BOBAH13]

Ошибки нет. То что вам пишет.. приведите именно в той форме в которой вы ее видите. Без перевода и т.п.