・コミットし忘れ

diff --git a/Encrypt/UBase64.pas b/Encrypt/UBase64.pas
index 443c047..4337a7c 100644 (file)
--- a/Encrypt/UBase64.pas
+++ b/Encrypt/UBase64.pas
@@ -104,12 +104,12 @@ begin
       1:
         begin
           outBuf[0] := outBuf[0] or (code shr 4);
-          outBuf[1] := code shl 4;
+          outBuf[1] := byte( code shl 4 );
         end;
       2:
         begin
           outBuf[1] := outBuf[1] or (code shr 2);
-          outBuf[2] := code shl 6;
+          outBuf[2] := byte( code shl 6 );
         end;
       3:
         begin

diff --git a/Giko.dfm b/Giko.dfm
index 4b7528b..4484b1f 100644 (file)
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -1,6 +1,6 @@
 object GikoForm: TGikoForm
-  Left = -112
-  Top = 655
+  Left = 39
+  Top = 96
   HorzScrollBar.Visible = False
   VertScrollBar.Visible = False
   AutoScroll = False
@@ -984,7 +984,7 @@ object GikoForm: TGikoForm
             ImageIndex = -1
             MinHeight = 22
             Visible = False
-            Width = 213
+            Width = 238
           end
           item
             Break = False
@@ -992,7 +992,7 @@ object GikoForm: TGikoForm
             ImageIndex = -1
             MinHeight = 22
             Text = #12450#12489#12524#12473
-            Width = 537
+            Width = 512
           end
           item
             Control = LinkToolBar
@@ -1026,7 +1026,7 @@ object GikoForm: TGikoForm
         object StdToolBar: TToolBar
           Left = 9
           Top = 20
-          Width = 200
+          Width = 225
           Height = 22
           AutoSize = True
           ButtonWidth = 25
@@ -1083,29 +1083,30 @@ object GikoForm: TGikoForm
             ImageIndex = 4
             Style = tbsSeparator
           end
-          object ToolButton22: TToolButton
+          object CabinetBBSToolButton: TToolButton
             Left = 124
             Top = 0
             Action = CabinetBBSAction
-            Style = tbsCheck
+            DropdownMenu = BBSSelectPopupMenu
+            Style = tbsDropDown
           end
           object ToolButton23: TToolButton
-            Left = 149
+            Left = 160
             Top = 0
             Action = CabinetHistoryAction
             Style = tbsCheck
           end
           object ToolButton24: TToolButton
-            Left = 174
+            Left = 185
             Top = 0
             Action = CabinetFavoriteAction
             Style = tbsCheck
           end
         end
         object AddressToolBar: TToolBar
-          Left = 268
+          Left = 293
           Top = 20
-          Width = 480
+          Width = 455
           Height = 22
           ButtonWidth = 51
           EdgeBorders = []
@@ -7853,6 +7854,7 @@ object GikoForm: TGikoForm
       OnExecute = StatusBarVisibleActionExecute
     end
     object CabinetBBSAction: TAction
+      Tag = -1
       Category = #34920#31034
       AutoCheck = True
       Caption = #25522#31034#26495'(&N)'
@@ -8587,7 +8589,7 @@ object GikoForm: TGikoForm
   end
   object MainMenu: TMainMenu
     Images = HotToobarImageList
-    Left = 72
+    Left = 69
     Top = 212
     object FileMenu: TMenuItem
       Caption = #12501#12449#12452#12523'(&F)'
@@ -10407,4 +10409,8 @@ object GikoForm: TGikoForm
       Action = FavoriteTreeViewLogDeleteAction
     end
   end
+  object BBSSelectPopupMenu: TPopupMenu
+    Left = 99
+    Top = 468
+  end
 end

diff --git a/gikoNavi.res b/gikoNavi.res
index 0958d38..57b73c8 100644 (file)
Binary files a/gikoNavi.res and b/gikoNavi.res differ