X-Git-Url: https://deadsoftware.ru/gitweb?p=d2df-editor.git;a=blobdiff_plain;f=src%2Feditor%2Ff_main.pas;h=58b6210233a22db2cce454729f3e84538e6c5190;hp=4d62e2ef6a0c04dfe7d373b0ac7b515dc997f174;hb=92dde387852a9724b2d8e9d189ed31023a697d8d;hpb=8cf7d78247066943043d0b95f4b35d45dfebab71

diff --git a/src/editor/f_main.pas b/src/editor/f_main.pas
index 4d62e2e..58b6210 100644
--- a/src/editor/f_main.pas
+++ b/src/editor/f_main.pas
@@ -3759,7 +3759,12 @@ begin
   if Button = mbMiddle then
     MouseMDown := False;
 
-  DrawRect := nil;
+  if DrawRect <> nil then
+  begin
+    Dispose(DrawRect);
+    DrawRect := nil;
+  end;
+
   ResizeType := RESIZETYPE_NONE;
   TextureID := 0;
 
@@ -4324,8 +4329,11 @@ begin
   end;
 
 // Клавиши мыши не зажаты:
-  if (not MouseRDown) and (not MouseLDown) then
+  if (not MouseRDown) and (not MouseLDown) and (DrawRect <> nil) then
+  begin
+    Dispose(DrawRect);
     DrawRect := nil;
+  end;
 
 // Строка состояния - координаты мыши:
   StatusBar.Panels[1].Text := Format('(%d:%d)',