| 13 |
{$IFEND} |
{$IFEND} |
| 14 |
ComCtrls; |
ComCtrls; |
| 15 |
|
|
| 16 |
|
|
| 17 |
type |
type |
| 18 |
TGikoDM = class(TDataModule) |
TGikoDM = class(TDataModule) |
| 19 |
GikoFormActionList: TActionList; |
GikoFormActionList: TActionList; |
| 319 |
procedure LogFolderOpenActionUpdate(Sender: TObject); |
procedure LogFolderOpenActionUpdate(Sender: TObject); |
| 320 |
procedure BrowsBoradHeadActionExecute(Sender: TObject); |
procedure BrowsBoradHeadActionExecute(Sender: TObject); |
| 321 |
procedure SortActiveColumnActionExecute(Sender: TObject); |
procedure SortActiveColumnActionExecute(Sender: TObject); |
| 322 |
procedure SortNextColumnActionExecute(Sender: TObject); |
procedure SortNextColumnActionExecute(Sender: TObject); |
| 323 |
procedure SortPrevColumnActionExecute(Sender: TObject); |
procedure SortPrevColumnActionExecute(Sender: TObject); |
| 324 |
procedure StdToolBarVisibleActionExecute(Sender: TObject); |
procedure StdToolBarVisibleActionExecute(Sender: TObject); |
| 325 |
procedure AddressBarVisibleActionExecute(Sender: TObject); |
procedure AddressBarVisibleActionExecute(Sender: TObject); |
| 326 |
procedure LinkBarVisibleActionExecute(Sender: TObject); |
procedure LinkBarVisibleActionExecute(Sender: TObject); |
| 327 |
procedure ListToolBarVisibleActionExecute(Sender: TObject); |
procedure ListToolBarVisibleActionExecute(Sender: TObject); |
| 328 |
procedure ListNameBarVisibleActionExecute(Sender: TObject); |
procedure ListNameBarVisibleActionExecute(Sender: TObject); |
| 329 |
procedure BrowserToolBarVisibleActionExecute(Sender: TObject); |
procedure BrowserToolBarVisibleActionExecute(Sender: TObject); |
| 330 |
procedure BrowserNameBarVisibleActionExecute(Sender: TObject); |
procedure BrowserNameBarVisibleActionExecute(Sender: TObject); |
| 331 |
procedure MsgBarVisibleActionExecute(Sender: TObject); |
procedure MsgBarVisibleActionExecute(Sender: TObject); |
| 332 |
procedure MsgBarCloseActionExecute(Sender: TObject); |
procedure MsgBarCloseActionExecute(Sender: TObject); |
| 333 |
procedure StatusBarVisibleActionExecute(Sender: TObject); |
procedure StatusBarVisibleActionExecute(Sender: TObject); |
| 334 |
procedure CabinetBBSActionExecute(Sender: TObject); |
procedure CabinetBBSActionExecute(Sender: TObject); |
| 335 |
procedure CabinetHistoryActionExecute(Sender: TObject); |
procedure CabinetHistoryActionExecute(Sender: TObject); |
| 336 |
procedure CabinetFavoriteActionExecute(Sender: TObject); |
procedure CabinetFavoriteActionExecute(Sender: TObject); |
| 337 |
procedure CabinetVisibleActionExecute(Sender: TObject); |
procedure CabinetVisibleActionExecute(Sender: TObject); |
| 338 |
procedure CabinetCloseActionExecute(Sender: TObject); |
procedure CabinetCloseActionExecute(Sender: TObject); |
| 339 |
procedure LargeIconActionExecute(Sender: TObject); |
procedure LargeIconActionExecute(Sender: TObject); |
| 340 |
procedure SmallIconActionExecute(Sender: TObject); |
procedure SmallIconActionExecute(Sender: TObject); |
| 341 |
procedure ListIconActionExecute(Sender: TObject); |
procedure ListIconActionExecute(Sender: TObject); |
| 342 |
procedure DetailIconActionExecute(Sender: TObject); |
procedure DetailIconActionExecute(Sender: TObject); |
| 343 |
procedure StopActionExecute(Sender: TObject); |
procedure StopActionExecute(Sender: TObject); |
| 344 |
procedure ArrangeActionExecute(Sender: TObject); |
procedure ArrangeActionExecute(Sender: TObject); |
| 345 |
procedure PaneInitActionExecute(Sender: TObject); |
procedure PaneInitActionExecute(Sender: TObject); |
| 346 |
procedure BrowserTabVisibleActionExecute(Sender: TObject); |
procedure BrowserTabVisibleActionExecute(Sender: TObject); |
| 347 |
procedure BrowserTabTopActionExecute(Sender: TObject); |
procedure BrowserTabTopActionExecute(Sender: TObject); |
| 348 |
procedure BrowserTabBottomActionExecute(Sender: TObject); |
procedure BrowserTabBottomActionExecute(Sender: TObject); |
| 349 |
procedure BrowserTabTabStyleActionExecute(Sender: TObject); |
procedure BrowserTabTabStyleActionExecute(Sender: TObject); |
| 350 |
procedure BrowserTabButtonStyleActionExecute(Sender: TObject); |
procedure BrowserTabButtonStyleActionExecute(Sender: TObject); |
| 351 |
procedure BrowserTabFlatStyleActionExecute(Sender: TObject); |
procedure BrowserTabFlatStyleActionExecute(Sender: TObject); |
| 352 |
procedure SetFocusForBrowserActionExecute(Sender: TObject); |
procedure SetFocusForBrowserActionExecute(Sender: TObject); |
| 353 |
procedure SetFocusForBrowserActionUpdate(Sender: TObject); |
procedure SetFocusForBrowserActionUpdate(Sender: TObject); |
| 354 |
procedure SetFocusForThreadListActionExecute(Sender: TObject); |
procedure SetFocusForThreadListActionExecute(Sender: TObject); |
| 355 |
procedure SetFocusForCabinetActionExecute(Sender: TObject); |
procedure SetFocusForCabinetActionExecute(Sender: TObject); |
| 356 |
procedure SetFocusForCabinetActionUpdate(Sender: TObject); |
procedure SetFocusForCabinetActionUpdate(Sender: TObject); |
| 357 |
procedure ThreadlistMaxAndFocusActionExecute(Sender: TObject); |
procedure ThreadlistMaxAndFocusActionExecute(Sender: TObject); |
| 358 |
procedure BrowserMaxAndFocusActionExecute(Sender: TObject); |
procedure BrowserMaxAndFocusActionExecute(Sender: TObject); |
| 359 |
procedure UnSelectedListViewActionExecute(Sender: TObject); |
procedure UnSelectedListViewActionExecute(Sender: TObject); |
| 360 |
procedure KidokuActionExecute(Sender: TObject); |
procedure KidokuActionExecute(Sender: TObject); |
| 361 |
procedure MidokuActionExecute(Sender: TObject); |
procedure MidokuActionExecute(Sender: TObject); |
| 362 |
procedure AllSelectActionExecute(Sender: TObject); |
procedure AllSelectActionExecute(Sender: TObject); |
| 363 |
procedure AllSelectActionUpdate(Sender: TObject); |
procedure AllSelectActionUpdate(Sender: TObject); |
| 364 |
private |
private |
| 365 |
{ Private 宣言 } |
{ Private 宣言 } |
| 366 |
public |
public |
| 378 |
var |
var |
| 379 |
GikoDM: TGikoDM; |
GikoDM: TGikoDM; |
| 380 |
|
|
| 381 |
|
|
| 382 |
implementation |
implementation |
| 383 |
|
|
| 384 |
uses |
uses |
| 392 |
RoundName, RoundData, Menus, ListViewUtils, |
RoundName, RoundData, Menus, ListViewUtils, |
| 393 |
ThreadControl; |
ThreadControl; |
| 394 |
|
|
|
|
|
| 395 |
const |
const |
| 396 |
CAPTION_NAME: string = 'ギコナビ'; |
CAPTION_NAME: string = 'ギコナビ'; |
| 397 |
USER_SETLINKBAR = WM_USER + 2003; |
USER_SETLINKBAR = WM_USER + 2003; |
| 1579 |
////////////////////////////////スレッドまでおしまい///////////////////// |
////////////////////////////////スレッドまでおしまい///////////////////// |
| 1580 |
procedure TGikoDM.DataModuleCreate(Sender: TObject); |
procedure TGikoDM.DataModuleCreate(Sender: TObject); |
| 1581 |
begin |
begin |
| 1582 |
|
Self.SetParentComponent(GikoForm); |
| 1583 |
end; |
end; |
| 1584 |
// ************************************************************************* |
// ************************************************************************* |
| 1585 |
//! ログ検索ダイアログを表示する |
//! ログ検索ダイアログを表示する |