| 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); |
| 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; |
| 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; |
| 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 メニューをセット/更新 |