| 4 |
|
|
| 5 |
uses |
uses |
| 6 |
SysUtils, Classes, ExtActns, StdActns, ActnList, ImgList, Controls, |
SysUtils, Classes, ExtActns, StdActns, ActnList, ImgList, Controls, |
| 7 |
|
{$IF Defined(DELPRO) } |
| 8 |
|
SHDocVw, |
| 9 |
|
MSHTML, |
| 10 |
|
{$ELSE} |
| 11 |
|
SHDocVw_TLB, |
| 12 |
|
MSHTML_TLB, |
| 13 |
|
{$IFEND} |
| 14 |
ComCtrls; |
ComCtrls; |
| 15 |
|
|
| 16 |
type |
type |
| 17 |
TGikoDM = class(TDataModule) |
TGikoDM = class(TDataModule) |
| 18 |
GikoFormActionList: TActionList; |
GikoFormActionList: TActionList; |
| 19 |
OnlyAHundredResAction: TAction; |
OnlyAHundredResAction: TAction; |
| 20 |
OnlyKokoResAction: TAction; |
OnlyKokoResAction: TAction; |
| 21 |
LoginAction: TAction; |
LoginAction: TAction; |
| 22 |
NewBoardAction: TAction; |
NewBoardAction: TAction; |
| 23 |
LogDeleteAction: TAction; |
LogDeleteAction: TAction; |
| 24 |
KidokuAction: TAction; |
KidokuAction: TAction; |
| 25 |
StdToolBarVisibleAction: TAction; |
StdToolBarVisibleAction: TAction; |
| 26 |
AddressBarVisibleAction: TAction; |
AddressBarVisibleAction: TAction; |
| 27 |
LinkBarVisibleAction: TAction; |
LinkBarVisibleAction: TAction; |
| 28 |
ListToolBarVisibleAction: TAction; |
ListToolBarVisibleAction: TAction; |
| 29 |
SearchAction: TAction; |
SearchAction: TAction; |
| 30 |
GikoNaviWebPageAction: TAction; |
GikoNaviWebPageAction: TAction; |
| 31 |
MonazillaWebPageAction: TAction; |
MonazillaWebPageAction: TAction; |
| 32 |
BBS2chWebPageAction: TAction; |
BBS2chWebPageAction: TAction; |
| 33 |
GikoFolderOpenAction: TAction; |
GikoFolderOpenAction: TAction; |
| 34 |
AboutAction: TAction; |
AboutAction: TAction; |
| 35 |
SelectTextClearAction: TAction; |
SelectTextClearAction: TAction; |
| 36 |
NameTextClearAction: TAction; |
NameTextClearAction: TAction; |
| 37 |
MailTextClearAction: TAction; |
MailTextClearAction: TAction; |
| 38 |
ExitAction: TAction; |
ExitAction: TAction; |
| 39 |
ListNameBarVisibleAction: TAction; |
ListNameBarVisibleAction: TAction; |
| 40 |
BrowserToolBarVisibleAction: TAction; |
BrowserToolBarVisibleAction: TAction; |
| 41 |
BrowserNameBarVisibleAction: TAction; |
BrowserNameBarVisibleAction: TAction; |
| 42 |
MsgBarVisibleAction: TAction; |
MsgBarVisibleAction: TAction; |
| 43 |
MsgBarCloseAction: TAction; |
MsgBarCloseAction: TAction; |
| 44 |
StatusBarVisibleAction: TAction; |
StatusBarVisibleAction: TAction; |
| 45 |
CabinetBBSAction: TAction; |
CabinetBBSAction: TAction; |
| 46 |
CabinetHistoryAction: TAction; |
CabinetHistoryAction: TAction; |
| 47 |
OnlyNewResAction: TAction; |
OnlyNewResAction: TAction; |
| 48 |
CabinetFavoriteAction: TAction; |
CabinetFavoriteAction: TAction; |
| 49 |
CabinetVisibleAction: TAction; |
CabinetVisibleAction: TAction; |
| 50 |
ListNumberVisibleAction: TAction; |
ListNumberVisibleAction: TAction; |
| 51 |
UpFolderAction: TAction; |
UpFolderAction: TAction; |
| 52 |
CabinetCloseAction: TAction; |
CabinetCloseAction: TAction; |
| 53 |
IconStyle: TAction; |
IconStyle: TAction; |
| 54 |
LargeIconAction: TAction; |
LargeIconAction: TAction; |
| 55 |
SmallIconAction: TAction; |
SmallIconAction: TAction; |
| 56 |
ListIconAction: TAction; |
ListIconAction: TAction; |
| 57 |
DetailIconAction: TAction; |
DetailIconAction: TAction; |
| 58 |
MidokuAction: TAction; |
MidokuAction: TAction; |
| 59 |
AllSelectAction: TAction; |
AllSelectAction: TAction; |
| 60 |
AllItemAction: TAction; |
AllItemAction: TAction; |
| 61 |
LogItemAction: TAction; |
LogItemAction: TAction; |
| 62 |
NewItemAction: TAction; |
NewItemAction: TAction; |
| 63 |
ThreadRangeAction: TAction; |
ThreadRangeAction: TAction; |
| 64 |
SelectItemAction: TAction; |
SelectItemAction: TAction; |
| 65 |
StopAction: TAction; |
StopAction: TAction; |
| 66 |
OptionAction: TAction; |
OptionAction: TAction; |
| 67 |
RoundAction: TAction; |
RoundAction: TAction; |
| 68 |
BrowserMaxAction: TAction; |
BrowserMaxAction: TAction; |
| 69 |
BrowserMinAction: TAction; |
BrowserMinAction: TAction; |
| 70 |
ScrollTopAction: TAction; |
ScrollTopAction: TAction; |
| 71 |
ScrollLastAction: TAction; |
ScrollLastAction: TAction; |
| 72 |
ScrollNewAction: TAction; |
ScrollNewAction: TAction; |
| 73 |
ScrollKokoAction: TAction; |
ScrollKokoAction: TAction; |
| 74 |
EditorAction: TAction; |
EditorAction: TAction; |
| 75 |
IEAction: TAction; |
IEAction: TAction; |
| 76 |
ShowThreadAction: TAction; |
ShowThreadAction: TAction; |
| 77 |
ShowBoardAction: TAction; |
ShowBoardAction: TAction; |
| 78 |
URLCopyAction: TAction; |
URLCopyAction: TAction; |
| 79 |
NameCopyAction: TAction; |
NameCopyAction: TAction; |
| 80 |
NameURLCopyAction: TAction; |
NameURLCopyAction: TAction; |
| 81 |
ItemReloadAction: TAction; |
ItemReloadAction: TAction; |
| 82 |
ThreadEditorAction: TAction; |
ThreadEditorAction: TAction; |
| 83 |
BoardIEAction: TAction; |
BoardIEAction: TAction; |
| 84 |
SelectItemURLCopyAction: TAction; |
SelectItemURLCopyAction: TAction; |
| 85 |
SelectItemNameCopyAction: TAction; |
SelectItemNameCopyAction: TAction; |
| 86 |
SelectItemNameURLCopyAction: TAction; |
SelectItemNameURLCopyAction: TAction; |
| 87 |
SelectListReloadAction: TAction; |
SelectListReloadAction: TAction; |
| 88 |
SelectThreadReloadAction: TAction; |
SelectThreadReloadAction: TAction; |
| 89 |
BrowserTabCloseAction: TAction; |
BrowserTabCloseAction: TAction; |
| 90 |
NotSelectTabCloseAction: TAction; |
NotSelectTabCloseAction: TAction; |
| 91 |
AllTabCloseAction: TAction; |
AllTabCloseAction: TAction; |
| 92 |
KokomadeAction: TAction; |
KokomadeAction: TAction; |
| 93 |
ZenbuAction: TAction; |
ZenbuAction: TAction; |
| 94 |
KokoResAction: TAction; |
KokoResAction: TAction; |
| 95 |
TreeSelectBoradReload: TAction; |
TreeSelectBoradReload: TAction; |
| 96 |
TreeSelectThreadReload: TAction; |
TreeSelectThreadReload: TAction; |
| 97 |
TreeSelectURLCopy: TAction; |
TreeSelectURLCopy: TAction; |
| 98 |
SelectReservAction: TAction; |
SelectReservAction: TAction; |
| 99 |
SelectNewRoundName: TAction; |
SelectNewRoundName: TAction; |
| 100 |
SelectDeleteRound: TAction; |
SelectDeleteRound: TAction; |
| 101 |
KeySettingAction: TAction; |
KeySettingAction: TAction; |
| 102 |
ArrangeAction: TAction; |
ArrangeAction: TAction; |
| 103 |
ActiveLogDeleteAction: TAction; |
ActiveLogDeleteAction: TAction; |
| 104 |
TreeSelectNameURLCopy: TAction; |
TreeSelectNameURLCopy: TAction; |
| 105 |
PaneInitAction: TAction; |
PaneInitAction: TAction; |
| 106 |
LeftmostTabSelectAction: TAction; |
LeftmostTabSelectAction: TAction; |
| 107 |
LeftTabSelectAction: TAction; |
LeftTabSelectAction: TAction; |
| 108 |
RightTabSelectAction: TAction; |
RightTabSelectAction: TAction; |
| 109 |
RightmostTabSelectAction: TAction; |
RightmostTabSelectAction: TAction; |
| 110 |
FavoriteAddAction: TAction; |
FavoriteAddAction: TAction; |
| 111 |
BoardFavoriteAddAction: TAction; |
BoardFavoriteAddAction: TAction; |
| 112 |
ThreadFavoriteAddAction: TAction; |
ThreadFavoriteAddAction: TAction; |
| 113 |
TreeSelectFavoriteAddAction: TAction; |
TreeSelectFavoriteAddAction: TAction; |
| 114 |
FavoriteArrangeAction: TAction; |
FavoriteArrangeAction: TAction; |
| 115 |
MoveToAction: TAction; |
MoveToAction: TAction; |
| 116 |
BrowserTabVisibleAction: TAction; |
BrowserTabVisibleAction: TAction; |
| 117 |
BrowserTabTopAction: TAction; |
BrowserTabTopAction: TAction; |
| 118 |
BrowserTabBottomAction: TAction; |
BrowserTabBottomAction: TAction; |
| 119 |
BrowserTabTabStyleAction: TAction; |
BrowserTabTabStyleAction: TAction; |
| 120 |
BrowserTabButtonStyleAction: TAction; |
BrowserTabButtonStyleAction: TAction; |
| 121 |
BrowserTabFlatStyleAction: TAction; |
BrowserTabFlatStyleAction: TAction; |
| 122 |
GikoHelpAction: TAction; |
GikoHelpAction: TAction; |
| 123 |
KotehanAction: TAction; |
KotehanAction: TAction; |
| 124 |
ToolBarSettingAction: TAction; |
ToolBarSettingAction: TAction; |
| 125 |
SelectResAction: TAction; |
SelectResAction: TAction; |
| 126 |
AllResAction: TAction; |
AllResAction: TAction; |
| 127 |
EditNGAction: TAction; |
EditNGAction: TAction; |
| 128 |
ReloadAction: TAction; |
ReloadAction: TAction; |
| 129 |
GoFowardAction: TAction; |
GoFowardAction: TAction; |
| 130 |
GoBackAction: TAction; |
GoBackAction: TAction; |
| 131 |
TreeSelectSearchBoardName: TAction; |
TreeSelectSearchBoardName: TAction; |
| 132 |
FavoriteTreeViewRenameAction: TAction; |
FavoriteTreeViewRenameAction: TAction; |
| 133 |
FavoriteTreeViewNewFolderAction: TAction; |
FavoriteTreeViewNewFolderAction: TAction; |
| 134 |
FavoriteTreeViewDeleteAction: TAction; |
FavoriteTreeViewDeleteAction: TAction; |
| 135 |
FavoriteTreeViewBrowseFolderAction: TAction; |
FavoriteTreeViewBrowseFolderAction: TAction; |
| 136 |
FavoriteTreeViewReloadAction: TAction; |
FavoriteTreeViewReloadAction: TAction; |
| 137 |
FavoriteTreeViewURLCopyAction: TAction; |
FavoriteTreeViewURLCopyAction: TAction; |
| 138 |
FavoriteTreeViewNameCopyAction: TAction; |
FavoriteTreeViewNameCopyAction: TAction; |
| 139 |
FavoriteTreeViewNameURLCopyAction: TAction; |
FavoriteTreeViewNameURLCopyAction: TAction; |
| 140 |
FavoriteTreeViewLogDeleteAction: TAction; |
FavoriteTreeViewLogDeleteAction: TAction; |
| 141 |
ResRangeAction: TAction; |
ResRangeAction: TAction; |
| 142 |
ExportFavoriteFile: TFileSaveAs; |
ExportFavoriteFile: TFileSaveAs; |
| 143 |
FavoriteTreeViewBrowseBoardAction: TAction; |
FavoriteTreeViewBrowseBoardAction: TAction; |
| 144 |
FavoriteTreeViewBrowseThreadAction: TAction; |
FavoriteTreeViewBrowseThreadAction: TAction; |
| 145 |
UpBoardAction: TAction; |
UpBoardAction: TAction; |
| 146 |
KoreCopy: TAction; |
KoreCopy: TAction; |
| 147 |
TreeSelectNameCopy: TAction; |
TreeSelectNameCopy: TAction; |
| 148 |
SetFocusForBrowserAction: TAction; |
SetFocusForBrowserAction: TAction; |
| 149 |
SetFocusForThreadListAction: TAction; |
SetFocusForThreadListAction: TAction; |
| 150 |
SetFocusForCabinetAction: TAction; |
SetFocusForCabinetAction: TAction; |
| 151 |
FileRun1: TFileRun; |
FileRun1: TFileRun; |
| 152 |
ThreadlistMaxAndFocusAction: TAction; |
ThreadlistMaxAndFocusAction: TAction; |
| 153 |
BrowserMaxAndFocusAction: TAction; |
BrowserMaxAndFocusAction: TAction; |
| 154 |
SelectItemSaveForHTML: TAction; |
SelectItemSaveForHTML: TAction; |
| 155 |
SelectItemSaveForDat: TAction; |
SelectItemSaveForDat: TAction; |
| 156 |
FileSaveAs1: TFileSaveAs; |
FileSaveAs1: TFileSaveAs; |
| 157 |
LogFolderOpenAction: TAction; |
LogFolderOpenAction: TAction; |
| 158 |
TabsSaveAction: TAction; |
TabsSaveAction: TAction; |
| 159 |
TabsOpenAction: TAction; |
TabsOpenAction: TAction; |
| 160 |
BrowsBoradHeadAction: TAction; |
BrowsBoradHeadAction: TAction; |
| 161 |
TabAutoSaveAction: TAction; |
TabAutoSaveAction: TAction; |
| 162 |
TabAutoLoadAction: TAction; |
TabAutoLoadAction: TAction; |
| 163 |
JumpToNumOfResAction: TAction; |
JumpToNumOfResAction: TAction; |
| 164 |
FavoriteTreeViewCollapseAction: TAction; |
FavoriteTreeViewCollapseAction: TAction; |
| 165 |
RightTabCloseAction: TAction; |
RightTabCloseAction: TAction; |
| 166 |
LeftTabCloseAction: TAction; |
LeftTabCloseAction: TAction; |
| 167 |
SameIDResAnchorAction: TAction; |
SameIDResAnchorAction: TAction; |
| 168 |
IndividualAbon1Action: TAction; |
IndividualAbon1Action: TAction; |
| 169 |
IndividualAbon0Action: TAction; |
IndividualAbon0Action: TAction; |
| 170 |
AntiIndividualAbonAction: TAction; |
AntiIndividualAbonAction: TAction; |
| 171 |
AntiIndividualAbonDlgAction: TAction; |
AntiIndividualAbonDlgAction: TAction; |
| 172 |
IndividualAbonID1Action: TAction; |
IndividualAbonID1Action: TAction; |
| 173 |
IndividualAbonID0Action: TAction; |
IndividualAbonID0Action: TAction; |
| 174 |
MuteAction: TAction; |
MuteAction: TAction; |
| 175 |
SortActiveColumnAction: TAction; |
SortActiveColumnAction: TAction; |
| 176 |
SortNextColumnAction: TAction; |
SortNextColumnAction: TAction; |
| 177 |
SortPrevColumnAction: TAction; |
SortPrevColumnAction: TAction; |
| 178 |
BeLogInOutAction: TAction; |
BeLogInOutAction: TAction; |
| 179 |
UnSelectedListViewAction: TAction; |
UnSelectedListViewAction: TAction; |
| 180 |
WikiFAQWebPageAction: TAction; |
WikiFAQWebPageAction: TAction; |
| 181 |
ToobarImageList: TImageList; |
ToobarImageList: TImageList; |
| 182 |
procedure EditNGActionExecute(Sender: TObject); |
procedure EditNGActionExecute(Sender: TObject); |
| 183 |
procedure ReloadActionExecute(Sender: TObject); |
procedure ReloadActionExecute(Sender: TObject); |
| 184 |
procedure GoFowardActionExecute(Sender: TObject); |
procedure GoFowardActionExecute(Sender: TObject); |
| 185 |
procedure GoBackActionExecute(Sender: TObject); |
procedure GoBackActionExecute(Sender: TObject); |
| 186 |
procedure MoveToActionExecute(Sender: TObject); |
procedure MoveToActionExecute(Sender: TObject); |
| 187 |
procedure FavoriteAddActionExecute(Sender: TObject); |
procedure FavoriteAddActionExecute(Sender: TObject); |
| 188 |
procedure FavoriteArrangeActionExecute(Sender: TObject); |
procedure FavoriteArrangeActionExecute(Sender: TObject); |
| 189 |
procedure FavoriteTreeViewCollapseActionExecute(Sender: TObject); |
procedure FavoriteTreeViewCollapseActionExecute(Sender: TObject); |
| 190 |
procedure FavoriteTreeViewRenameActionExecute(Sender: TObject); |
procedure FavoriteTreeViewRenameActionExecute(Sender: TObject); |
| 191 |
procedure FavoriteTreeViewNewFolderActionExecute(Sender: TObject); |
procedure FavoriteTreeViewNewFolderActionExecute(Sender: TObject); |
| 192 |
procedure FavoriteTreeViewDeleteActionExecute(Sender: TObject); |
procedure FavoriteTreeViewDeleteActionExecute(Sender: TObject); |
| 193 |
procedure FavoriteTreeViewBrowseFolderActionExecute(Sender: TObject); |
procedure FavoriteTreeViewBrowseFolderActionExecute(Sender: TObject); |
| 194 |
procedure FavoriteTreeViewReloadActionExecute(Sender: TObject); |
procedure FavoriteTreeViewReloadActionExecute(Sender: TObject); |
| 195 |
procedure FavoriteTreeViewURLCopyActionExecute(Sender: TObject); |
procedure FavoriteTreeViewURLCopyActionExecute(Sender: TObject); |
| 196 |
procedure FavoriteTreeViewNameCopyActionExecute(Sender: TObject); |
procedure FavoriteTreeViewNameCopyActionExecute(Sender: TObject); |
| 197 |
procedure FavoriteTreeViewNameURLCopyActionExecute(Sender: TObject); |
procedure FavoriteTreeViewNameURLCopyActionExecute(Sender: TObject); |
| 198 |
procedure FavoriteTreeViewLogDeleteActionExecute(Sender: TObject); |
procedure FavoriteTreeViewLogDeleteActionExecute(Sender: TObject); |
| 199 |
procedure FavoriteTreeViewBrowseThreadActionExecute(Sender: TObject); |
procedure FavoriteTreeViewBrowseThreadActionExecute(Sender: TObject); |
| 200 |
procedure OnlyAHundredResActionExecute(Sender: TObject); |
procedure OnlyAHundredResActionExecute(Sender: TObject); |
| 201 |
procedure OnlyKokoResActionExecute(Sender: TObject); |
procedure OnlyKokoResActionExecute(Sender: TObject); |
| 202 |
procedure OnlyNewResActionExecute(Sender: TObject); |
procedure OnlyNewResActionExecute(Sender: TObject); |
| 203 |
procedure BrowserMaxActionExecute(Sender: TObject); |
procedure BrowserMaxActionExecute(Sender: TObject); |
| 204 |
procedure BrowserMinActionExecute(Sender: TObject); |
procedure BrowserMinActionExecute(Sender: TObject); |
| 205 |
procedure ScrollTopActionExecute(Sender: TObject); |
procedure ScrollTopActionExecute(Sender: TObject); |
| 206 |
procedure ScrollLastActionExecute(Sender: TObject); |
procedure ScrollLastActionExecute(Sender: TObject); |
| 207 |
procedure ScrollNewActionExecute(Sender: TObject); |
procedure ScrollNewActionExecute(Sender: TObject); |
| 208 |
procedure ScrollKokoActionExecute(Sender: TObject); |
procedure ScrollKokoActionExecute(Sender: TObject); |
| 209 |
procedure ScrollKokoActionUpdate(Sender: TObject); |
procedure ScrollKokoActionUpdate(Sender: TObject); |
| 210 |
procedure EditorActionExecute(Sender: TObject); |
procedure EditorActionExecute(Sender: TObject); |
| 211 |
procedure IEActionExecute(Sender: TObject); |
procedure IEActionExecute(Sender: TObject); |
| 212 |
procedure ShowThreadActionExecute(Sender: TObject); |
procedure ShowThreadActionExecute(Sender: TObject); |
| 213 |
procedure ShowBoardActionExecute(Sender: TObject); |
procedure ShowBoardActionExecute(Sender: TObject); |
| 214 |
procedure URLCopyActionExecute(Sender: TObject); |
procedure URLCopyActionExecute(Sender: TObject); |
| 215 |
procedure NameCopyActionExecute(Sender: TObject); |
procedure NameCopyActionExecute(Sender: TObject); |
| 216 |
procedure NameURLCopyActionExecute(Sender: TObject); |
procedure NameURLCopyActionExecute(Sender: TObject); |
| 217 |
procedure ItemReloadActionExecute(Sender: TObject); |
procedure ItemReloadActionExecute(Sender: TObject); |
| 218 |
procedure BrowserTabCloseActionExecute(Sender: TObject); |
procedure BrowserTabCloseActionExecute(Sender: TObject); |
| 219 |
procedure BrowserTabCloseActionUpdate(Sender: TObject); |
procedure BrowserTabCloseActionUpdate(Sender: TObject); |
| 220 |
procedure NotSelectTabCloseActionExecute(Sender: TObject); |
procedure NotSelectTabCloseActionExecute(Sender: TObject); |
| 221 |
procedure NotSelectTabCloseActionUpdate(Sender: TObject); |
procedure NotSelectTabCloseActionUpdate(Sender: TObject); |
| 222 |
procedure AllTabCloseActionExecute(Sender: TObject); |
procedure AllTabCloseActionExecute(Sender: TObject); |
| 223 |
procedure ActiveLogDeleteActionExecute(Sender: TObject); |
procedure ActiveLogDeleteActionExecute(Sender: TObject); |
| 224 |
procedure LeftmostTabSelectActionExecute(Sender: TObject); |
procedure LeftmostTabSelectActionExecute(Sender: TObject); |
| 225 |
procedure LeftmostTabSelectActionUpdate(Sender: TObject); |
procedure LeftmostTabSelectActionUpdate(Sender: TObject); |
| 226 |
procedure LeftTabSelectActionExecute(Sender: TObject); |
procedure LeftTabSelectActionExecute(Sender: TObject); |
| 227 |
procedure RightTabSelectActionExecute(Sender: TObject); |
procedure RightTabSelectActionExecute(Sender: TObject); |
| 228 |
procedure RightTabSelectActionUpdate(Sender: TObject); |
procedure RightTabSelectActionUpdate(Sender: TObject); |
| 229 |
procedure RightmostTabSelectActionExecute(Sender: TObject); |
procedure RightmostTabSelectActionExecute(Sender: TObject); |
| 230 |
procedure ThreadFavoriteAddActionExecute(Sender: TObject); |
procedure ThreadFavoriteAddActionExecute(Sender: TObject); |
| 231 |
procedure ThreadFavoriteAddActionUpdate(Sender: TObject); |
procedure ThreadFavoriteAddActionUpdate(Sender: TObject); |
| 232 |
procedure SelectResActionExecute(Sender: TObject); |
procedure SelectResActionExecute(Sender: TObject); |
| 233 |
procedure AllResActionExecute(Sender: TObject); |
procedure AllResActionExecute(Sender: TObject); |
| 234 |
procedure ResRangeActionExecute(Sender: TObject); |
procedure ResRangeActionExecute(Sender: TObject); |
| 235 |
procedure UpBoardActionExecute(Sender: TObject); |
procedure UpBoardActionExecute(Sender: TObject); |
| 236 |
procedure JumpToNumOfResActionExecute(Sender: TObject); |
procedure JumpToNumOfResActionExecute(Sender: TObject); |
| 237 |
procedure RightTabCloseActionExecute(Sender: TObject); |
procedure RightTabCloseActionExecute(Sender: TObject); |
| 238 |
procedure RightTabCloseActionUpdate(Sender: TObject); |
procedure RightTabCloseActionUpdate(Sender: TObject); |
| 239 |
procedure LeftTabCloseActionExecute(Sender: TObject); |
procedure LeftTabCloseActionExecute(Sender: TObject); |
| 240 |
procedure DataModuleCreate(Sender: TObject); |
procedure DataModuleCreate(Sender: TObject); |
| 241 |
procedure SearchActionExecute(Sender: TObject); |
procedure SearchActionExecute(Sender: TObject); |
| 242 |
procedure OptionActionExecute(Sender: TObject); |
procedure OptionActionExecute(Sender: TObject); |
| 243 |
procedure RoundActionExecute(Sender: TObject); |
procedure RoundActionExecute(Sender: TObject); |
| 244 |
procedure KeySettingActionExecute(Sender: TObject); |
procedure KeySettingActionExecute(Sender: TObject); |
| 245 |
procedure KotehanActionExecute(Sender: TObject); |
procedure KotehanActionExecute(Sender: TObject); |
| 246 |
procedure ToolBarSettingActionExecute(Sender: TObject); |
procedure ToolBarSettingActionExecute(Sender: TObject); |
| 247 |
procedure MuteActionExecute(Sender: TObject); |
procedure MuteActionExecute(Sender: TObject); |
| 248 |
procedure TreeSelectBoradReloadExecute(Sender: TObject); |
procedure TreeSelectBoradReloadExecute(Sender: TObject); |
| 249 |
procedure TreeSelectThreadReloadExecute(Sender: TObject); |
procedure TreeSelectThreadReloadExecute(Sender: TObject); |
| 250 |
procedure TreeSelectURLCopyExecute(Sender: TObject); |
procedure TreeSelectURLCopyExecute(Sender: TObject); |
| 251 |
procedure TreeSelectNameURLCopyExecute(Sender: TObject); |
procedure TreeSelectNameURLCopyExecute(Sender: TObject); |
| 252 |
procedure TreeSelectFavoriteAddActionExecute(Sender: TObject); |
procedure TreeSelectFavoriteAddActionExecute(Sender: TObject); |
| 253 |
procedure TreeSelectSearchBoardNameExecute(Sender: TObject); |
procedure TreeSelectSearchBoardNameExecute(Sender: TObject); |
| 254 |
procedure TreeSelectNameCopyExecute(Sender: TObject); |
procedure TreeSelectNameCopyExecute(Sender: TObject); |
| 255 |
procedure LoginActionExecute(Sender: TObject); |
procedure LoginActionExecute(Sender: TObject); |
| 256 |
procedure NewBoardActionExecute(Sender: TObject); |
procedure NewBoardActionExecute(Sender: TObject); |
| 257 |
procedure LogDeleteActionExecute(Sender: TObject); |
procedure LogDeleteActionExecute(Sender: TObject); |
| 258 |
procedure LogDeleteActionUpdate(Sender: TObject); |
procedure LogDeleteActionUpdate(Sender: TObject); |
| 259 |
procedure SelectTextClearActionExecute(Sender: TObject); |
procedure SelectTextClearActionExecute(Sender: TObject); |
| 260 |
procedure NameTextClearActionExecute(Sender: TObject); |
procedure NameTextClearActionExecute(Sender: TObject); |
| 261 |
procedure MailTextClearActionExecute(Sender: TObject); |
procedure MailTextClearActionExecute(Sender: TObject); |
| 262 |
procedure ExitActionExecute(Sender: TObject); |
procedure ExitActionExecute(Sender: TObject); |
| 263 |
procedure ExportFavoriteFileBeforeExecute(Sender: TObject); |
procedure ExportFavoriteFileBeforeExecute(Sender: TObject); |
| 264 |
procedure ExportFavoriteFileAccept(Sender: TObject); |
procedure ExportFavoriteFileAccept(Sender: TObject); |
| 265 |
procedure SelectItemSaveForHTMLExecute(Sender: TObject); |
procedure SelectItemSaveForHTMLExecute(Sender: TObject); |
| 266 |
procedure SelectItemSaveForDatExecute(Sender: TObject); |
procedure SelectItemSaveForDatExecute(Sender: TObject); |
| 267 |
procedure TabsSaveActionExecute(Sender: TObject); |
procedure TabsSaveActionExecute(Sender: TObject); |
| 268 |
procedure TabsOpenActionExecute(Sender: TObject); |
procedure TabsOpenActionExecute(Sender: TObject); |
| 269 |
procedure TabAutoSaveActionExecute(Sender: TObject); |
procedure TabAutoSaveActionExecute(Sender: TObject); |
| 270 |
procedure TabAutoLoadActionExecute(Sender: TObject); |
procedure TabAutoLoadActionExecute(Sender: TObject); |
| 271 |
procedure BeLogInOutActionExecute(Sender: TObject); |
procedure BeLogInOutActionExecute(Sender: TObject); |
| 272 |
procedure BeLogInOutActionUpdate(Sender: TObject); |
procedure BeLogInOutActionUpdate(Sender: TObject); |
| 273 |
|
procedure KokomadeActionExecute(Sender: TObject); |
| 274 |
|
procedure ZenbuActionExecute(Sender: TObject); |
| 275 |
|
procedure KokoResActionExecute(Sender: TObject); |
| 276 |
|
procedure KoreCopyExecute(Sender: TObject); |
| 277 |
|
procedure SameIDResAnchorActionExecute(Sender: TObject); |
| 278 |
|
procedure IndividualAbon1ActionExecute(Sender: TObject); |
| 279 |
|
procedure IndividualAbon0ActionExecute(Sender: TObject); |
| 280 |
|
procedure AntiIndividualAbonActionExecute(Sender: TObject); |
| 281 |
|
procedure AntiIndividualAbonDlgActionExecute(Sender: TObject); |
| 282 |
|
procedure IndividualAbonID1ActionExecute(Sender: TObject); |
| 283 |
|
procedure IndividualAbonID0ActionExecute(Sender: TObject); |
| 284 |
|
procedure GikoNaviWebPageActionExecute(Sender: TObject); |
| 285 |
|
procedure MonazillaWebPageActionExecute(Sender: TObject); |
| 286 |
|
procedure BBS2chWebPageActionExecute(Sender: TObject); |
| 287 |
|
procedure GikoFolderOpenActionExecute(Sender: TObject); |
| 288 |
|
procedure AboutActionExecute(Sender: TObject); |
| 289 |
|
procedure GikoHelpActionExecute(Sender: TObject); |
| 290 |
|
procedure WikiFAQWebPageActionExecute(Sender: TObject); |
| 291 |
private |
private |
| 292 |
{ Private 宣言 } |
{ Private 宣言 } |
| 293 |
public |
public |
| 308 |
implementation |
implementation |
| 309 |
|
|
| 310 |
uses |
uses |
| 311 |
Windows, Math, Messages, Dialogs, Clipbrd, |
Windows, Math, Messages, Dialogs, Clipbrd, |
| 312 |
Giko, GikoSystem, GikoUtil, BoardGroup, |
Giko, GikoSystem, GikoUtil, BoardGroup, |
| 313 |
FavoriteArrange, Favorite, Setting, MojuUtils, |
FavoriteArrange, Favorite, Setting, MojuUtils, |
| 314 |
Editor, ListSelect, Search, Option, Round, |
Editor, ListSelect, Search, Option, Round, |
| 315 |
KeySetting, Gesture, Kotehan, ToolBarSetting, |
KeySetting, Gesture, Kotehan, ToolBarSetting, |
| 316 |
ToolBarUtil, NewBoard, HTMLCreate; |
ToolBarUtil, NewBoard, HTMLCreate, IndividualAbon, |
| 317 |
|
GikoBayesian, About, ShellAPI; |
| 318 |
|
|
| 319 |
|
|
| 320 |
const |
const |
| 332 |
TOOL_ICON_FAV_BOARD = 31; //お気に入り板アイコン |
TOOL_ICON_FAV_BOARD = 31; //お気に入り板アイコン |
| 333 |
TOOL_ICON_FAV_THREAD = 32; //お気に入りスレアイコン |
TOOL_ICON_FAV_THREAD = 32; //お気に入りスレアイコン |
| 334 |
|
|
| 335 |
|
URL_GIKONAVI: string = 'http://gikonavi.sourceforge.jp/'; |
| 336 |
|
URL_MONAZILLA: string = 'http://www.monazilla.org/'; |
| 337 |
|
URL_2ch: string = 'http://www.2ch.net/'; |
| 338 |
|
URL_Wiki: string = 'http://gikowiki.dyndns.info/index.php?FAQ'; |
| 339 |
|
|
| 340 |
{$R *.dfm} |
{$R *.dfm} |
| 341 |
// ************************************************************************* |
// ************************************************************************* |
| 342 |
// TActionでGetActiveContentがnil以外で有効になる |
// TActionでGetActiveContentがnil以外で有効になる |
| 2232 |
BeLogInOutAction.Enabled := false; |
BeLogInOutAction.Enabled := false; |
| 2233 |
end; |
end; |
| 2234 |
////////////////////////////////ファイルまでおしまい///////////////////// |
////////////////////////////////ファイルまでおしまい///////////////////// |
| 2235 |
|
// ************************************************************************* |
| 2236 |
|
// ココまで読んだ |
| 2237 |
|
// ************************************************************************* |
| 2238 |
|
procedure TGikoDM.KokomadeActionExecute(Sender: TObject); |
| 2239 |
|
var |
| 2240 |
|
No: Integer; |
| 2241 |
|
ThreadItem: TThreadItem; |
| 2242 |
|
begin |
| 2243 |
|
No := GikoForm.KokoPopupMenu.Tag; |
| 2244 |
|
if No = 0 then Exit; |
| 2245 |
|
ThreadItem := GikoForm.GetActiveContent; |
| 2246 |
|
if ThreadItem = nil then Exit; |
| 2247 |
|
ThreadItem.Kokomade := No; |
| 2248 |
|
GikoForm.ActiveContent.Thread.ScrollTop := |
| 2249 |
|
OleVariant(IHTMLDocument2(GikoForm.ActiveContent.Browser.Document)).Body.ScrollTop; |
| 2250 |
|
GikoForm.ActiveContent.Repaint := true; |
| 2251 |
|
GikoForm.InsertBrowserTab(GikoForm.ActiveContent.Thread, true); |
| 2252 |
|
//INFO 2005/11/19 一旦隠蔽、必要ならGikoFormの方にメソッドを追加する |
| 2253 |
|
//Application.ProcessMessages; |
| 2254 |
|
end; |
| 2255 |
|
// ************************************************************************* |
| 2256 |
|
// 全部読んだ |
| 2257 |
|
// ************************************************************************* |
| 2258 |
|
procedure TGikoDM.ZenbuActionExecute(Sender: TObject); |
| 2259 |
|
var |
| 2260 |
|
ThreadItem: TThreadItem; |
| 2261 |
|
begin |
| 2262 |
|
ThreadItem := GikoForm.GetActiveContent; |
| 2263 |
|
if ThreadItem = nil then Exit; |
| 2264 |
|
ThreadItem.Kokomade := -1; |
| 2265 |
|
GikoForm.ActiveContent.Thread.ScrollTop := |
| 2266 |
|
OleVariant(IHTMLDocument2(GikoForm.ActiveContent.Browser.Document)).Body.ScrollTop; |
| 2267 |
|
GikoForm.ActiveContent.Repaint := true; |
| 2268 |
|
GikoForm.InsertBrowserTab(GikoForm.ActiveContent.Thread, true); |
| 2269 |
|
//INFO 2005/11/19 一旦隠蔽、必要ならGikoFormの方にメソッドを追加する |
| 2270 |
|
//Application.ProcessMessages; |
| 2271 |
|
end; |
| 2272 |
|
// ************************************************************************* |
| 2273 |
|
// ココにレス |
| 2274 |
|
// ************************************************************************* |
| 2275 |
|
procedure TGikoDM.KokoResActionExecute(Sender: TObject); |
| 2276 |
|
var |
| 2277 |
|
Editor: TEditorForm; |
| 2278 |
|
Item: TThreadItem; |
| 2279 |
|
Number: Integer; |
| 2280 |
|
begin |
| 2281 |
|
Number := GikoForm.KokoPopupMenu.Tag; |
| 2282 |
|
if Number = 0 then Exit; |
| 2283 |
|
Item := GikoForm.GetActiveContent; |
| 2284 |
|
if Item = nil then Exit; |
| 2285 |
|
|
| 2286 |
|
Editor := TEditorForm.Create(Self); |
| 2287 |
|
Editor.SetThreadItem(Item); |
| 2288 |
|
GikoSys.LoadEditorKeySetting(Editor.ActionList); |
| 2289 |
|
Editor.BodyEdit.Text := '>>' + IntToStr(Number) + #13#10; |
| 2290 |
|
Editor.Show; |
| 2291 |
|
Editor.BodyEdit.SetFocus; |
| 2292 |
|
end; |
| 2293 |
|
// ************************************************************************* |
| 2294 |
|
// 選択したレスをコピーする |
| 2295 |
|
// ************************************************************************* |
| 2296 |
|
procedure TGikoDM.KoreCopyExecute(Sender: TObject); |
| 2297 |
|
begin |
| 2298 |
|
GikoForm.KonoresCopy(GikoForm.KokoPopupMenu.Tag, true); |
| 2299 |
|
end; |
| 2300 |
|
// ************************************************************************* |
| 2301 |
|
// 選択したレスをコピーする |
| 2302 |
|
// ************************************************************************* |
| 2303 |
|
procedure TGikoDM.SameIDResAnchorActionExecute(Sender: TObject); |
| 2304 |
|
var |
| 2305 |
|
ThreadItem : TThreadItem; |
| 2306 |
|
No, count, rc : Integer; |
| 2307 |
|
body : string; |
| 2308 |
|
limited: boolean; |
| 2309 |
|
begin |
| 2310 |
|
No := GikoForm.KokoPopupMenu.Tag; |
| 2311 |
|
if No = 0 then Exit; |
| 2312 |
|
ThreadItem := GikoForm.GetActiveContent; |
| 2313 |
|
if ThreadItem = nil then Exit; |
| 2314 |
|
count := GikoSys.GetSameIDResCount(No, GikoForm.ActiveContent.Thread); |
| 2315 |
|
limited := false; |
| 2316 |
|
if count > 20 then begin |
| 2317 |
|
rc := GikoUtil.MsgBox(GikoForm.Handle, |
| 2318 |
|
'20個以上ありますが、すべて表示しますか?', |
| 2319 |
|
'IDポップアップ警告', |
| 2320 |
|
MB_YESNO or MB_ICONQUESTION); |
| 2321 |
|
limited := rc <> ID_YES; |
| 2322 |
|
end; |
| 2323 |
|
body := GikoSys.GetSameIDResAnchor(No, ThreadItem, limited); |
| 2324 |
|
GikoForm.IDAnchorPopup(body); |
| 2325 |
|
end; |
| 2326 |
|
// ************************************************************************* |
| 2327 |
|
// このレスあぼ〜ん (通常) |
| 2328 |
|
// ************************************************************************* |
| 2329 |
|
procedure TGikoDM.IndividualAbon1ActionExecute(Sender: TObject); |
| 2330 |
|
begin |
| 2331 |
|
GikoForm.IndividualAbon(GikoForm.KokoPopupMenu.Tag, 1); |
| 2332 |
|
end; |
| 2333 |
|
// ************************************************************************* |
| 2334 |
|
// このレスあぼ〜ん (透明) |
| 2335 |
|
// ************************************************************************* |
| 2336 |
|
procedure TGikoDM.IndividualAbon0ActionExecute(Sender: TObject); |
| 2337 |
|
begin |
| 2338 |
|
GikoForm.IndividualAbon(GikoForm.KokoPopupMenu.Tag, 0); |
| 2339 |
|
end; |
| 2340 |
|
// ************************************************************************* |
| 2341 |
|
// このレスあぼ〜ん解除 |
| 2342 |
|
// ************************************************************************* |
| 2343 |
|
procedure TGikoDM.AntiIndividualAbonActionExecute(Sender: TObject); |
| 2344 |
|
var |
| 2345 |
|
IndividualForm :TIndividualAbonForm; |
| 2346 |
|
ThreadItem : TThreadItem; |
| 2347 |
|
msg : String; |
| 2348 |
|
ReadList : TStringList; |
| 2349 |
|
wordCount : TWordCount; |
| 2350 |
|
begin |
| 2351 |
|
IndividualForm := TIndividualAbonForm.Create(Self); |
| 2352 |
|
try |
| 2353 |
|
ThreadItem := GikoForm.GetActiveContent; |
| 2354 |
|
ThreadItem.ScrollTop := |
| 2355 |
|
OleVariant(IHTMLDocument2(GikoForm.ActiveContent.Browser.Document)).Body.ScrollTop; |
| 2356 |
|
if (ThreadItem <> nil) and (ThreadItem.IsLogFile) then begin |
| 2357 |
|
if IndividualForm.SetThreadLogFileName(ThreadItem.GetThreadFileName) then begin |
| 2358 |
|
ReadList := TStringList.Create; |
| 2359 |
|
wordCount := TWordCount.Create; |
| 2360 |
|
try |
| 2361 |
|
{$IFDEF SPAM_FILTER_ENABLED} |
| 2362 |
|
// スパムを解除 |
| 2363 |
|
ReadList.LoadFromFile( ThreadItem.GetThreadFileName ); |
| 2364 |
|
GikoSys.SpamCountWord( ReadList[ KokoPopupMenu.Tag - 1 ], wordCount ); |
| 2365 |
|
GikoSys.SpamForget( wordCount, True ); // スパムを解除 |
| 2366 |
|
GikoSys.SpamLearn( wordCount, False ); // ハムに設定 |
| 2367 |
|
{$ENDIF} |
| 2368 |
|
if IndividualForm.DeleteNG(GikoForm.KokoPopupMenu.Tag) then begin |
| 2369 |
|
GikoForm.ActiveContent.Repaint := true; |
| 2370 |
|
GikoForm.InsertBrowserTab( ThreadItem, True ); |
| 2371 |
|
end; |
| 2372 |
|
finally |
| 2373 |
|
wordCount.Free; |
| 2374 |
|
ReadList.Free; |
| 2375 |
|
end; |
| 2376 |
|
end else begin |
| 2377 |
|
msg := 'このスレッドでは個別あぼ〜んを行ってません'; |
| 2378 |
|
MsgBox(GikoForm.Handle, msg, 'メッセージ', MB_OK); |
| 2379 |
|
end; |
| 2380 |
|
end; |
| 2381 |
|
finally |
| 2382 |
|
IndividualForm.Release; |
| 2383 |
|
end; |
| 2384 |
|
end; |
| 2385 |
|
// ************************************************************************* |
| 2386 |
|
// このレスあぼ〜ん解除レス番号指定(ダイアログ表示) |
| 2387 |
|
// ************************************************************************* |
| 2388 |
|
procedure TGikoDM.AntiIndividualAbonDlgActionExecute(Sender: TObject); |
| 2389 |
|
var |
| 2390 |
|
IndividualForm :TIndividualAbonForm; |
| 2391 |
|
ThreadItem : TThreadItem; |
| 2392 |
|
msg : String; |
| 2393 |
|
ReadList : TStringList; |
| 2394 |
|
wordCount : TWordCount; |
| 2395 |
|
{$IFDEF SPAM_FILTER_ENABLED} |
| 2396 |
|
i : Integer; |
| 2397 |
|
{$ENDIF} |
| 2398 |
|
begin |
| 2399 |
|
IndividualForm := TIndividualAbonForm.Create(Self); |
| 2400 |
|
try |
| 2401 |
|
ThreadItem := GikoForm.GetActiveContent; |
| 2402 |
|
ThreadItem.ScrollTop := |
| 2403 |
|
OleVariant(IHTMLDocument2(GikoForm.ActiveContent.Browser.Document)).Body.ScrollTop; |
| 2404 |
|
if (ThreadItem <> nil) and (ThreadItem.IsLogFile) then begin |
| 2405 |
|
if IndividualForm.SetThreadLogFileName(ThreadItem.GetThreadFileName) then begin |
| 2406 |
|
if (IndividualForm.ShowModal = mrOK) then begin |
| 2407 |
|
ReadList := TStringList.Create; |
| 2408 |
|
wordCount := TWordCount.Create; |
| 2409 |
|
try |
| 2410 |
|
{$IFDEF SPAM_FILTER_ENABLED} |
| 2411 |
|
// スパムを解除 |
| 2412 |
|
ReadList.LoadFromFile( ThreadItem.GetThreadFileName ); |
| 2413 |
|
for i := 0 to IndividualForm.DeleteList.Count - 1 do begin |
| 2414 |
|
GikoSys.SpamCountWord( ReadList[ StrToInt(IndividualForm.DeleteList[i]) - 1 ], wordCount ); |
| 2415 |
|
GikoSys.SpamForget( wordCount, True ); // スパムを解除 |
| 2416 |
|
GikoSys.SpamLearn( wordCount, False ); // ハムに設定 |
| 2417 |
|
end; |
| 2418 |
|
{$ENDIF} |
| 2419 |
|
if IndividualForm.FRepaint then begin |
| 2420 |
|
GikoForm.ActiveContent.Repaint := true; |
| 2421 |
|
GikoForm.InsertBrowserTab( ThreadItem, True ); |
| 2422 |
|
end; |
| 2423 |
|
finally |
| 2424 |
|
wordCount.Free; |
| 2425 |
|
ReadList.Free; |
| 2426 |
|
end; |
| 2427 |
|
end; |
| 2428 |
|
end else begin |
| 2429 |
|
msg := 'このスレッドでは個別あぼ〜んを行ってません'; |
| 2430 |
|
MsgBox(GikoForm.Handle, msg, 'メッセージ', MB_OK); |
| 2431 |
|
end; |
| 2432 |
|
end; |
| 2433 |
|
finally |
| 2434 |
|
IndividualForm.Release; |
| 2435 |
|
end; |
| 2436 |
|
end; |
| 2437 |
|
// ************************************************************************* |
| 2438 |
|
// このIDあぼ〜ん 通常 |
| 2439 |
|
// ************************************************************************* |
| 2440 |
|
procedure TGikoDM.IndividualAbonID1ActionExecute(Sender: TObject); |
| 2441 |
|
begin |
| 2442 |
|
GikoForm.IndividualAbonID(1); |
| 2443 |
|
end; |
| 2444 |
|
// ************************************************************************* |
| 2445 |
|
// このIDあぼ〜ん 透明 |
| 2446 |
|
// ************************************************************************* |
| 2447 |
|
procedure TGikoDM.IndividualAbonID0ActionExecute(Sender: TObject); |
| 2448 |
|
begin |
| 2449 |
|
GikoForm.IndividualAbonID(0); |
| 2450 |
|
end; |
| 2451 |
|
////////////////////////////////ブラウザポップアップまでおしまい///////////////////// |
| 2452 |
|
// ************************************************************************* |
| 2453 |
|
// ギコナビのウェブサイトを表示する |
| 2454 |
|
// ************************************************************************* |
| 2455 |
|
procedure TGikoDM.GikoNaviWebPageActionExecute(Sender: TObject); |
| 2456 |
|
begin |
| 2457 |
|
GikoSys.OpenBrowser(URL_GIKONAVI, gbtAuto); |
| 2458 |
|
end; |
| 2459 |
|
// ************************************************************************* |
| 2460 |
|
// モナジラのウェブサイトを表示する |
| 2461 |
|
// ************************************************************************* |
| 2462 |
|
procedure TGikoDM.MonazillaWebPageActionExecute(Sender: TObject); |
| 2463 |
|
begin |
| 2464 |
|
GikoSys.OpenBrowser(URL_MONAZILLA, gbtAuto); |
| 2465 |
|
end; |
| 2466 |
|
// ************************************************************************* |
| 2467 |
|
// 2ちゃんねるトップページを表示する |
| 2468 |
|
// ************************************************************************* |
| 2469 |
|
procedure TGikoDM.BBS2chWebPageActionExecute(Sender: TObject); |
| 2470 |
|
begin |
| 2471 |
|
GikoSys.OpenBrowser(URL_2ch, gbtAuto); |
| 2472 |
|
end; |
| 2473 |
|
// ************************************************************************* |
| 2474 |
|
// ギコナビのフォルダを開く |
| 2475 |
|
// ************************************************************************* |
| 2476 |
|
procedure TGikoDM.GikoFolderOpenActionExecute(Sender: TObject); |
| 2477 |
|
begin |
| 2478 |
|
GikoSys.CreateProcess('explorer.exe', '/e,"' + GikoSys.GetAppDir + '"'); |
| 2479 |
|
end; |
| 2480 |
|
// ************************************************************************* |
| 2481 |
|
// バージョン情報を表示する |
| 2482 |
|
// ************************************************************************* |
| 2483 |
|
procedure TGikoDM.AboutActionExecute(Sender: TObject); |
| 2484 |
|
var |
| 2485 |
|
Dlg: TAboutDialog; |
| 2486 |
|
begin |
| 2487 |
|
Dlg := TAboutDialog.Create(Self); |
| 2488 |
|
try |
| 2489 |
|
Dlg.ShowModal; |
| 2490 |
|
finally |
| 2491 |
|
Dlg.Release; |
| 2492 |
|
end; |
| 2493 |
|
end; |
| 2494 |
|
// ************************************************************************* |
| 2495 |
|
// ギコナビのヘルプを表示する |
| 2496 |
|
// ************************************************************************* |
| 2497 |
|
procedure TGikoDM.GikoHelpActionExecute(Sender: TObject); |
| 2498 |
|
var |
| 2499 |
|
FileName: string; |
| 2500 |
|
begin |
| 2501 |
|
FileName := GikoSys.GetAppDir + 'batahlp.chm'; |
| 2502 |
|
if not FileExists(FileName) then begin |
| 2503 |
|
MsgBox( |
| 2504 |
|
GikoForm.Handle, |
| 2505 |
|
'ヘルプが見つかりませんでした' + #13#10 + |
| 2506 |
|
'ヘルプファイルをギコナビのフォルダに置いてください' + #13#10 + |
| 2507 |
|
'ヘルプはギコナビのサイトに置いてあります', |
| 2508 |
|
'エラー', |
| 2509 |
|
MB_ICONSTOP); |
| 2510 |
|
Exit; |
| 2511 |
|
end; |
| 2512 |
|
ShellExecute(GikoForm.Handle, 'open', PChar(FileName), '', PChar(GikoSys.GetAppDir), SW_SHOW); |
| 2513 |
|
end; |
| 2514 |
|
// ************************************************************************* |
| 2515 |
|
// ギコナビWikiのウェブサイトを表示する |
| 2516 |
|
// ************************************************************************* |
| 2517 |
|
procedure TGikoDM.WikiFAQWebPageActionExecute(Sender: TObject); |
| 2518 |
|
begin |
| 2519 |
|
GikoSys.OpenBrowser(URL_Wiki, gbtAuto); |
| 2520 |
|
end; |
| 2521 |
|
////////////////////////////////ヘルプまでおしまい///////////////////// |
| 2522 |
|
|
| 2523 |
end. |
end. |
| 2524 |
|
|