Convert forms resources from Delphi to Lazarus format

[d2df-editor.git] / src / editor / f_main.lfm

diff --git a/src/editor/f_main.lfm b/src/editor/f_main.lfm
index d35946313f732d2b62f4064ef5577e59885b3f97..c51c295fb089769750f5b0966f5231032e4b88db 100644 (file)
--- a/src/editor/f_main.lfm
+++ b/src/editor/f_main.lfm
@@ -21,7 +21,7 @@ object MainForm: TMainForm
   OnKeyDown = FormKeyDown
   OnKeyUp = FormKeyUp
   OnResize = FormResize
-  LCLVersion = '1.6.0.4'
+  LCLVersion = '1.6.4.0'
   object Splitter1: TSplitter
     Left = 518
     Height = 289
@@ -64,12 +64,13 @@ object MainForm: TMainForm
       Constraints.MinWidth = 145
       DefaultColWidth = 60
       DefaultRowHeight = 16
+      FixedCols = 0
       Font.Color = clWindowText
       Font.Height = -12
       Font.Name = 'MS Sans Serif'
       ParentFont = False
       RowCount = 2
-      ScrollBars = ssVertical
+      ScrollBars = ssAutoVertical
       TabOrder = 0
       TitleFont.Color = clWindowText
       TitleFont.Height = -12
@@ -89,8 +90,8 @@ object MainForm: TMainForm
       )
       OnGetPickList = vleObjectPropertyGetPickList
       ColWidths = (
-        62
-        62
+        70
+        71
       )
     end
     object PanelPropApply: TPanel
@@ -247,6 +248,7 @@ object MainForm: TMainForm
           Constraints.MinHeight = 70
           ItemHeight = 13
           OnClick = lbTextureListClick
+          OnDrawItem = lbTextureListDrawItem
           Style = lbOwnerDrawFixed
           TabOrder = 0
         end
@@ -294,9 +296,9 @@ object MainForm: TMainForm
           end
           object cbPreview: TCheckBox
             Left = 35
-            Height = 19
+            Height = 17
             Top = 54
-            Width = 165
+            Width = 163
             Caption = 'Предварительный просмотр'
             TabOrder = 0
           end
@@ -585,7 +587,7 @@ object MainForm: TMainForm
             'Выстрел'
             'Монстров нет'
           )
-          ItemHeight = 17
+          ItemHeight = 15
           TabOrder = 1
           Data = {
             06000000000000000000
@@ -605,7 +607,7 @@ object MainForm: TMainForm
             'Красная команда'
             'Синяя команда'
           )
-          ItemHeight = 17
+          ItemHeight = 15
           TabOrder = 2
           Data = {
             050000000000000000