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.635 by h677, Sun Apr 15 16:21:29 2007 UTC revision 1.635.2.2 by h677, Tue May 8 21:27:45 2007 UTC
# Line 19  uses Line 19  uses
19          HintWindow, GikoCoolBar, GikoListView, Search, ExternalBoardManager,          HintWindow, GikoCoolBar, GikoListView, Search, ExternalBoardManager,
20          ExternalBoardPlugInMain, StdActns, Variants, ExtActns,IdTCPConnection,          ExternalBoardPlugInMain, StdActns, Variants, ExtActns,IdTCPConnection,
21          IdBaseComponent, IdTCPClient, AppEvnts, BrowserRecord, MoveHistoryItem,          IdBaseComponent, IdTCPClient, AppEvnts, BrowserRecord, MoveHistoryItem,
22      ShellAPI,Preview, HistoryList;      ShellAPI,Preview, HistoryList, ResPopupBrowser;
23    
24  const  const
25          NGWORDNAME_PANEL = 3;          NGWORDNAME_PANEL = 3;
# Line 604  type Line 604  type
604                  FOrigenCaption: String;                         //お気に入りツリーのアイテム編集時の編集前の文字列                  FOrigenCaption: String;                         //お気に入りツリーのアイテム編集時の編集前の文字列
605                  FPreviewBrowserRect: TRect;                     ///< プレビューの表示位置を記憶する                  FPreviewBrowserRect: TRect;                     ///< プレビューの表示位置を記憶する
606                  FActionListGroupIndexes: array of Integer;      ///<GikoDM上のアクションリストの各アクションに設定されたGroupIndexを保存する配列                  FActionListGroupIndexes: array of Integer;      ///<GikoDM上のアクションリストの各アクションに設定されたGroupIndexを保存する配列
607            FResPopupBrowser: TResPopupBrowser;
608                  procedure DownloadEnd(Sender: TObject; Item: TDownloadItem);                  procedure DownloadEnd(Sender: TObject; Item: TDownloadItem);
609                  procedure DownloadMsg(Sender: TObject; Item: TDownloadItem; Msg: string; Icon: TGikoMessageIcon);                  procedure DownloadMsg(Sender: TObject; Item: TDownloadItem; Msg: string; Icon: TGikoMessageIcon);
610                  procedure WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer; Number: Integer; const AWorkTitle: string);                  procedure WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer; Number: Integer; const AWorkTitle: string);
# Line 910  begin Line 910  begin
910          //これ以後Set〜で再設定するまで、ActionのCheckedをいじるときは注意!          //これ以後Set〜で再設定するまで、ActionのCheckedをいじるときは注意!
911          GetGroupIndex(GikoDM.GikoFormActionList);          GetGroupIndex(GikoDM.GikoFormActionList);
912          FSearchDialog := nil;          FSearchDialog := nil;
913        FResPopupBrowser := nil;
914          CreateBrowsers(BROWSER_COUNT);          CreateBrowsers(BROWSER_COUNT);
915      FIconData.uID := 0;      FIconData.uID := 0;
916        
917          //メニューフォント          //メニューフォント
918          SetMenuFont;          SetMenuFont;
919    
# Line 1903  begin Line 1904  begin
1904          {$IFDEF DEBUG}          {$IFDEF DEBUG}
1905          Writeln('Status Text is not changed!');          Writeln('Status Text is not changed!');
1906          {$ENDIF}          {$ENDIF}
1907            if Text2 = '' then begin
1908                if FResPopupBrowser <> nil then begin
1909                    if not(Sender is TResPopupBrowser) then
1910                        FResPopupBrowser.Clear
1911                    else begin
1912                        TResPopupBrowser(Sender).ChildClear;
1913                    end;
1914                end;
1915            end;
1916          Exit;          Exit;
1917      end;      end;
1918          StatusBar.Panels[1].Text := Text2;          StatusBar.Panels[1].Text := Text2;
1919    
1920          if FHint <> nil then begin          if FHint <> nil then begin
1921                  FHint.ReleaseHandle;                  FHint.ReleaseHandle;
1922                  FHint.ClearAllRes;                  FHint.ClearAllRes;
1923          end;          end;
1924    
1925          if FPreviewBrowser <> nil then          if FPreviewBrowser <> nil then
1926                  ShowWindow(FPreviewBrowser.Handle, SW_HIDE);                  ShowWindow(FPreviewBrowser.Handle, SW_HIDE);
1927    
1928        if FResPopupBrowser <> nil then begin
1929            if not(Sender is TResPopupBrowser) then
1930                FResPopupBrowser.Clear
1931            else begin
1932                TResPopupBrowser(Sender).ChildClear;
1933            end;
1934        end;
1935    
1936          if not GikoSys.Setting.UnActivePopup then          if not GikoSys.Setting.UnActivePopup then
1937                  if not GikoForm.Active then                  if not GikoForm.Active then
1938                          Exit;                          Exit;
# Line 1952  begin Line 1971  begin
1971                                          wkIntTo := StrToInt64(tmp2);                                          wkIntTo := StrToInt64(tmp2);
1972                                                  //s := GetThreadText(wkBBS, wkKey, wkIntSt, wkIntTo, False, False);                                                  //s := GetThreadText(wkBBS, wkKey, wkIntSt, wkIntTo, False, False);
1973                                          FHint.PopupType := gptThread;                                          FHint.PopupType := gptThread;
1974                                          HTMLCreater.SetResPopupText(FHint, GetActiveContent, wkIntSt, wkIntTo, False, False);                      if (FResPopupBrowser = nil) then begin
1975                            FResPopupBrowser := TResPopupBrowser.Create(BrowserPanel);
1976                            ShowWindow(FResPopupBrowser.Handle, SW_HIDE);
1977                        end;
1978                                            HTMLCreater.SetResPopupText(FResPopupBrowser.CreateNewBrowser, GetActiveContent, wkIntSt, wkIntTo, False, False);
1979                                  end else begin                                  end else begin
1980                                          FHint.PopupType := gptRaw;                                          FHint.PopupType := gptRaw;
1981                                          FHint.Caption := s;                                          FHint.Caption := s;
# Line 2012  begin Line 2035  begin
2035                                                  wkIntTo := 1;                                                  wkIntTo := 1;
2036                                          end;                                          end;
2037                                          FHint.PopupType := gptThread;                                          FHint.PopupType := gptThread;
2038                                          HTMLCreater.SetResPopupText(FHint, threadItem, wkIntSt, wkIntTo, ATitle, PathRec.FFirst );                      if (FResPopupBrowser = nil) then begin
2039                            FResPopupBrowser := TResPopupBrowser.Create(BrowserPanel);
2040                            ShowWindow(FResPopupBrowser.Handle, SW_HIDE);
2041                        end;
2042                                            HTMLCreater.SetResPopupText(FResPopupBrowser.CreateNewBrowser, threadItem, wkIntSt, wkIntTo, ATitle, PathRec.FFirst );
2043                                  end;                                  end;
2044                          end;                          end;
2045                  end;                  end;
# Line 4759  procedure TGikoForm.WMSetCursor(var Mess Line 4786  procedure TGikoForm.WMSetCursor(var Mess
4786  var  var
4787          Pos : TPoint;          Pos : TPoint;
4788  begin  begin
4789            if (FHint <> nil) and (IsWindowVisible(FHint.Handle)) then begin
4790                    FHint.ReleaseHandle;
4791                    FHint.ClearAllRes;
4792        end;
4793          if PreviewTimer.Enabled then          if PreviewTimer.Enabled then
4794                  PreviewTimer.Enabled := False;                  PreviewTimer.Enabled := False;
4795          if (FHint <> nil) and (IsWindowVisible(FHint.Handle)) then begin          if (FResPopupBrowser <> nil) and (IsWindowVisible(FResPopupBrowser.Handle)) then begin
4796                  FHint.ReleaseHandle;          FResPopupBrowser.Clear;
                 FHint.ClearAllRes;  
4797          end;          end;
4798    
4799          if (FPreviewBrowser <> nil)          if (FPreviewBrowser <> nil)
# Line 4811  begin Line 4840  begin
4840                          if ThreadItem <> nil then begin                          if ThreadItem <> nil then begin
4841                                  Num := StrToInt64(s);                                  Num := StrToInt64(s);
4842                                  FHint.PopupType := gptThread;                                  FHint.PopupType := gptThread;
4843                                  HTMLCreater.SetResPopupText(FHint, ThreadItem, Num, Num, False, False);                                  HTMLCreater.SetResPopupText(FResPopupBrowser.CreateNewBrowser, ThreadItem, Num, Num, False, False);
4844                                  if FHint.ResCount <> 0 then                                  if FHint.ResCount <> 0 then
4845                                          ShowTextPopup;                                          ShowTextPopup;
4846                                  Result := False;                                  Result := False;
# Line 7301  begin Line 7330  begin
7330          BrowserNullTab := TBrowserRecord.Create;          BrowserNullTab := TBrowserRecord.Create;
7331          BrowserNullTab.Browser := Browser;          BrowserNullTab.Browser := Browser;
7332          BrowserNullTab.Browser.Navigate(BLANK_HTML);          BrowserNullTab.Browser.Navigate(BLANK_HTML);
7333    
7334          FBrowsers := TList.Create;          FBrowsers := TList.Create;
7335          for i := 0 to count -1 do begin          for i := 0 to count -1 do begin
7336                  FBrowsers.Add(TWebBrowser.Create(BrowserPanel));                  FBrowsers.Add(TWebBrowser.Create(BrowserPanel));
# Line 7320  begin Line 7350  begin
7350          end;          end;
7351          BrowserNullTab.Browser.BringToFront;          BrowserNullTab.Browser.BringToFront;
7352          ShowWindow(BrowserNullTab.Browser.Handle, SW_SHOW);          ShowWindow(BrowserNullTab.Browser.Handle, SW_SHOW);
7353    
7354          //起動時にタブ自動復元を入れていると、空ページ用のBrowserの          //起動時にタブ自動復元を入れていると、空ページ用のBrowserの
7355          //描画が終わっていなくて、クリックイベントの設定等に突入するので          //描画が終わっていなくて、クリックイベントの設定等に突入するので
7356          //ここで終わらせておく          //ここで終わらせておく

Legend:
Removed from v.1.635  
changed lines
  Added in v.1.635.2.2

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