表示の細かい設定

diff --git a/InputAssist.dfm b/InputAssist.dfm
index 7e64b8a..8c7235b 100644 (file)
--- a/InputAssist.dfm
+++ b/InputAssist.dfm
@@ -1,8 +1,8 @@
 object InputAssistForm: TInputAssistForm
-  Left = 328
-  Top = 115
-  Width = 494
-  Height = 453
+  Left = 386
+  Top = 153
+  Width = 400
+  Height = 450
   Caption = #20837#21147#12450#12471#12473#12488#35373#23450
   Color = clBtnFace
   Font.Charset = SHIFTJIS_CHARSET
@@ -18,76 +18,97 @@ object InputAssistForm: TInputAssistForm
   object Panel1: TPanel
     Left = 0
     Top = 0
-    Width = 486
+    Width = 392
     Height = 177
     Align = alTop
+    BevelOuter = bvLowered
     Caption = 'Panel1'
     TabOrder = 0
-    object GikoListView1: TGikoListView
-      Left = 8
-      Top = 8
-      Width = 361
-      Height = 161
-      Columns = <>
-      ReadOnly = True
-      RowSelect = True
-      SmallImages = ColumnImageList
+    object Panel5: TPanel
+      Left = 298
+      Top = 1
+      Width = 93
+      Height = 175
+      Align = alRight
       TabOrder = 0
-      ViewStyle = vsReport
-      OnColumnClick = GikoListView1ColumnClick
-      OnCompare = GikoListView1Compare
-      OnSelectItem = GikoListView1SelectItem
+      object CloseButton: TButton
+        Left = 10
+        Top = 136
+        Width = 75
+        Height = 25
+        Caption = #32066#20102
+        TabOrder = 0
+        OnClick = CloseButtonClick
+      end
+      object ApplyButton: TButton
+        Left = 10
+        Top = 72
+        Width = 75
+        Height = 25
+        Caption = #36969#29992
+        TabOrder = 1
+        OnClick = ApplyButtonClick
+      end
+      object DeleteButton: TButton
+        Left = 10
+        Top = 40
+        Width = 75
+        Height = 25
+        Caption = #21066#38500
+        TabOrder = 2
+        OnClick = DeleteButtonClick
+      end
+      object AddButton: TButton
+        Left = 10
+        Top = 8
+        Width = 75
+        Height = 25
+        Caption = #36861#21152
+        TabOrder = 3
+        OnClick = AddButtonClick
+      end
     end
-    object DeleteButton: TButton
-      Left = 382
-      Top = 40
-      Width = 75
-      Height = 25
-      Caption = #21066#38500
+    object Panel6: TPanel
+      Left = 1
+      Top = 1
+      Width = 297
+      Height = 175
+      Align = alClient
+      BevelOuter = bvNone
+      Caption = 'Panel6'
       TabOrder = 1
-      OnClick = DeleteButtonClick
-    end
-    object AddButton: TButton
-      Left = 382
-      Top = 8
-      Width = 75
-      Height = 25
-      Caption = #36861#21152
-      TabOrder = 2
-      OnClick = AddButtonClick
-    end
-    object ApplyButton: TButton
-      Left = 382
-      Top = 72
-      Width = 75
-      Height = 25
-      Caption = #36969#29992
-      TabOrder = 3
-      OnClick = ApplyButtonClick
-    end
-    object CloseButton: TButton
-      Left = 384
-      Top = 136
-      Width = 75
-      Height = 25
-      Caption = #32066#20102
-      TabOrder = 4
-      OnClick = CloseButtonClick
+      object GikoListView1: TGikoListView
+        Left = 0
+        Top = 0
+        Width = 297
+        Height = 175
+        Align = alClient
+        Columns = <>
+        ReadOnly = True
+        RowSelect = True
+        SmallImages = ColumnImageList
+        TabOrder = 0
+        ViewStyle = vsReport
+        OnColumnClick = GikoListView1ColumnClick
+        OnCompare = GikoListView1Compare
+        OnSelectItem = GikoListView1SelectItem
+      end
     end
   end
   object Panel2: TPanel
     Left = 0
     Top = 177
-    Width = 486
-    Height = 249
+    Width = 392
+    Height = 246
     Align = alClient
+    BevelOuter = bvNone
     Caption = 'Panel2'
     TabOrder = 1
     object Panel3: TPanel
-      Left = 1
-      Top = 1
-      Width = 484
-      Height = 49
+      Left = 0
+      Top = 0
+      Width = 392
+      Height = 48
       Align = alTop
       BevelOuter = bvNone
       TabOrder = 0
@@ -96,6 +117,7 @@ object InputAssistForm: TInputAssistForm
         Top = 21
         Width = 161
         Height = 20
+        Hint = #20837#21147#12395#20351#12358#12461#12540#21517
         EditLabel.Width = 36
         EditLabel.Height = 12
         EditLabel.Caption = #12461#12540#21517
@@ -104,10 +126,11 @@ object InputAssistForm: TInputAssistForm
         TabOrder = 0
       end
       object CategoryNameEdit: TLabeledEdit
-        Left = 184
+        Left = 176
         Top = 21
         Width = 121
         Height = 20
+        Hint = #20837#21147#12395#20351#12358#12459#12486#12468#12522#21517
         EditLabel.Width = 53
         EditLabel.Height = 12
         EditLabel.Caption = #12459#12486#12468#12522#21517
@@ -117,29 +140,39 @@ object InputAssistForm: TInputAssistForm
       end
     end
     object Panel4: TPanel
-      Left = 1
-      Top = 50
-      Width = 484
+      Left = 0
+      Top = 48
+      Width = 392
       Height = 198
       Align = alClient
       BevelOuter = bvNone
       TabOrder = 1
-      object TextMemo: TMemo
+      object GroupBox1: TGroupBox
         Left = 0
         Top = 0
-        Width = 484
+        Width = 392
         Height = 198
         Align = alClient
-        ScrollBars = ssBoth
+        Caption = #25407#20837#25991#23383#21015
         TabOrder = 0
+        object TextMemo: TMemo
+          Left = 2
+          Top = 14
+          Width = 388
+          Height = 182
+          Hint = #25407#20837#12377#12427#25991#23383#21015
+          Align = alClient
+          ScrollBars = ssBoth
+          TabOrder = 0
+        end
       end
     end
   end
   object ColumnImageList: TImageList
-    Left = 384
-    Top = 144
+    Left = 312
+    Top = 192
     Bitmap = {
-      494C010102000400040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
+      494C010102000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
       0000000000003600000028000000400000001000000001002000000000000010
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
@@ -275,11 +308,12 @@ object InputAssistForm: TInputAssistForm
       FFFFFFFF00000000FFFFFFFF00000000E01FFCFF00000000E79FF87F00000000
       F7BFFB7F00000000F33FF33F00000000FB7FF7BF00000000F87FE79F00000000
       FCFFE01F00000000FFFFFFFF00000000FFFFFFFF00000000FFFFFFFF00000000
-      FFFFFFFF00000000FFFFFFFF00000000}
+      FFFFFFFF00000000FFFFFFFF0000000000000000000000000000000000000000
+      000000000000}
   end
   object InputAssistFormActionList: TActionList
-    Left = 376
-    Top = 184
+    Left = 360
+    Top = 192
     object EditCut1: TEditCut
       Category = #32232#38598
       Caption = #20999#12426#21462#12426'(&T)'

diff --git a/InputAssist.pas b/InputAssist.pas
index d6da126..910adaf 100644 (file)
--- a/InputAssist.pas
+++ b/InputAssist.pas
@@ -12,16 +12,12 @@ type
     Panel1: TPanel;
     Panel2: TPanel;
     GikoListView1: TGikoListView;
-    DeleteButton: TButton;
-    AddButton: TButton;
-    ApplyButton: TButton;
     Panel3: TPanel;
     KeyNameEdit: TLabeledEdit;
     CategoryNameEdit: TLabeledEdit;
     Panel4: TPanel;
-    TextMemo: TMemo;
+       TextMemo: TMemo;
     ColumnImageList: TImageList;
-    CloseButton: TButton;
     InputAssistFormActionList: TActionList;
     EditCut1: TEditCut;
     EditCopy1: TEditCopy;
@@ -29,6 +25,13 @@ type
     EditSelectAll1: TEditSelectAll;
     EditUndo1: TEditUndo;
     EditDelete1: TEditDelete;
+    GroupBox1: TGroupBox;
+    Panel5: TPanel;
+    CloseButton: TButton;
+    ApplyButton: TButton;
+    DeleteButton: TButton;
+    AddButton: TButton;
+    Panel6: TPanel;
     procedure FormCreate(Sender: TObject);
     procedure GikoListView1SelectItem(Sender: TObject; Item: TListItem;
       Selected: Boolean);