X-Git-Url: http://deadsoftware.ru/gitweb?p=d2df-editor.git;a=blobdiff_plain;f=src%2Feditor%2Ff_main.pas;h=591b7e060f9405b89d54aadc8fc1791189bb3ca1;hp=3eb8946fc74c601364da66c9959130fd8b60f766;hb=caaa041f34124f7be0c8915e10f7849c4a030b1d;hpb=4c87d715a2cbbad04f3e785be4012422d675dca3 diff --git a/src/editor/f_main.pas b/src/editor/f_main.pas index 3eb8946..591b7e0 100644 --- a/src/editor/f_main.pas +++ b/src/editor/f_main.pas @@ -4373,6 +4373,8 @@ begin // Строка состояния - координаты мыши: StatusBar.Panels[1].Text := Format('(%d:%d)', [MousePos.X-MapOffset.X, MousePos.Y-MapOffset.Y]); + + RenderPanel.Invalidate; end; procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean); @@ -6993,12 +6995,14 @@ procedure TMainForm.sbVerticalScroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer); begin MapOffset.Y := -sbVertical.Position; + RenderPanel.Invalidate; end; procedure TMainForm.sbHorizontalScroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer); begin MapOffset.X := -sbHorizontal.Position; + RenderPanel.Invalidate; end; procedure TMainForm.miOpenWadMapClick(Sender: TObject);