From a1081275dab8debc6836f0419fcae5ba0f5b74a3 Mon Sep 17 00:00:00 2001 From: yoffy Date: Mon, 8 Mar 2004 14:51:48 +0000 Subject: [PATCH] =?utf8?q?=E3=83=BB=E3=82=B3=E3=83=9F=E3=83=83=E3=83=88?= =?utf8?q?=E3=81=97=E5=BF=98=E3=82=8C?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- Encrypt/UBase64.pas | 4 ++-- Giko.dfm | 30 ++++++++++++++++++------------ gikoNavi.res | Bin 4288 -> 4288 bytes 3 files changed, 20 insertions(+), 14 deletions(-) diff --git a/Encrypt/UBase64.pas b/Encrypt/UBase64.pas index 443c047..4337a7c 100644 --- 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 --- 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 0958d38d49c59ae1e8cd83eab1bf5cfec3224d71..57b73c8388b5e520f3aa165ed46c29c3469790bd 100644 GIT binary patch delta 14 WcmX@0ctCN(A6`br&3}0hGXVfE`33+0 delta 14 WcmX@0ctCN(A6`bL&3}0hGXVfE{{{g7 -- 2.11.0