| 21 |
FavoriteArrange, AddressHistory, Preview, HTMLDocumentEvent, Kotehan, |
FavoriteArrange, AddressHistory, Preview, HTMLDocumentEvent, Kotehan, |
| 22 |
HintWindow, GikoCoolBar, GikoListView, ToolBarSetting, ToolBarUtil, |
HintWindow, GikoCoolBar, GikoListView, ToolBarSetting, ToolBarUtil, |
| 23 |
IndividualAbon, Search, ExternalBoardManager, ExternalBoardPlugInMain, |
IndividualAbon, Search, ExternalBoardManager, ExternalBoardPlugInMain, |
| 24 |
StdActns, GikoXMLDoc, Variants; |
StdActns, GikoXMLDoc, Variants, ExtActns; |
| 25 |
|
|
| 26 |
type |
type |
| 27 |
TGikoTreeType = (gttNone, gtt2ch, gttHistory, gttFavorite); |
TGikoTreeType = (gttNone, gtt2ch, gttHistory, gttFavorite); |
| 536 |
SetFocusForBrowserAction: TAction; |
SetFocusForBrowserAction: TAction; |
| 537 |
SetFocusForThreadListAction: TAction; |
SetFocusForThreadListAction: TAction; |
| 538 |
SetFocusForCabinetAction: TAction; |
SetFocusForCabinetAction: TAction; |
| 539 |
|
Xday1: TMenuItem; |
| 540 |
|
FileRun1: TFileRun; |
| 541 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 542 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 543 |
procedure CabinetPanelHide(Sender: TObject); |
procedure CabinetPanelHide(Sender: TObject); |
| 844 |
procedure BrowserNameToolBarResize(Sender: TObject); |
procedure BrowserNameToolBarResize(Sender: TObject); |
| 845 |
procedure BrowserToolBarResize(Sender: TObject); |
procedure BrowserToolBarResize(Sender: TObject); |
| 846 |
procedure BrowserTabResize(Sender: TObject); |
procedure BrowserTabResize(Sender: TObject); |
| 847 |
procedure ListViewClick(Sender: TObject); |
procedure TreeViewClick(Sender: TObject); |
|
procedure TreeViewClick(Sender: TObject); |
|
| 848 |
procedure TreeViewKeyDown(Sender: TObject; var Key: Word; |
procedure TreeViewKeyDown(Sender: TObject; var Key: Word; |
| 849 |
Shift: TShiftState); |
Shift: TShiftState); |
| 850 |
procedure FavoriteTreeViewMouseDown(Sender: TObject; |
procedure FavoriteTreeViewMouseDown(Sender: TObject; |
| 859 |
procedure SetFocusForBrowserActionUpdate(Sender: TObject); |
procedure SetFocusForBrowserActionUpdate(Sender: TObject); |
| 860 |
procedure SetFocusForThreadListActionExecute(Sender: TObject); |
procedure SetFocusForThreadListActionExecute(Sender: TObject); |
| 861 |
procedure SetFocusForCabinetActionExecute(Sender: TObject); |
procedure SetFocusForCabinetActionExecute(Sender: TObject); |
| 862 |
|
procedure Xday1Click(Sender: TObject); |
| 863 |
private |
private |
| 864 |
{ Private 宣言 } |
{ Private 宣言 } |
| 865 |
//RoundList : TRoundList; |
//RoundList : TRoundList; |
| 922 |
FToolBarSettingSender : TToolBarSettingSenderType; // ツールバー設定をクリックしたクールバー |
FToolBarSettingSender : TToolBarSettingSenderType; // ツールバー設定をクリックしたクールバー |
| 923 |
FMouseDownPos : TPoint; // ブラウザタブでマウスを押したときの座標 |
FMouseDownPos : TPoint; // ブラウザタブでマウスを押したときの座標 |
| 924 |
FBrowsers: TList; |
FBrowsers: TList; |
|
FOleInPlaceActiveObject: IOleInPlaceActiveObject; //ここに必要らしい |
|
| 925 |
procedure SetBoardTreeNode( inBBS : TBBS ); |
procedure SetBoardTreeNode( inBBS : TBBS ); |
| 926 |
function SetCategoryListItem(ABBS2ch: TBBS): Integer; |
function SetCategoryListItem(ABBS2ch: TBBS): Integer; |
| 927 |
function SetBoardListItem(Category: TCategory): Integer; |
function SetBoardListItem(Category: TCategory): Integer; |
| 1230 |
newBrowser.OnStatusTextChange := BrowserStatusTextChange; |
newBrowser.OnStatusTextChange := BrowserStatusTextChange; |
| 1231 |
newBrowser.OnTitleChange := BrowserTitleChange; |
newBrowser.OnTitleChange := BrowserTitleChange; |
| 1232 |
newBrowser.Navigate(BLANK_HTML); |
newBrowser.Navigate(BLANK_HTML); |
|
//TOleControl(newBrowser).Visible := false; |
|
| 1233 |
ShowWindow(newBrowser.Handle, SW_HIDE); |
ShowWindow(newBrowser.Handle, SW_HIDE); |
| 1234 |
FBrowsers.Add(newBrowser); |
FBrowsers.Add(newBrowser); |
| 1235 |
end; |
end; |
| 9808 |
boardPlugIn.PlugInMenu( item.Handle ); |
boardPlugIn.PlugInMenu( item.Handle ); |
| 9809 |
|
|
| 9810 |
end; |
end; |
|
|
|
|
procedure TGikoForm.ListViewClick(Sender: TObject); |
|
|
begin |
|
|
end; |
|
|
|
|
| 9811 |
// TreeView がクリックされた |
// TreeView がクリックされた |
| 9812 |
procedure TGikoForm.TreeClick( Node : TTreeNode ); |
procedure TGikoForm.TreeClick( Node : TTreeNode ); |
| 9813 |
var |
var |
| 10096 |
TreeView.SetFocus; |
TreeView.SetFocus; |
| 10097 |
end; |
end; |
| 10098 |
|
|
| 10099 |
|
procedure TGikoForm.Xday1Click(Sender: TObject); |
| 10100 |
|
const |
| 10101 |
|
HostsFileName : string = 'hosts'; |
| 10102 |
|
var |
| 10103 |
|
chrWinPath : array [0..MAX_PATH] of char; |
| 10104 |
|
chrSysPath : array [0..MAX_PATH] of char; |
| 10105 |
|
tmpPath: string; |
| 10106 |
|
OSver : TOSVERSIONINFO; |
| 10107 |
|
begin |
| 10108 |
|
OSver.dwOSVersionInfoSize := SizeOf(OSver); |
| 10109 |
|
GetVersionEx(OSver); |
| 10110 |
|
case OSver.dwPlatformId of |
| 10111 |
|
//Windows3.1 |
| 10112 |
|
VER_PLATFORM_WIN32s: |
| 10113 |
|
ShowMessage('どうやって動かしてるんですか?'); |
| 10114 |
|
//Windows95 |
| 10115 |
|
VER_PLATFORM_WIN32_WINDOWS: |
| 10116 |
|
begin |
| 10117 |
|
GetWindowsDirectory(chrWinPath, sizeof(chrWinPath)); |
| 10118 |
|
tmpPath := chrWinPath; |
| 10119 |
|
tmpPath := IncludeTrailingPathDelimiter(tmpPath); |
| 10120 |
|
tmpPath := tmpPath + HostsFileName; |
| 10121 |
|
end; |
| 10122 |
|
//WindowsNT |
| 10123 |
|
VER_PLATFORM_WIN32_NT: |
| 10124 |
|
begin |
| 10125 |
|
GetSystemDirectory(chrSysPath, sizeof(chrSysPath)); |
| 10126 |
|
tmpPath := chrSysPath; |
| 10127 |
|
tmpPath := IncludeTrailingPathDelimiter(tmpPath); |
| 10128 |
|
tmpPath := tmpPath + 'Drivers\Etc\' + HostsFileName; |
| 10129 |
|
end; |
| 10130 |
|
end; |
| 10131 |
|
FileRun1.Parameters := tmpPath; |
| 10132 |
|
FileRun1.Execute; |
| 10133 |
|
end; |
| 10134 |
|
|
| 10135 |
initialization |
initialization |
| 10136 |
OleInitialize(nil); |
OleInitialize(nil); |
| 10137 |
finalization |
finalization |