From 2919ea7e3c6015b88aa7f6a9e39dcd0f1cee73d2 Mon Sep 17 00:00:00 2001 From: yoffy Date: Mon, 5 Apr 2004 09:57:24 +0000 Subject: [PATCH] =?utf8?q?=E3=83=BB=E3=82=AD=E3=83=A3=E3=83=93=E3=83=8D?= =?utf8?q?=E3=83=83=E3=83=88=E3=81=8C=E9=9D=9E=E8=A1=A8=E7=A4=BA=E3=81=A7?= =?utf8?q?=E3=80=81=E3=81=8B=E3=81=A4=E3=80=81=E6=9C=80=E5=A4=A7=E5=8C=96?= =?utf8?q?=E3=81=95=E3=82=8C=E3=81=9F=E7=8A=B6=E6=85=8B=E3=81=A7=E8=B5=B7?= =?utf8?q?=E5=8B=95=E3=81=97=E3=82=88=E3=81=86=E3=81=A8=E3=81=99=E3=82=8B?= =?utf8?q?=E3=81=A8=20=E3=80=80=E6=9C=80=E5=A4=A7=E5=8C=96=E3=81=95?= =?utf8?q?=E3=82=8C=E3=81=9F=E6=89=B1=E3=81=84=E3=81=AE=E3=81=BE=E3=81=BE?= =?utf8?q?=E8=A1=A8=E7=A4=BA=E3=81=8C=E6=9C=80=E5=A4=A7=E5=8C=96=E3=81=95?= =?utf8?q?=E3=82=8C=E3=81=AA=E3=81=84=E5=95=8F=E9=A1=8C=E3=82=92=E4=B8=80?= =?utf8?q?=E6=99=82=E7=9A=84=E3=81=AB=E5=9B=9E=E9=81=BF(=E8=A6=81=E4=BF=AE?= =?utf8?q?=E6=AD=A3)=E3=80=82?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- Giko.dfm | 39 +++++++++++++++++++++++---------------- Giko.pas | 20 +++++++++++++++----- 2 files changed, 38 insertions(+), 21 deletions(-) diff --git a/Giko.dfm b/Giko.dfm index d30d916..3d39cc3 100644 --- a/Giko.dfm +++ b/Giko.dfm @@ -1,11 +1,11 @@ object GikoForm: TGikoForm - Left = 126 - Top = 123 + Left = 129 + Top = 179 HorzScrollBar.Visible = False VertScrollBar.Visible = False AutoScroll = False Caption = '-' - ClientHeight = 565 + ClientHeight = 566 ClientWidth = 702 Color = clBtnFace Font.Charset = SHIFTJIS_CHARSET @@ -28,7 +28,7 @@ object GikoForm: TGikoForm TextHeight = 12 object StatusBar: TStatusBar Left = 0 - Top = 545 + Top = 546 Width = 702 Height = 20 Panels = < @@ -48,13 +48,13 @@ object GikoForm: TGikoForm Left = 0 Top = 77 Width = 702 - Height = 468 + Height = 469 Align = alClient BevelOuter = bvNone TabOrder = 1 object MessageSplitter: TSplitter Left = 0 - Top = 429 + Top = 430 Width = 702 Height = 5 Cursor = crVSplit @@ -67,7 +67,7 @@ object GikoForm: TGikoForm Left = 0 Top = 0 Width = 702 - Height = 429 + Height = 430 Align = alClient BevelOuter = bvNone TabOrder = 0 @@ -75,7 +75,7 @@ object GikoForm: TGikoForm Left = 145 Top = 0 Width = 5 - Height = 429 + Height = 430 Cursor = crHSplit AutoSnap = False ResizeStyle = rsUpdate @@ -84,7 +84,7 @@ object GikoForm: TGikoForm Left = 0 Top = 0 Width = 145 - Height = 429 + Height = 430 Align = alLeft BevelOuter = bvNone TabOrder = 0 @@ -159,7 +159,7 @@ object GikoForm: TGikoForm object ToolBar1: TToolBar Left = 2 Top = 4 - Width = 15 + Width = 16 Height = 18 Align = alNone AutoSize = True @@ -270,7 +270,7 @@ object GikoForm: TGikoForm Left = 150 Top = 0 Width = 552 - Height = 429 + Height = 430 Align = alClient BevelOuter = bvNone TabOrder = 1 @@ -549,13 +549,13 @@ object GikoForm: TGikoForm Left = 0 Top = 194 Width = 552 - Height = 235 + Height = 236 Align = alClient BevelOuter = bvNone TabOrder = 1 object BrowserBottomPanel: TGikoPanel Left = 0 - Top = 215 + Top = 216 Width = 552 Height = 20 Align = alBottom @@ -832,7 +832,7 @@ object GikoForm: TGikoForm Left = 0 Top = 46 Width = 552 - Height = 169 + Height = 170 Align = alClient TabOrder = 2 OnEnter = BrowserEnter @@ -842,7 +842,7 @@ object GikoForm: TGikoForm OnNewWindow2 = BrowserNewWindow2 OnDocumentComplete = BrowserDocumentComplete ControlData = { - 4C0000000D390000771100000000000000000000000000000000000000000000 + 4C0000000D390000921100000000000000000000000000000000000000000000 000000004C000000000000000000000001000000E0D057007335CF11AE690800 2B2E126202000000000000004C0000000114020000000000C000000000000046 8000000000000000000000000000000000000000000000000000000000000000 @@ -853,7 +853,7 @@ object GikoForm: TGikoForm end object MessagePanel: TPanel Left = 0 - Top = 434 + Top = 435 Width = 702 Height = 34 Align = alBottom @@ -10433,4 +10433,11 @@ object GikoForm: TGikoForm Left = 99 Top = 468 end + object MaximizeTimer: TTimer + Enabled = False + Interval = 800 + OnTimer = MaximizeTimerTimer + Left = 4 + Top = 404 + end end diff --git a/Giko.pas b/Giko.pas index ea7d63b..d17d5bd 100644 --- a/Giko.pas +++ b/Giko.pas @@ -527,6 +527,7 @@ type BBSSelectPopupMenu: TPopupMenu; PlugInMenu: TMenuItem; TmpToolBar: TToolBar; + MaximizeTimer: TTimer; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure CabinetPanelHide(Sender: TObject); @@ -840,6 +841,7 @@ type procedure TreeViewClick(Sender: TObject); procedure TreeViewKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + procedure MaximizeTimerTimer(Sender: TObject); private { Private éŒ¾ } //RoundList : TRoundList; @@ -1298,11 +1300,12 @@ begin SetWindowPlacement(Handle, @wp); // ‹N“®Žž‚É•Û‘¶‚³‚ê‚Ä‚µ‚Ü‚¤‘΍ô 2 - FIsIconiced := True; +// FIsIconiced := True; // SetBounds(GikoSys.Setting.WindowLeft, GikoSys.Setting.WindowTop, // GikoSys.Setting.WindowWidth, GikoSys.Setting.WindowHeight); if GikoSys.Setting.WindowMax then - WindowState := wsMaximized; +// WindowState := wsMaximized; + MaximizeTimer.Enabled := True; //ƒMƒRƒAƒjƒ try @@ -1442,11 +1445,11 @@ begin // ƒXƒŒƒbƒhižƒ{ƒ^ƒ“‚ð‰B‚· ListToolBar.Controls[ i ].Visible := False; // ƒXƒŒƒbƒhižƒtƒB[ƒ‹ƒh‚ð‘}“ü - SelectComboBox.Parent := ListToolBar; + SelectComboBox.Parent := ListToolBar; SelectComboBox.Left := ListToolBar.Controls[ i ].Left; SelectComboBox.Width := GikoSys.Setting.SelectComboBoxWidth; // ƒXƒŒƒbƒhiž—p“ÆŽ©ƒZƒpƒŒ[ƒ^‚ð‘}“ü - SelectComboBoxSplitter.Parent := ListToolBar; + SelectComboBoxSplitter.Parent := ListToolBar; SelectComboBoxSplitter.Left := SelectComboBox.Left + SelectComboBox.Width; break; @@ -1660,8 +1663,8 @@ begin // CoolBar •œŒ³ LoadCoolBarSettings; - end; + procedure TGikoForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean); var i: Integer; @@ -3653,6 +3656,7 @@ var i, b : Integer; item : TMenuItem; begin + try FavoriteTreeView.Visible := False; FavoriteToolBar.Hide; @@ -9306,6 +9310,12 @@ begin end; +procedure TGikoForm.MaximizeTimerTimer(Sender: TObject); +begin + WindowState := wsMaximized; + MaximizeTimer.Enabled := False; +end; + initialization OleInitialize(nil); finalization -- 2.11.0