CentrED

uses

  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Menus,

  ComCtrls, OpenGLContext, GL, GLU, UGameResources, ULandscape, ExtCtrls,

type

    end else

      Delete(enteredText, Length(enteredText), 1);

    if not TryStrToInt(enteredText, tileID) then

    begin

      //edSearchID.Font.Color := clRed;

procedure TfrmMain.vdtTilesHotChange(Sender: TBaseVirtualTree; OldNode,

  NewNode: PVirtualNode);

var

  tileInfo: PTileInfo;

begin

  {TODO : Fix mouse over on !Windows platforms}

  {$IFDEF Windows}

  locationInfo := Sender.GetNodeData(Node);

  Stream.Read(locationInfo^.X, SizeOf(Word));

  Stream.Read(locationInfo^.Y, SizeOf(Word));

  Stream.Read(stringLength, SizeOf(Integer));

  SetLength(s, stringLength);

  Stream.Read(s[1], stringLength);

  virtualTile: TVirtualTile;

  staticsFilter: TStaticFilter;

  begin

    drawX := (oglGameWindow.Width div 2) + (x - y) * 22;

    drawY := (oglGamewindow.Height div 2) + (x + y) * 22;

begin

  drawDistance := Trunc(Sqrt(oglGameWindow.Width * oglGameWindow.Width + oglGamewindow.Height * oglGamewindow.Height) / 44);

  if FX - drawDistance < 0 then lowOffX := -FX else lowOffX := -drawDistance;

  if FY - drawDistance < 0 then lowOffY := -FY else lowOffY := -drawDistance;

  if FX + drawDistance >= FLandscape.Width * 8 then highOffX := FLandscape.Width * 8 - FX - 1 else highOffX := drawDistance;

  if FY + drawDistance >= FLandscape.Height * 8 then highOffY := FLandscape.Height * 8 - FY - 1 else highOffY := drawDistance;

  FLandscape.PrepareBlocks((FX + lowOffX) div 8, (FY + lowOffY) div 8, (FX + highOffX) div 8 + 1, (FY + highOffY) div 8 + 1);