・EditBody を TMemo から TRｃｈEdit に変更してみた

・コメントの修正

diff --git a/Editor.dfm b/Editor.dfm
index c71f6e7..9c69289 100644 (file)
--- a/Editor.dfm
+++ b/Editor.dfm
@@ -1,17 +1,17 @@
 object EditorForm: TEditorForm
-  Left = 829
-  Top = 181
+  Left = 847
+  Top = 169
   Width = 640
   Height = 400
   HorzScrollBar.Visible = False
   VertScrollBar.Visible = False
   AlphaBlendValue = 204
-  Caption = #12462#12467#12490#12499' '#12524#12473#12456#12487#12451#12479
+  Caption = '\83M\83R\83i\83r \83\8c\83X\83G\83f\83B\83^'
   Color = clBtnFace
   Font.Charset = SHIFTJIS_CHARSET
   Font.Color = clWindowText
   Font.Height = -12
-  Font.Name = #65325#65331' '#65328#12468#12471#12483#12463
+  Font.Name = '\82l\82r \82o\83S\83V\83b\83N'
   Font.Style = []
   Icon.Data = {
     0000010001001010100000000000280100001600000028000000100000002000
@@ -52,20 +52,10 @@ object EditorForm: TEditorForm
     Align = alClient
     MultiLine = True
     TabIndex = 0
-    TabOrder = 0
+    TabOrder = 2
     OnChange = EditorPageChange
     object EditorTab: TTabSheet
-      Caption = #32232#38598
-      object BodyEdit: TMemo
-        Left = 0
-        Top = 60
-        Width = 624
-        Height = 210
-        Align = alClient
-        ScrollBars = ssBoth
-        TabOrder = 0
-        WordWrap = False
-      end
+      Caption = '\95Ò\8fW'
       object NameBasePanel: TPanel
         Left = 0
         Top = 29
@@ -79,7 +69,7 @@ object EditorForm: TEditorForm
           Top = 8
           Width = 40
           Height = 12
-          Caption = #21517#21069'(&N)'
+          Caption = '\96¼\91O(&N)'
           FocusControl = NameComboBox
         end
         object MailLabel: TLabel
@@ -87,7 +77,7 @@ object EditorForm: TEditorForm
           Top = 8
           Width = 50
           Height = 12
-          Caption = #12513#12540#12523'(&M)'
+          Caption = '\83\81\81[\83\8b(&M)'
           FocusControl = MailComboBox
         end
         object NameComboBox: TComboBox
@@ -97,7 +87,7 @@ object EditorForm: TEditorForm
           Height = 20
           DropDownCount = 20
           ItemHeight = 12
-          TabOrder = 0
+          TabOrder = 1
         end
         object MailComboBox: TComboBox
           Left = 284
@@ -106,7 +96,7 @@ object EditorForm: TEditorForm
           Height = 20
           DropDownCount = 20
           ItemHeight = 12
-          TabOrder = 1
+          TabOrder = 2
           OnChange = MailComboBoxChange
         end
         object SageCheckBox: TCheckBox
@@ -115,7 +105,7 @@ object EditorForm: TEditorForm
           Width = 49
           Height = 17
           Caption = '&sage'
-          TabOrder = 2
+          TabOrder = 3
           OnClick = SageCheckBoxClick
         end
         object KotehanCheckBox: TCheckBox
@@ -123,8 +113,8 @@ object EditorForm: TEditorForm
           Top = 6
           Width = 105
           Height = 17
-          Caption = #12495#12531#12489#12523#20445#23384'(&H)'
-          TabOrder = 3
+          Caption = '\83n\83\93\83h\83\8b\95Û\91¶(&H)'
+          TabOrder = 0
         end
       end
       object TitlePanel: TPanel
@@ -140,7 +130,7 @@ object EditorForm: TEditorForm
           Top = 8
           Width = 54
           Height = 12
-          Caption = #12479#12452#12488#12523'(&T)'
+          Caption = '\83^\83C\83g\83\8b(&T)'
           FocusControl = TitleEdit
         end
         object TitleEdit: TEdit
@@ -151,20 +141,30 @@ object EditorForm: TEditorForm
           TabOrder = 0
         end
       end
+      object BodyEdit: TRichEdit
+        Left = 0
+        Top = 60
+        Width = 624
+        Height = 210
+        Align = alClient
+        ScrollBars = ssBoth
+        TabOrder = 0
+        WordWrap = False
+      end
     end
     object PreviewTab: TTabSheet
-      Caption = #12503#12524#12499#12517#12540
+      Caption = '\83v\83\8c\83r\83\85\81['
       ImageIndex = 1
       object Browser: TWebBrowser
         Left = 0
         Top = 0
-        Width = 705
-        Height = 308
+        Width = 624
+        Height = 270
         Align = alClient
         TabOrder = 0
         OnStatusTextChange = BrowserStatusTextChange
         ControlData = {
-          4C000000DD480000D51F00000000000000000000000000000000000000000000
+          4C0000007E400000E81B00000000000000000000000000000000000000000000
           000000004C000000000000000000000001000000E0D057007335CF11AE690800
           2B2E126208000000000000004C0000000114020000000000C000000000000046
           8000000000000000000000000000000000000000000000000000000000000000
@@ -184,7 +184,7 @@ object EditorForm: TEditorForm
     Flat = True
     HotImages = HotToobarImageList
     Images = ToolBarImageList
-    TabOrder = 2
+    TabOrder = 1
     Wrapable = False
     object SendToolButton: TToolButton
       Left = 0
@@ -259,7 +259,7 @@ object EditorForm: TEditorForm
     Left = 8
     Top = 124
     object FileMenu: TMenuItem
-      Caption = #12501#12449#12452#12523'(&F)'
+      Caption = '\83t\83@\83C\83\8b(&F)'
       object PostMessage: TMenuItem
         Action = SendAction
       end
@@ -274,7 +274,7 @@ object EditorForm: TEditorForm
       end
     end
     object EditMenu: TMenuItem
-      Caption = #32232#38598'(&E)'
+      Caption = '\95Ò\8fW(&E)'
       object UndoMenu: TMenuItem
         Action = UndoAction
       end
@@ -298,7 +298,7 @@ object EditorForm: TEditorForm
       end
     end
     object Show1: TMenuItem
-      Caption = #34920#31034'(&V)'
+      Caption = '\95\\8e¦(&V)'
       object A1: TMenuItem
         Action = TransAction
         AutoCheck = True
@@ -911,94 +911,94 @@ object EditorForm: TEditorForm
     Left = 40
     Top = 124
     object SendAction: TAction
-      Category = #12501#12449#12452#12523
-      Caption = #36865#20449'(&S)'
-      Hint = #36865#20449
+      Category = '\83t\83@\83C\83\8b'
+      Caption = '\91\97\90M(&S)'
+      Hint = '\91\97\90M'
       ImageIndex = 0
       OnExecute = SendActionExecute
       OnUpdate = SendActionUpdate
     end
     object SaveAction: TAction
-      Category = #12501#12449#12452#12523
-      Caption = #36865#20449#31665#12408#20445#23384'(&B)'
-      Hint = #36865#20449#31665#12408#20445#23384
+      Category = '\83t\83@\83C\83\8b'
+      Caption = '\91\97\90M\94 \82Ö\95Û\91¶(&B)'
+      Hint = '\91\97\90M\94 \82Ö\95Û\91¶'
       ImageIndex = 1
       OnExecute = SaveActionExecute
       OnUpdate = SaveActionUpdate
     end
     object CloseAction: TAction
-      Category = #12501#12449#12452#12523
-      Caption = #38281#12376#12427'(&C)'
-      Hint = #38281#12376#12427
+      Category = '\83t\83@\83C\83\8b'
+      Caption = '\95Â\82¶\82é(&C)'
+      Hint = '\95Â\82¶\82é'
       OnExecute = CloseActionExecute
       OnUpdate = CloseActionUpdate
     end
     object UndoAction: TAction
-      Category = #32232#38598
-      Caption = #20803#12395#25147#12377'(&U)'
-      Hint = #20803#12395#25147#12377
+      Category = '\95Ò\8fW'
+      Caption = '\8c³\82É\96ß\82·(&U)'
+      Hint = '\8c³\82É\96ß\82·'
       ImageIndex = 2
       ShortCut = 16474
       OnExecute = UndoActionExecute
       OnUpdate = UndoActionUpdate
     end
     object CutAction: TAction
-      Category = #32232#38598
-      Caption = #20999#12426#21462#12426'(&T)'
-      Hint = #20999#12426#21462#12426
+      Category = '\95Ò\8fW'
+      Caption = '\90Ø\82è\8eæ\82è(&T)'
+      Hint = '\90Ø\82è\8eæ\82è'
       ImageIndex = 3
       ShortCut = 16472
       OnExecute = CutActionExecute
       OnUpdate = CutActionUpdate
     end
     object CopyAction: TAction
-      Category = #32232#38598
-      Caption = #12467#12500#12540'(&C)'
-      Hint = #12467#12500#12540
+      Category = '\95Ò\8fW'
+      Caption = '\83R\83s\81[(&C)'
+      Hint = '\83R\83s\81['
       ImageIndex = 4
       ShortCut = 16451
       OnExecute = CopyActionExecute
       OnUpdate = CopyActionUpdate
     end
     object PasteAction: TAction
-      Category = #32232#38598
-      Caption = #36028#12426#20184#12369'(&P)'
-      Hint = #36028#12426#20184#12369
+      Category = '\95Ò\8fW'
+      Caption = '\93\\82è\95t\82¯(&P)'
+      Hint = '\93\\82è\95t\82¯'
       ImageIndex = 5
       ShortCut = 16470
       OnExecute = PasteActionExecute
       OnUpdate = PasteActionUpdate
     end
     object TopAction: TAction
-      Category = #34920#31034
+      Category = '\95\\8e¦'
       AutoCheck = True
-      Caption = #12454#12451#12531#12489#12454#26368#21069#38754'(&T)'
-      Hint = #12454#12451#12531#12489#12454#26368#21069#38754
+      Caption = '\83E\83B\83\93\83h\83E\8dÅ\91O\96Ê(&T)'
+      Hint = '\83E\83B\83\93\83h\83E\8dÅ\91O\96Ê'
       ImageIndex = 7
       ShortCut = 16468
       OnExecute = TopActionExecute
       OnUpdate = TopActionUpdate
     end
     object AbortAction: TAction
-      Category = #34920#31034
-      Caption = #20013#26029'(&S)'
-      Hint = #20013#26029
+      Category = '\95\\8e¦'
+      Caption = '\92\86\92f(&S)'
+      Hint = '\92\86\92f'
       ImageIndex = 8
       ShortCut = 27
       OnExecute = AbortActionExecute
     end
     object TransAction: TAction
-      Category = #34920#31034
+      Category = '\95\\8e¦'
       AutoCheck = True
-      Caption = #12454#12451#12531#12489#12454#36879#26126'(&A)'
+      Caption = '\83E\83B\83\93\83h\83E\93§\96¾(&A)'
       ImageIndex = 6
       OnExecute = TransActionExecute
       OnUpdate = TransActionUpdate
     end
     object SelectAllAction: TAction
-      Category = #32232#38598
-      Caption = #12377#12409#12390#36984#25246'(&A)'
-      Hint = #12377#12409#12390#36984#25246
+      Category = '\95Ò\8fW'
+      Caption = '\82·\82×\82Ä\91I\91ð(&A)'
+      Hint = '\82·\82×\82Ä\91I\91ð'
       ShortCut = 16449
       OnExecute = SelectAllActionExecute
     end

diff --git a/Editor.pas b/Editor.pas
index 7c4933f..ec1c2cf 100644 (file)
--- a/Editor.pas
+++ b/Editor.pas
@@ -41,7 +41,6 @@ type
                N02: TMenuItem;
                ToolBarImageList: TImageList;
                HotToobarImageList: TImageList;
-               BodyEdit: TMemo;
                NameBasePanel: TPanel;
                NameLabel: TLabel;
                MailLabel: TLabel;
@@ -87,6 +86,7 @@ type
                SelectAllAction: TAction;
                N2: TMenuItem;
                SelectAll1: TMenuItem;
+    BodyEdit: TRichEdit;
                procedure EditorPageChange(Sender: TObject);
                procedure FormCreate(Sender: TObject);
                procedure BrowserStatusTextChange(Sender: TObject;
@@ -262,7 +262,7 @@ begin
     //\8c»\8dÝ\82Ì\83E\83B\83\93\83h\83E\82Ì\88Ê\92u\82ð\95Û\91¶
     GikoSys.Setting.EditWindowTop := Top  + WINDOWMOVE_V;   // \8e\9f\82É\8aJ\82­\83E\83B\83\93\83h\83E\82Í
     GikoSys.Setting.EditWindowLeft := Left + WINDOWMOVE_H;  // \81@\81@\81@\89E\8eÎ\82ß\89º\82É\82¸\82ç\82·
-    //\83E\83B\83\93\83h\83E\82Ì\95\9d\82Æ\8d\82\82³\82ª\8f¬\82³\82·\82¬\82¢\82ê\82Î\8c³\82É\96ß\82·
+    //\83E\83B\83\93\83h\83E\82Ì\95\9d\82Æ\8d\82\82³\82ª\8f¬\82³\82·\82¬\82ê\82Î\8c³\82É\96ß\82·
        if GikoSys.Setting.EditWindowHeight < 144 then
                Height := 400;
        if GikoSys.Setting.EditWindowWidth < 144 then