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.689 by h677, Tue May 5 11:32:22 2009 UTC revision 1.690 by h677, Wed May 6 12:23:35 2009 UTC
# Line 610  type Line 610  type
610          FResPopupBrowser: TResPopupBrowser;          FResPopupBrowser: TResPopupBrowser;
611          FUpdateExePath: string;    ///ギコナビ更新インストーラパス          FUpdateExePath: string;    ///ギコナビ更新インストーラパス
612          FUpdateExeArgs: string;    ///ギコナビ更新インストーラ引数          FUpdateExeArgs: string;    ///ギコナビ更新インストーラ引数
613            FKokoPopupThreadItem: TThreadItem;
614                  procedure DownloadEnd(Sender: TObject; Item: TDownloadItem);                  procedure DownloadEnd(Sender: TObject; Item: TDownloadItem);
615                  procedure DownloadMsg(Sender: TObject; Item: TDownloadItem; Msg: string; Icon: TGikoMessageIcon);                  procedure DownloadMsg(Sender: TObject; Item: TDownloadItem; Msg: string; Icon: TGikoMessageIcon);
616                  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 759  type Line 760  type
760                  property ListViewBackGroundColor: TColor read FListViewBackGroundColor write SetListViewBackGroundColor;                  property ListViewBackGroundColor: TColor read FListViewBackGroundColor write SetListViewBackGroundColor;
761                  property UseOddResOddColor : Boolean read FUseOddResOddColor write FUseOddResOddColor;                  property UseOddResOddColor : Boolean read FUseOddResOddColor write FUseOddResOddColor;
762                  property OddColor : TColor read FOddColor write FOddColor;                  property OddColor : TColor read FOddColor write FOddColor;
763            //! レスメニューアクティブスレッドアイテム
764            property KokoPopupThreadItem : TThreadItem read FKokoPopupThreadItem;
765    
766                  function FindToolBarButton( bar : TToolBar; action : TAction ) : TToolButton;                  function FindToolBarButton( bar : TToolBar; action : TAction ) : TToolButton;
767                  procedure OnPlugInMenuItem( Sender : TObject );                  procedure OnPlugInMenuItem( Sender : TObject );
768                  procedure TabFileURLReplace(oldURLs: TStringList; newURLs: TStringList);                  procedure TabFileURLReplace(oldURLs: TStringList; newURLs: TStringList);
# Line 2367  begin Line 2371  begin
2371  {$IFDEF DEBUG}  {$IFDEF DEBUG}
2372          Writeln(URL);          Writeln(URL);
2373  {$ENDIF}  {$ENDIF}
2374        FKokoPopupThreadItem := nil;
2375          if Pos(kMenuName, URL) <> 0 then begin          if Pos(kMenuName, URL) <> 0 then begin
2376                  sNo := Copy( URL, Pos( kMenuName, URL ) + Length( kMenuName ), Length( URL ) );                  sNo := Copy( URL, Pos( kMenuName, URL ) + Length( kMenuName ), Length( URL ) );
2377                    
2378                  if not GikoSys.IsNumeric(sNo) then Exit;                  if not GikoSys.IsNumeric(sNo) then Exit;
2379    
2380                  Cancel := True;                  Cancel := True;
# Line 2387  begin Line 2392  begin
2392                  TResPopupBrowser(Sender).ChildClear;                  TResPopupBrowser(Sender).ChildClear;
2393              end;              end;
2394          end;          end;
2395            FKokoPopupThreadItem := GetActiveContent(true);
2396                  KokoPopupMenu.Tag := StrToInt(sNo);                  KokoPopupMenu.Tag := StrToInt(sNo);
2397                  KokoPopupMenu.Popup(p.x, p.y);                  KokoPopupMenu.Popup(p.x, p.y);
2398          end else if Pos('mailto', LowerCase(URL)) <> 0 then begin          end else if Pos('mailto', LowerCase(URL)) <> 0 then begin
# Line 7337  var Line 7343  var
7343  begin  begin
7344          No := KokoPopupMenu.Tag;          No := KokoPopupMenu.Tag;
7345          if No = 0 then Exit;          if No = 0 then Exit;
7346          ThreadItem := GetActiveContent(True);          ThreadItem := GikoForm.KokoPopupThreadItem;
7347          if ThreadItem = nil then Exit;          if ThreadItem = nil then Exit;
7348    
7349      id := GikoSys.GetResID(No, ThreadItem);      id := GikoSys.GetResID(No, ThreadItem);
# Line 7396  var Line 7402  var
7402  begin  begin
7403          No := KokoPopupMenu.Tag;          No := KokoPopupMenu.Tag;
7404          if No = 0 then Exit;          if No = 0 then Exit;
7405          ThreadItem := GetActiveContent(True);          ThreadItem := GikoForm.KokoPopupThreadItem;
7406          if ThreadItem = nil then Exit;          if ThreadItem = nil then Exit;
7407          body := TStringList.Create;          body := TStringList.Create;
7408          try          try

Legend:
Removed from v.1.689  
changed lines
  Added in v.1.690

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