X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Feditor%2Ff_main.lfm;h=344fefb0dac03850713cd2f0183a1e359ac9738e;hb=fe7bb30e30aa2c6d52bb6ad641b5f0ae10de329e;hp=ade3a7fc534c7949a6752a2e0096dca0e2879810;hpb=6fb9c23afad22a71679525dc44ea32675d73609f;p=d2df-editor.git

diff --git a/src/editor/f_main.lfm b/src/editor/f_main.lfm
index ade3a7f..344fefb 100644
--- a/src/editor/f_main.lfm
+++ b/src/editor/f_main.lfm
@@ -3,6 +3,7 @@ object MainForm: TMainForm
   Height = 480
   Top = 255
   Width = 672
+  AllowDropFiles = True
   Caption = '2'
   ClientHeight = 460
   ClientWidth = 672
@@ -18,6 +19,7 @@ object MainForm: TMainForm
   OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
   OnDestroy = FormDestroy
+  OnDropFiles = FormDropFiles
   OnKeyDown = FormKeyDown
   OnKeyUp = FormKeyUp
   OnResize = FormResize
@@ -63,13 +65,15 @@ object MainForm: TMainForm
       Top = 2
       Width = 145
       Align = alClient
+      AutoAdvance = aaNone
       Constraints.MinWidth = 145
       DefaultColWidth = 60
-      DefaultRowHeight = 16
-      FixedCols = 0
+      DefaultRowHeight = 20
+      Flat = True
       Font.Color = clWindowText
       Font.Height = -12
       Font.Name = 'MS Sans Serif'
+      MouseWheelOption = mwGrid
       ParentFont = False
       RowCount = 2
       ScrollBars = ssAutoVertical
@@ -83,6 +87,7 @@ object MainForm: TMainForm
       OnKeyDown = vleObjectPropertyKeyDown
       DisplayOptions = [doColumnTitles, doAutoColResize]
       DropDownRows = 11
+      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goEditing, goAlwaysShowEditor, goThumbTracking]
       Strings.Strings = (
         ''
       )
@@ -92,8 +97,8 @@ object MainForm: TMainForm
       )
       OnGetPickList = vleObjectPropertyGetPickList
       ColWidths = (
-        70
-        71
+        72
+        72
       )
     end
     object PanelPropApply: TPanel
@@ -1939,6 +1944,12 @@ object MainForm: TMainForm
       object miLine1: TMenuItem
         Caption = '-'
       end
+      object miReopenMap: TMenuItem
+        Caption = 'Открыть заново'
+        ImageIndex = 1
+        ShortCut = 116
+        OnClick = miReopenMapClick
+      end
       object miSaveMiniMap: TMenuItem
         Caption = 'Сохранить мини-карту'
         Bitmap.Data = {