Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.687 by h677, Sat Mar 21 13:15:02 2009 UTC revision 1.688 by h677, Sun Apr 5 14:24:40 2009 UTC
# Line 1472  var Line 1472  var
1472          item        : TThreadItem;          item        : TThreadItem;
1473  begin  begin
1474          if FStartUp then begin          if FStartUp then begin
1475            FStartUp := false;
1476                  ShowWindow(Application.Handle, SW_HIDE);                  ShowWindow(Application.Handle, SW_HIDE);
   
1477                  //FormCreateでやると可視設定が反映されない場合があるのでFormShowでやることにした                  //FormCreateでやると可視設定が反映されない場合があるのでFormShowでやることにした
1478                  //ツールバー表示                  //ツールバー表示
1479                  GikoDM.StdToolBarVisibleAction.Checked := GikoSys.Setting.StdToolBarVisible;                  GikoDM.StdToolBarVisibleAction.Checked := GikoSys.Setting.StdToolBarVisible;
# Line 1498  begin Line 1498  begin
1498  //              ResetBandInfo( ListCoolBar, ListToolBar );  //              ResetBandInfo( ListCoolBar, ListToolBar );
1499                  FIsIgnoreResize := rtNone;                  FIsIgnoreResize := rtNone;
1500    
1501            //ActionListのGroupIndexを元に戻す
1502                    SetGroupIndex(GikoDM.GikoFormActionList);
1503    
1504                  //FormCreteから移動。                  //FormCreteから移動。
1505                  if GikoSys.Setting.TabAutoLoadSave then begin                  if GikoSys.Setting.TabAutoLoadSave then begin
1506              GikoDM.TabsOpenAction.Tag := 1;              GikoDM.TabsOpenAction.Tag := 1;
# Line 1505  begin Line 1508  begin
1508              GikoDM.TabsOpenAction.Tag := 0;              GikoDM.TabsOpenAction.Tag := 0;
1509              if (GikoSys.Setting.LastCloseTabURL <> '') then begin              if (GikoSys.Setting.LastCloseTabURL <> '') then begin
1510                  if ( FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin                  if ( FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin
                         PostMessage( Handle, USER_DOCUMENTCOMPLETE, Integer( FActiveContent.Browser ), 0 );  
                     end;  
                 if ( FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin  
1511                          while (FActiveContent.Browser.ReadyState <> READYSTATE_COMPLETE) and                          while (FActiveContent.Browser.ReadyState <> READYSTATE_COMPLETE) and
1512                                  (FActiveContent.Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin                                  (FActiveContent.Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin
1513                                  Application.ProcessMessages;                          // メッセージを受け取らないようにスリープに変更
1514                            Sleep(1);
1515                      end;                      end;
1516                          end;                          end;
1517                  item := BBSsFindThreadFromURL( GikoSys.Setting.LastCloseTabURL );                  item := BBSsFindThreadFromURL( GikoSys.Setting.LastCloseTabURL );
1518                    GikoSys.Setting.LastCloseTabURL := '';
1519                  if (item <> nil) and (item.IsLogFile) then begin                  if (item <> nil) and (item.IsLogFile) then begin
1520                      OpenThreadItem(item, item.URL);                      OpenThreadItem(item, item.URL);
1521                  end;                  end;
1522                  GikoSys.Setting.LastCloseTabURL := '';                  //ShowWindow(Self.Handle, SW_SHOW);
1523              end;              end;
1524                  end;                  end;
   
         //ActionListのGroupIndexを元に戻す  
                 SetGroupIndex(GikoDM.GikoFormActionList);  
   
                 FStartUp := false;  
1525          end;          end;
1526  end;  end;
1527    

Legend:
Removed from v.1.687  
changed lines
  Added in v.1.688

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26