ローカルルール表示を実装。(自動表示されません)

[gikonavigoeson/gikonavi.git] / Editor.dfm

diff --git a/Editor.dfm b/Editor.dfm
index 657de65..4aae0dd 100644 (file)
--- a/Editor.dfm
+++ b/Editor.dfm
@@ -1,8 +1,8 @@
 object EditorForm: TEditorForm
-  Left = 402
-  Top = 170
+  Left = 246
+  Top = 166
   Width = 640
-  Height = 400
+  Height = 449
   HorzScrollBar.Visible = False
   VertScrollBar.Visible = False
   AlphaBlendValue = 204
@@ -36,7 +36,7 @@ object EditorForm: TEditorForm
   TextHeight = 12
   object StatusBar: TStatusBar
     Left = 0
-    Top = 335
+    Top = 376
     Width = 632
     Height = 19
     Panels = <
@@ -56,11 +56,11 @@ object EditorForm: TEditorForm
     Left = 0
     Top = 30
     Width = 632
-    Height = 305
-    ActivePage = PreviewTab
+    Height = 346
+    ActivePage = EditorTab
     Align = alClient
     MultiLine = True
-    TabIndex = 1
+    TabIndex = 0
     TabOrder = 0
     OnChange = EditorPageChange
     object EditorTab: TTabSheet
@@ -69,7 +69,7 @@ object EditorForm: TEditorForm
         Left = 0
         Top = 60
         Width = 624
-        Height = 218
+        Height = 259
         Align = alClient
         ScrollBars = ssBoth
         TabOrder = 0
@@ -105,7 +105,7 @@ object EditorForm: TEditorForm
           Width = 149
           Height = 20
           DropDownCount = 20
-          ItemHeight = 0
+          ItemHeight = 12
           TabOrder = 0
         end
         object MailComboBox: TComboBox
@@ -114,7 +114,7 @@ object EditorForm: TEditorForm
           Width = 149
           Height = 20
           DropDownCount = 20
-          ItemHeight = 0
+          ItemHeight = 12
           TabOrder = 1
           OnChange = MailComboBoxChange
         end
@@ -168,18 +168,76 @@ object EditorForm: TEditorForm
         Left = 0
         Top = 0
         Width = 624
-        Height = 278
+        Height = 319
         Align = alClient
         TabOrder = 0
         OnStatusTextChange = BrowserStatusTextChange
         ControlData = {
-          4C0000007E400000BB1C00000000000000000000000000000000000000000000
+          4C0000007E400000F82000000000000000000000000000000000000000000000
           000000004C000000000000000000000001000000E0D057007335CF11AE690800
           2B2E126208000000000000004C0000000114020000000000C000000000000046
           8000000000000000000000000000000000000000000000000000000000000000
           00000000000000000100000000000000000000000000000000000000}
       end
     end
+    object BoardInformationTab: TTabSheet
+      Caption = #26495#24773#22577
+      ImageIndex = 2
+      object BoardInformationMemo: TMemo
+        Left = 0
+        Top = 0
+        Width = 624
+        Height = 319
+        Align = alClient
+        ReadOnly = True
+        ScrollBars = ssVertical
+        TabOrder = 0
+      end
+    end
+    object BoardtopTab: TTabSheet
+      Caption = #26495#12488#12483#12503
+      ImageIndex = 3
+      object TitlePictureBrowser: TWebBrowser
+        Left = 0
+        Top = 0
+        Width = 624
+        Height = 319
+        Align = alClient
+        TabOrder = 0
+        ControlData = {
+          4C0000007E400000F82000000000000000000000000000000000000000000000
+          000000004C000000000000000000000001000000E0D057007335CF11AE690800
+          2B2E126208000000000000004C0000000114020000000000C000000000000046
+          8000000000000000000000000000000000000000000000000000000000000000
+          00000000000000000100000000000000000000000000000000000000}
+      end
+    end
+    object RocalRuleTab: TTabSheet
+      Caption = #12525#12540#12459#12523#12523#12540#12523
+      ImageIndex = 4
+      object WebBrowser1: TWebBrowser
+        Left = 352
+        Top = 208
+        Width = 48
+        Height = 15
+        TabOrder = 0
+        ControlData = {
+          4C000000F60400008D0100000000000000000000000000000000000000000000
+          000000004C000000000000000000000001000000E0D057007335CF11AE690800
+          2B2E126208000000000000004C0000000114020000000000C000000000000046
+          8000000000000000000000000000000000000000000000000000000000000000
+          00000000000000000100000000000000000000000000000000000000}
+      end
+      object LocalEdit: TRichEdit
+        Left = 0
+        Top = 0
+        Width = 624
+        Height = 319
+        Align = alClient
+        ReadOnly = True
+        TabOrder = 1
+      end
+    end
   end
   object ToolBar: TToolBar
     Left = 0
@@ -299,12 +357,21 @@ object EditorForm: TEditorForm
       object PasteMenu: TMenuItem
         Action = PasteAction
       end
+      object QuotePasteMenuItem: TMenuItem
+        Action = QuotePasteAction
+      end
       object N2: TMenuItem
         Caption = '-'
       end
       object SelectAll1: TMenuItem
         Action = SelectAllAction
       end
+      object N5: TMenuItem
+        Caption = '-'
+      end
+      object N4: TMenuItem
+        Action = CalcCapasityAction
+      end
     end
     object Show1: TMenuItem
       Caption = #34920#31034'(&V)'
@@ -317,6 +384,18 @@ object EditorForm: TEditorForm
         AutoCheck = True
         GroupIndex = 1
       end
+      object BoardTop: TMenuItem
+        AutoCheck = True
+        Caption = #26495#12488#12483#12503
+        GroupIndex = 1
+        OnClick = BoardTopClick
+      end
+      object Rule: TMenuItem
+        AutoCheck = True
+        Caption = #12525#12540#12459#12523#12523#12540#12523
+        GroupIndex = 1
+        OnClick = RuleClick
+      end
       object N1: TMenuItem
         Caption = '-'
         GroupIndex = 1
@@ -326,6 +405,29 @@ object EditorForm: TEditorForm
         GroupIndex = 1
       end
     end
+    object C1: TMenuItem
+      Caption = #29305#27530#25991#23383#22793#25563'(&C)'
+      object SpaceTabnbsp1: TMenuItem
+        Action = SpaceToNBSPAction
+        AutoCheck = True
+      end
+      object amp1: TMenuItem
+        Action = AmpToCharRefAction
+        AutoCheck = True
+      end
+    end
+    object N3: TMenuItem
+      Caption = #26495#24773#22577
+      object SETTINGTXT2: TMenuItem
+        Action = GetSETTINGTXTAction
+      end
+      object HeadTXT1: TMenuItem
+        Action = GetHeadTXTAction
+      end
+      object OP1: TMenuItem
+        Action = GetTitlePictureAction
+      end
+    end
   end
   object ToolBarImageList: TImageList
     Left = 72
@@ -1524,6 +1626,54 @@ object EditorForm: TEditorForm
       OnExecute = CopyActionExecute
       OnUpdate = CopyActionUpdate
     end
+    object QuotePasteAction: TAction
+      Category = #32232#38598
+      Caption = #24341#29992#12375#12390#36028#12426#20184#12369'(&P)'
+      Hint = #24341#29992#12375#12390#36028#12426#20184#12369
+      ImageIndex = 5
+      ShortCut = 24662
+      OnExecute = QuotePasteActionExecute
+      OnUpdate = PasteActionUpdate
+    end
+    object SpaceToNBSPAction: TAction
+      Category = #29305#27530#25991#23383#22793#25563
+      AutoCheck = True
+      Caption = '&Space/Tab '#8594' &&nbsp;'
+      Hint = 'Space/Tab '#8594' &nbsp;'
+      OnExecute = SpaceToNBSPActionExecute
+    end
+    object AmpToCharRefAction: TAction
+      Category = #29305#27530#25991#23383#22793#25563
+      AutoCheck = True
+      Caption = '&& '#8594' &&&amp;'
+      Hint = '& '#8594' &amp;'
+      OnExecute = AmpToCharRefActionExecute
+    end
+    object GetSETTINGTXTAction: TAction
+      Category = #26495#24773#22577
+      Caption = 'SETTING.TXT'#21462#24471
+      Hint = 'SETTING.TXT'#21462#24471
+      OnExecute = GetSETTINGTXTActionExecute
+    end
+    object GetTitlePictureAction: TAction
+      Category = #26495#24773#22577
+      Caption = #26495#12488#12483#12503#30011#20687#21462#24471
+      Hint = #26495'TOP'#30011#20687#21462#24471
+      OnExecute = GetTitlePictureActionExecute
+      OnUpdate = GetTitlePictureActionUpdate
+    end
+    object GetHeadTXTAction: TAction
+      Category = #26495#24773#22577
+      Caption = #12525#12540#12459#12523#12523#12540#12523#12398#21462#24471
+      Hint = #12525#12540#12459#12523#12523#12540#12523#12398#21462#24471
+      OnExecute = GetHeadTXTActionExecute
+    end
+    object CalcCapasityAction: TAction
+      Category = #32232#38598
+      Caption = #23481#37327#12398#21462#24471
+      Hint = #23481#37327#12398#21462#24471
+      OnExecute = CalcCapasityActionExecute
+    end
   end
   object IdLogDebug: TIdLogDebug
     OnReceive = IdLogDebugReceive