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.682 by eggcake, Wed Oct 22 09:29:00 2008 UTC revision 1.683 by h677, Sat Dec 13 03:58:29 2008 UTC
# Line 609  type Line 609  type
609                  FPreviewBrowserRect: TRect;                     ///< プレビューの表示位置を記憶する                  FPreviewBrowserRect: TRect;                     ///< プレビューの表示位置を記憶する
610                  FActionListGroupIndexes: array of Integer;      ///<GikoDM上のアクションリストの各アクションに設定されたGroupIndexを保存する配列                  FActionListGroupIndexes: array of Integer;      ///<GikoDM上のアクションリストの各アクションに設定されたGroupIndexを保存する配列
611          FResPopupBrowser: TResPopupBrowser;          FResPopupBrowser: TResPopupBrowser;
612            FUpdateExePath: string;    ///ギコナビ更新インストーラパス
613            FUpdateExeArgs: string;    ///ギコナビ更新インストーラ引数
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 736  type Line 738  type
738                  property ScreenCursor : TCursor read GetScreenCursor write SetScreenCursor;                  property ScreenCursor : TCursor read GetScreenCursor write SetScreenCursor;
739                  property ActiveBBS : TBBS read FActiveBBS write FActiveBBS;                  property ActiveBBS : TBBS read FActiveBBS write FActiveBBS;
740                  property WorkCount: Integer read FWorkCount write FWorkCount;                  property WorkCount: Integer read FWorkCount write FWorkCount;
741            property UpdateExePath: string read FUpdateExePath write FUpdateExePath;
742            property UpdateExeArgs: string read FUpdateExeArgs write FUpdateExeArgs;
743            
744                  procedure SetContent(inThread: TBrowserRecord);                  procedure SetContent(inThread: TBrowserRecord);
745                  function GetActiveContent(popup :Boolean = false): TThreadItem;                  function GetActiveContent(popup :Boolean = false): TThreadItem;
746                  function GetActiveList: TObject;                  function GetActiveList: TObject;
# Line 929  begin Line 934  begin
934      FResPopupBrowser := nil;      FResPopupBrowser := nil;
935          CreateBrowsers(BROWSER_COUNT);          CreateBrowsers(BROWSER_COUNT);
936      FIconData.uID := 0;      FIconData.uID := 0;
937        FUpdateExePath := '';
938        FUpdateExeArgs := '';
939    
940          //メニューフォント          //メニューフォント
941          SetMenuFont;          SetMenuFont;
# Line 1798  begin Line 1805  begin
1805                  end;                  end;
1806          except          except
1807          end;          end;
1808    
1809        // Updateがいれば実行する
1810        if FileExists(FUpdateExePath) then begin
1811            // アップデート実行
1812            GikoSys.CreateProcess(FUpdateExePath, FUpdateExeArgs);
1813        end;
1814  end;  end;
1815    
1816  // 各所にあるキャビネット・ BBS メニューをセット/更新  // 各所にあるキャビネット・ BBS メニューをセット/更新

Legend:
Removed from v.1.682  
changed lines
  Added in v.1.683

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