2
0
Эх сурвалжийг харах

UPD: Update LFM and LRT files with Lazarus 1.0.

cobines 13 жил өмнө
parent
commit
c697a01d2c

+ 1 - 0
src/dmcommondata.lfm

@@ -1,4 +1,5 @@
 object dmComData: TdmComData
+  OldCreateOrder = False
   Height = 300
   HorizontalOffset = 294
   VerticalOffset = 172

+ 1 - 0
src/dmhelpmanager.lfm

@@ -1,5 +1,6 @@
 object dmHelpManager: TdmHelpManager
   OnCreate = DataModuleCreate
+  OldCreateOrder = False
   Height = 300
   HorizontalOffset = 369
   VerticalOffset = 200

+ 1 - 1
src/fAbout.lfm

@@ -11,7 +11,7 @@ object frmAbout: TfrmAbout
   OnKeyDown = FormKeyDown
   OnShow = frmAboutShow
   Position = poScreenCenter
-  LCLVersion = '0.9.31'
+  LCLVersion = '1.0.1.3'
   object pnlText: TPanel
     AnchorSideLeft.Control = pnlInfo
     AnchorSideLeft.Side = asrBottom

+ 1 - 1
src/fFileOpDlg.lfm

@@ -10,7 +10,7 @@ object frmFileOp: TfrmFileOp
   OnCreate = FormCreate
   Position = poScreenCenter
   ShowInTaskBar = stAlways
-  LCLVersion = '0.9.31'
+  LCLVersion = '1.0.1.3'
   object pnlClient: TPanel
     Left = 3
     Height = 167

+ 1 - 1
src/fFindDlg.lfm

@@ -18,7 +18,7 @@ object frmFindDlg: TfrmFindDlg
   Position = poScreenCenter
   SessionProperties = 'Height;Left;Top;Width;WindowState'
   ShowInTaskBar = stAlways
-  LCLVersion = '0.9.30.4'
+  LCLVersion = '1.0.1.3'
   object pnlFindFile: TPanel
     Left = 3
     Height = 391

+ 1 - 1
src/fFindDlg.lrt

@@ -1,4 +1,4 @@
-TFRMFINDDLG.FRMFINDDLG.CAPTION=Find files
+TFRMFINDDLG.CAPTION=Find files
 TFRMFINDDLG.TSSTANDARD.CAPTION=Standard
 TFRMFINDDLG.GBDIRECTORIES.CAPTION=Directories
 TFRMFINDDLG.LBLFINDPATHSTART.CAPTION=Start in &directory

+ 2 - 3
src/fMsg.lfm

@@ -1,4 +1,4 @@
-object frmMsg: TfrmMsg
+inherited frmMsg: TfrmMsg
   Left = 270
   Height = 254
   Top = 149
@@ -12,8 +12,7 @@ object frmMsg: TfrmMsg
   OnKeyPress = FormKeyPress
   OnKeyUp = FormKeyUp
   OnShow = frmMsgShow
-  LCLVersion = '0.9.30'
-  object lblMsg: TLabel
+  object lblMsg: TLabel[0]
     Left = 32
     Height = 1
     Top = 16

+ 1 - 1
src/fchecksumverify.lfm

@@ -11,7 +11,7 @@ object frmCheckSumVerify: TfrmCheckSumVerify
   OnClose = FormClose
   Position = poScreenCenter
   ShowInTaskBar = stAlways
-  LCLVersion = '0.9.29'
+  LCLVersion = '1.0.1.3'
   object mmCheckSumVerify: TMemo
     AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = Owner

+ 1 - 1
src/fcolumnssetconf.lfm

@@ -12,7 +12,7 @@ object fColumnsSetConf: TfColumnsSetConf
   OnShow = FormShow
   Position = poScreenCenter
   SessionProperties = 'Height;Width;WindowState;Left;Top'
-  LCLVersion = '0.9.29'
+  LCLVersion = '1.0.1.3'
   object Panel1: TPanel
     Left = 0
     Height = 36

+ 1 - 1
src/fdiffer.lfm

@@ -14,7 +14,7 @@ object frmDiffer: TfrmDiffer
   SessionProperties = 'actAutoCompare.Checked;actIgnoreCase.Checked;actIgnoreWhiteSpace.Checked;actKeepScrolling.Checked;actLineDifferences.Checked;actPaintBackground.Checked;Height;Left;Top;Width;WindowState'
   ShowHint = True
   ShowInTaskBar = stAlways
-  LCLVersion = '0.9.29'
+  LCLVersion = '1.0.1.3'
   object ToolBar: TToolBar
     Left = 0
     Height = 22

+ 46 - 147
src/feditor.lfm

@@ -1,4 +1,4 @@
-object frmEditor: TfrmEditor
+inherited frmEditor: TfrmEditor
   Left = 100
   Height = 480
   Top = 100
@@ -54,8 +54,7 @@ object frmEditor: TfrmEditor
   Position = poDefault
   SessionProperties = 'Height;Width;WindowState;Left;Top'
   ShowInTaskBar = stAlways
-  LCLVersion = '0.9.30.2'
-  object StatusBar: TStatusBar
+  object StatusBar: TStatusBar[0]
     Left = 0
     Height = 23
     Top = 437
@@ -75,7 +74,7 @@ object frmEditor: TfrmEditor
       end>
     SimplePanel = False
   end
-  inline Editor: TSynEdit
+  inline Editor: TSynEdit[1]
     Left = 0
     Height = 411
     Top = 26
@@ -94,53 +93,27 @@ object frmEditor: TfrmEditor
     OnKeyDown = EditorKeyDown
     OnKeyPress = EditorKeyPress
     BookMarkOptions.Xoffset = 48
-    Gutter.Width = 61
+    Gutter.Width = 53
     Gutter.MouseActions = <    
       item
-        Shift = []
-        ShiftMask = []
-        Button = mbLeft
         ClickCount = ccAny
         ClickDir = cdDown
-        Command = 13
-        MoveCaret = False
-        Option = 0
-        Priority = 0
+        Command = emcOnMainGutterClick
       end    
       item
-        Shift = []
-        ShiftMask = []
         Button = mbRight
-        ClickCount = ccSingle
-        ClickDir = cdUp
-        Command = 12
-        MoveCaret = False
-        Option = 0
-        Priority = 0
+        Command = emcContextMenu
       end>
     RightGutter.Width = 0
     RightGutter.MouseActions = <    
       item
-        Shift = []
-        ShiftMask = []
-        Button = mbLeft
         ClickCount = ccAny
         ClickDir = cdDown
-        Command = 13
-        MoveCaret = False
-        Option = 0
-        Priority = 0
+        Command = emcOnMainGutterClick
       end    
       item
-        Shift = []
-        ShiftMask = []
         Button = mbRight
-        ClickCount = ccSingle
-        ClickDir = cdUp
-        Command = 12
-        MoveCaret = False
-        Option = 0
-        Priority = 0
+        Command = emcContextMenu
       end>
     Keystrokes = <    
       item
@@ -465,137 +438,94 @@ object frmEditor: TfrmEditor
       end>
     MouseActions = <    
       item
-        Shift = []
         ShiftMask = [ssShift, ssAlt]
-        Button = mbLeft
-        ClickCount = ccSingle
         ClickDir = cdDown
-        Command = 1
+        Command = emcStartSelections
         MoveCaret = True
-        Option = 0
-        Priority = 0
       end    
       item
         Shift = [ssShift]
         ShiftMask = [ssShift, ssAlt]
-        Button = mbLeft
-        ClickCount = ccSingle
         ClickDir = cdDown
-        Command = 1
+        Command = emcStartSelections
         MoveCaret = True
         Option = 1
-        Priority = 0
       end    
       item
         Shift = [ssAlt]
         ShiftMask = [ssShift, ssAlt]
-        Button = mbLeft
-        ClickCount = ccSingle
         ClickDir = cdDown
-        Command = 3
+        Command = emcStartColumnSelections
         MoveCaret = True
-        Option = 0
-        Priority = 0
       end    
       item
         Shift = [ssShift, ssAlt]
         ShiftMask = [ssShift, ssAlt]
-        Button = mbLeft
-        ClickCount = ccSingle
         ClickDir = cdDown
-        Command = 3
+        Command = emcStartColumnSelections
         MoveCaret = True
         Option = 1
-        Priority = 0
       end    
       item
-        Shift = []
-        ShiftMask = []
         Button = mbRight
-        ClickCount = ccSingle
-        ClickDir = cdUp
-        Command = 12
-        MoveCaret = False
-        Option = 0
-        Priority = 0
+        Command = emcContextMenu
       end    
       item
-        Shift = []
-        ShiftMask = []
-        Button = mbLeft
         ClickCount = ccDouble
         ClickDir = cdDown
-        Command = 6
+        Command = emcSelectWord
         MoveCaret = True
-        Option = 0
-        Priority = 0
       end    
       item
-        Shift = []
-        ShiftMask = []
-        Button = mbLeft
         ClickCount = ccTriple
         ClickDir = cdDown
-        Command = 7
+        Command = emcSelectLine
         MoveCaret = True
-        Option = 0
-        Priority = 0
       end    
       item
-        Shift = []
-        ShiftMask = []
-        Button = mbLeft
         ClickCount = ccQuad
         ClickDir = cdDown
-        Command = 8
+        Command = emcSelectPara
         MoveCaret = True
-        Option = 0
-        Priority = 0
       end    
       item
-        Shift = []
-        ShiftMask = []
         Button = mbMiddle
-        ClickCount = ccSingle
         ClickDir = cdDown
-        Command = 10
+        Command = emcPasteSelection
         MoveCaret = True
-        Option = 0
-        Priority = 0
       end    
       item
         Shift = [ssCtrl]
         ShiftMask = [ssShift, ssAlt, ssCtrl]
-        Button = mbLeft
-        ClickCount = ccSingle
-        ClickDir = cdUp
-        Command = 11
-        MoveCaret = False
-        Option = 0
-        Priority = 0
+        Command = emcMouseLink
       end>
     MouseSelActions = <    
       item
-        Shift = []
-        ShiftMask = []
-        Button = mbLeft
-        ClickCount = ccSingle
         ClickDir = cdDown
-        Command = 9
-        MoveCaret = False
-        Option = 0
-        Priority = 0
+        Command = emcStartDragMove
       end>
+    VisibleSpecialChars = [vscSpace, vscTabAtLast]
     BracketHighlightStyle = sbhsBoth
+    BracketMatchColor.Background = clNone
+    BracketMatchColor.Foreground = clNone
+    BracketMatchColor.Style = [fsBold]
+    FoldedCodeColor.Background = clNone
+    FoldedCodeColor.Foreground = clGray
+    FoldedCodeColor.FrameColor = clGray
+    MouseLinkColor.Background = clNone
+    MouseLinkColor.Foreground = clBlue
+    LineHighlightColor.Background = clNone
+    LineHighlightColor.Foreground = clNone
     OnChange = EditorChange
     OnReplaceText = EditorReplaceText
     OnStatusChange = EditorStatusChange
     inline SynLeftGutterPartList1: TSynGutterPartList
       object SynGutterMarks1: TSynGutterMarks
         Width = 24
+        MouseActions = <>
       end
       object SynGutterLineNumber1: TSynGutterLineNumber
-        Width = 21
+        Width = 13
         MouseActions = <>
         MarkupInfo.Background = clBtnFace
         MarkupInfo.Foreground = clNone
@@ -606,35 +536,26 @@ object frmEditor: TfrmEditor
       end
       object SynGutterChanges1: TSynGutterChanges
         Width = 4
+        MouseActions = <>
         ModifiedColor = 59900
         SavedColor = clGreen
       end
       object SynGutterSeparator1: TSynGutterSeparator
         Width = 2
+        MouseActions = <>
       end
       object SynGutterCodeFolding1: TSynGutterCodeFolding
         MouseActions = <        
           item
-            Shift = []
-            ShiftMask = []
             Button = mbRight
-            ClickCount = ccSingle
-            ClickDir = cdUp
-            Command = 16
-            MoveCaret = False
-            Option = 0
-            Priority = 0
+            Command = emcCodeFoldContextMenu
           end        
           item
-            Shift = []
             ShiftMask = [ssShift]
             Button = mbMiddle
             ClickCount = ccAny
             ClickDir = cdDown
-            Command = 14
-            MoveCaret = False
-            Option = 0
-            Priority = 0
+            Command = emcCodeFoldCollaps
           end        
           item
             Shift = [ssShift]
@@ -642,63 +563,41 @@ object frmEditor: TfrmEditor
             Button = mbMiddle
             ClickCount = ccAny
             ClickDir = cdDown
-            Command = 14
-            MoveCaret = False
+            Command = emcCodeFoldCollaps
             Option = 1
-            Priority = 0
           end        
           item
-            Shift = []
-            ShiftMask = []
-            Button = mbLeft
             ClickCount = ccAny
             ClickDir = cdDown
-            Command = 0
-            MoveCaret = False
-            Option = 0
-            Priority = 0
+            Command = emcNone
           end>
         MarkupInfo.Background = clNone
         MarkupInfo.Foreground = clGray
         MouseActionsExpanded = <        
           item
-            Shift = []
-            ShiftMask = []
-            Button = mbLeft
             ClickCount = ccAny
             ClickDir = cdDown
-            Command = 14
-            MoveCaret = False
-            Option = 0
-            Priority = 0
+            Command = emcCodeFoldCollaps
           end>
         MouseActionsCollapsed = <        
           item
             Shift = [ssCtrl]
             ShiftMask = [ssCtrl]
-            Button = mbLeft
             ClickCount = ccAny
             ClickDir = cdDown
-            Command = 15
-            MoveCaret = False
-            Option = 0
-            Priority = 0
+            Command = emcCodeFoldExpand
           end        
           item
-            Shift = []
             ShiftMask = [ssCtrl]
-            Button = mbLeft
             ClickCount = ccAny
             ClickDir = cdDown
-            Command = 15
-            MoveCaret = False
+            Command = emcCodeFoldExpand
             Option = 1
-            Priority = 0
           end>
       end
     end
   end
-  object tbToolBar: TToolBar
+  object tbToolBar: TToolBar[2]
     Left = 0
     Height = 26
     Top = 0
@@ -776,7 +675,7 @@ object frmEditor: TfrmEditor
       Action = actAbout
     end
   end
-  object MainMenu1: TMainMenu
+  object MainMenu1: TMainMenu[3]
     Images = ilImageList
     left = 48
     top = 32
@@ -1477,7 +1376,7 @@ object frmEditor: TfrmEditor
       end
     end
   end
-  object ActListEdit: TActionList
+  object ActListEdit: TActionList[4]
     Images = ilImageList
     left = 96
     top = 32
@@ -1669,7 +1568,7 @@ object frmEditor: TfrmEditor
       OnExecute = actEditLineEndCrLfExecute
     end
   end
-  object pmContextMenu: TPopupMenu
+  object pmContextMenu: TPopupMenu[5]
     Images = ilImageList
     left = 144
     top = 32
@@ -1920,7 +1819,7 @@ object frmEditor: TfrmEditor
       OnClick = actEditSelectAllExecute
     end
   end
-  object ilImageList: TImageList
+  object ilImageList: TImageList[6]
     left = 192
     top = 32
     Bitmap = {

+ 1 - 1
src/feditor.lrt

@@ -1,4 +1,4 @@
-TFRMEDITOR.FRMEDITOR.CAPTION=Editor
+TFRMEDITOR.CAPTION=Editor
 TFRMEDITOR.MIFILE.CAPTION=&File
 TFRMEDITOR.MIDIV.CAPTION=-
 TFRMEDITOR.N1.CAPTION=-

+ 1 - 1
src/ffileexecuteyourself.lfm

@@ -13,7 +13,7 @@ object frmFileExecuteYourSelf: TfrmFileExecuteYourSelf
   ClientWidth = 320
   OnClose = FormClose
   ShowInTaskBar = stAlways
-  LCLVersion = '0.9.29'
+  LCLVersion = '1.0.1.3'
   object lblPrompt: TLabel
     AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = Owner

+ 1 - 1
src/fhackform.lfm

@@ -5,5 +5,5 @@ object frmHackForm: TfrmHackForm
   Width = 400
   Position = poScreenCenter
   ShowInTaskBar = stNever
-  LCLVersion = '0.9.27'
+  LCLVersion = '1.0.1.3'
 end

+ 15 - 1
src/fmain.lfm

@@ -20,7 +20,7 @@ object frmMain: TfrmMain
   SessionProperties = 'nbConsole.Height;seLogWindow.Height'
   ShowHint = True
   ShowInTaskBar = stAlways
-  LCLVersion = '0.9.30.4'
+  LCLVersion = '1.0.1.3'
   Visible = True
   object MainToolBar: TKASToolBar
     AnchorSideTop.Control = Owner
@@ -529,7 +529,10 @@ object frmMain: TfrmMain
     TabOrder = 4
     TabStop = False
     Visible = False
+    Gutter.Width = 0
     Gutter.MouseActions = <>
+    RightGutter.Width = 0
+    RightGutter.MouseActions = <>
     Keystrokes = <    
       item
         Command = ecUp
@@ -853,10 +856,21 @@ object frmMain: TfrmMain
       end>
     MouseActions = <>
     MouseSelActions = <>
+    VisibleSpecialChars = [vscSpace, vscTabAtLast]
     ReadOnly = True
     RightEdge = 0
     ScrollBars = ssVertical
     BracketHighlightStyle = sbhsBoth
+    BracketMatchColor.Background = clNone
+    BracketMatchColor.Foreground = clNone
+    BracketMatchColor.Style = [fsBold]
+    FoldedCodeColor.Background = clNone
+    FoldedCodeColor.Foreground = clGray
+    FoldedCodeColor.FrameColor = clGray
+    MouseLinkColor.Background = clNone
+    MouseLinkColor.Foreground = clBlue
+    LineHighlightColor.Background = clNone
+    LineHighlightColor.Foreground = clNone
     OnSpecialLineColors = seLogWindowSpecialLineColors
     inline SynLeftGutterPartList1: TSynGutterPartList
     end

+ 4 - 4
src/fmodview.lfm

@@ -1,4 +1,4 @@
-object frmModView: TfrmModView
+inherited frmModView: TfrmModView
   Left = 395
   Height = 319
   Top = 104
@@ -14,7 +14,7 @@ object frmModView: TfrmModView
   OnKeyPress = FormKeyPress
   OnShow = FormShow
   Position = poOwnerFormCenter
-  object bplButtons: TButtonPanel
+  object bplButtons: TButtonPanel[0]
     Left = 10
     Height = 34
     Top = 279
@@ -32,7 +32,7 @@ object frmModView: TfrmModView
     TabOrder = 0
     ShowButtons = [pbOK, pbCancel]
   end
-  object pnlMain: TPanel
+  object pnlMain: TPanel[1]
     Left = 10
     Height = 267
     Top = 6
@@ -515,7 +515,7 @@ object frmModView: TfrmModView
       end
     end
   end
-  object sddCopyMoveFile: TSelectDirectoryDialog
+  object sddCopyMoveFile: TSelectDirectoryDialog[2]
     left = 288
     top = 40
   end

+ 1 - 1
src/foptions.lfm

@@ -13,7 +13,7 @@ object frmOptions: TfrmOptions
   Position = poScreenCenter
   SessionProperties = 'Height;Width;WindowState;Left;Top'
   ShowInTaskBar = stAlways
-  LCLVersion = '0.9.30'
+  LCLVersion = '1.0.1.3'
   object tvTreeView: TTreeView
     Left = 0
     Height = 160

+ 12 - 0
src/frames/foptionseditorcolors.lfm

@@ -75,7 +75,9 @@ inherited frmOptionsEditorColors: TfrmOptionsEditorColors
       TabStop = False
       BookMarkOptions.Xoffset = 30
       Gutter.Width = 59
+      Gutter.MouseActions = <>
       RightGutter.Width = 0
+      RightGutter.MouseActions = <>
       Keystrokes = <      
         item
           Command = ecUp
@@ -397,9 +399,12 @@ inherited frmOptionsEditorColors: TfrmOptionsEditorColors
           Command = ecMatchBracket
           ShortCut = 24642
         end>
+      MouseActions = <>
+      MouseSelActions = <>
       Lines.Strings = (
         'ColorPreview'
       )
+      VisibleSpecialChars = [vscSpace, vscTabAtLast]
       BracketHighlightStyle = sbhsBoth
       BracketMatchColor.Background = clNone
       BracketMatchColor.Foreground = clNone
@@ -414,9 +419,11 @@ inherited frmOptionsEditorColors: TfrmOptionsEditorColors
       inline TSynGutterPartList
         object TSynGutterMarks
           Width = 24
+          MouseActions = <>
         end
         object TSynGutterLineNumber
           Width = 19
+          MouseActions = <>
           MarkupInfo.Background = clBtnFace
           MarkupInfo.Foreground = clNone
           DigitCount = 2
@@ -426,15 +433,20 @@ inherited frmOptionsEditorColors: TfrmOptionsEditorColors
         end
         object TSynGutterChanges
           Width = 4
+          MouseActions = <>
           ModifiedColor = 59900
           SavedColor = clGreen
         end
         object TSynGutterSeparator
           Width = 2
+          MouseActions = <>
         end
         object TSynGutterCodeFolding
+          MouseActions = <>
           MarkupInfo.Background = clNone
           MarkupInfo.Foreground = clGray
+          MouseActionsExpanded = <>
+          MouseActionsCollapsed = <>
         end
       end
     end

+ 1 - 0
src/frames/fquicksearch.lfm

@@ -6,6 +6,7 @@ object frmQuickSearch: TfrmQuickSearch
   AutoSize = True
   ClientHeight = 43
   ClientWidth = 436
+  LCLVersion = '1.0.1.3'
   OnExit = FrameExit
   TabOrder = 0
   DesignLeft = 134

+ 12 - 13
src/fviewer.lfm

@@ -1,4 +1,4 @@
-object frmViewer: TfrmViewer
+inherited frmViewer: TfrmViewer
   Left = 292
   Height = 480
   Top = 46
@@ -59,8 +59,7 @@ object frmViewer: TfrmViewer
   Position = poDefault
   SessionProperties = 'Height;Width;Left;Top;WindowState'
   ShowInTaskBar = stAlways
-  LCLVersion = '0.9.30.3'
-  object pnlLister: TPanel
+  object pnlLister: TPanel[0]
     Left = 179
     Height = 437
     Top = 0
@@ -71,7 +70,7 @@ object frmViewer: TfrmViewer
     Visible = False
     OnResize = pnlListerResize
   end
-  object Status: TStatusBar
+  object Status: TStatusBar[1]
     Left = 0
     Height = 23
     Top = 437
@@ -94,7 +93,7 @@ object frmViewer: TfrmViewer
       end>
     SimplePanel = False
   end
-  object pnlText: TPanel
+  object pnlText: TPanel[2]
     Left = 179
     Height = 437
     Top = 0
@@ -118,7 +117,7 @@ object frmViewer: TfrmViewer
       Font.Color = clWindowText
     end
   end
-  object pnlImage: TPanel
+  object pnlImage: TPanel[3]
     Left = 179
     Height = 437
     Top = 0
@@ -1564,7 +1563,7 @@ object frmViewer: TfrmViewer
       end
     end
   end
-  object Splitter: TSplitter
+  object Splitter: TSplitter[4]
     Left = 170
     Height = 437
     Top = 0
@@ -1574,7 +1573,7 @@ object frmViewer: TfrmViewer
     OnChangeBounds = SplitterChangeBounds
     Visible = False
   end
-  object pnlPreview: TPanel
+  object pnlPreview: TPanel[5]
     Left = 0
     Height = 437
     Top = 0
@@ -2082,7 +2081,7 @@ object frmViewer: TfrmViewer
       )
     end
   end
-  object MainMenu: TMainMenu
+  object MainMenu: TMainMenu[6]
     ParentBidiMode = False
     left = 80
     top = 64
@@ -2274,7 +2273,7 @@ object frmViewer: TfrmViewer
       end
     end
   end
-  object pmEditMenu: TPopupMenu
+  object pmEditMenu: TPopupMenu[7]
     left = 152
     top = 64
     object pmiCopy: TMenuItem
@@ -2289,18 +2288,18 @@ object frmViewer: TfrmViewer
       OnClick = miSelectAllClick
     end
   end
-  object SavePictureDialog: TSavePictureDialog
+  object SavePictureDialog: TSavePictureDialog[8]
     left = 304
     top = 64
   end
-  object TimerViewer: TTimer
+  object TimerViewer: TTimer[9]
     Enabled = False
     Interval = 10
     OnTimer = TimerViewerTimer
     left = 224
     top = 64
   end
-  object actionList: TActionList
+  object actionList: TActionList[10]
     left = 376
     top = 64
     object actAbout: TAction

+ 1 - 1
src/fviewer.lrt

@@ -1,4 +1,4 @@
-TFRMVIEWER.FRMVIEWER.CAPTION=Viewer
+TFRMVIEWER.CAPTION=Viewer
 TFRMVIEWER.GBOXHIGHTLIGHT.CAPTION=Highlight
 TFRMVIEWER.LBLHIGHTLIGHT.CAPTION=0x0
 TFRMVIEWER.BTNCUTTUIMAGE.HINT=Crop