• R/O
  • HTTP
  • SSH
  • HTTPS

Commit

Tags
No Tags

Frequently used words (click to add to your profile)

javac++androidlinuxc#windowsobjective-cqtcocoa誰得pythonphprubygameguibathyscaphec翻訳計画中(planning stage)omegatframeworktwittertestdomvb.netdirectxbtronarduinopreviewerゲームエンジン

ギコナビ


Commit MetaInfo

Revisiona85e8a5c7eddc24196c01c8531e54840fcc3458f (tree)
Time2009-04-05 23:24:40
Authorh677 <h677>
Commiterh677

Log Message

close #15974
タブの自動復元の際の処理を見直して、ブラウザの描画待ちでメッセージを処理
せずに単純スリープするようにした。

Change Summary

Incremental Difference

--- a/Giko.pas
+++ b/Giko.pas
@@ -1472,8 +1472,8 @@ var
14721472 item : TThreadItem;
14731473 begin
14741474 if FStartUp then begin
1475+ FStartUp := false;
14751476 ShowWindow(Application.Handle, SW_HIDE);
1476-
14771477 //FormCreate‚Å‚â‚é‚ƉŽ‹Ý’肪”½‰f‚³‚ê‚È‚¢ê‡‚ª‚ ‚é‚Ì‚ÅFormShow‚Å‚â‚邱‚Æ‚É‚µ‚½
14781478 //ƒc[ƒ‹ƒo[•\Ž¦
14791479 GikoDM.StdToolBarVisibleAction.Checked := GikoSys.Setting.StdToolBarVisible;
@@ -1498,6 +1498,9 @@ begin
14981498 // ResetBandInfo( ListCoolBar, ListToolBar );
14991499 FIsIgnoreResize := rtNone;
15001500
1501+ //ActionList‚ÌGroupIndex‚ðŒ³‚É–ß‚·
1502+ SetGroupIndex(GikoDM.GikoFormActionList);
1503+
15011504 //FormCrete‚©‚çˆÚ“®B
15021505 if GikoSys.Setting.TabAutoLoadSave then begin
15031506 GikoDM.TabsOpenAction.Tag := 1;
@@ -1505,26 +1508,20 @@ begin
15051508 GikoDM.TabsOpenAction.Tag := 0;
15061509 if (GikoSys.Setting.LastCloseTabURL <> '') then begin
15071510 if ( FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin
1508- PostMessage( Handle, USER_DOCUMENTCOMPLETE, Integer( FActiveContent.Browser ), 0 );
1509- end;
1510- if ( FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin
15111511 while (FActiveContent.Browser.ReadyState <> READYSTATE_COMPLETE) and
15121512 (FActiveContent.Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin
1513- Application.ProcessMessages;
1513+ // ƒƒbƒZ[ƒW‚ðŽó‚¯Žæ‚ç‚È‚¢‚悤‚ɃXƒŠ[ƒv‚ɕύX
1514+ Sleep(1);
15141515 end;
15151516 end;
15161517 item := BBSsFindThreadFromURL( GikoSys.Setting.LastCloseTabURL );
1518+ GikoSys.Setting.LastCloseTabURL := '';
15171519 if (item <> nil) and (item.IsLogFile) then begin
15181520 OpenThreadItem(item, item.URL);
15191521 end;
1520- GikoSys.Setting.LastCloseTabURL := '';
1522+ //ShowWindow(Self.Handle, SW_SHOW);
15211523 end;
15221524 end;
1523-
1524- //ActionList‚ÌGroupIndex‚ðŒ³‚É–ß‚·
1525- SetGroupIndex(GikoDM.GikoFormActionList);
1526-
1527- FStartUp := false;
15281525 end;
15291526 end;
15301527