| 577 |
TabAutoSaveAction: TAction; |
TabAutoSaveAction: TAction; |
| 578 |
TabAutoLoadAction: TAction; |
TabAutoLoadAction: TAction; |
| 579 |
ListColumnPopupMenu: TPopupMenu; |
ListColumnPopupMenu: TPopupMenu; |
| 580 |
|
JumpToNumOfResAction: TAction; |
| 581 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 582 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 583 |
procedure CabinetPanelHide(Sender: TObject); |
procedure CabinetPanelHide(Sender: TObject); |
| 927 |
procedure TabAutoLoadActionExecute(Sender: TObject); |
procedure TabAutoLoadActionExecute(Sender: TObject); |
| 928 |
procedure ListViewColumnRightClick(Sender: TObject; |
procedure ListViewColumnRightClick(Sender: TObject; |
| 929 |
Column: TListColumn; Point: TPoint); |
Column: TListColumn; Point: TPoint); |
| 930 |
|
procedure JumpToNumOfResActionExecute(Sender: TObject); |
| 931 |
|
procedure JumpToNumOfResActionUpdate(Sender: TObject); |
| 932 |
private |
private |
| 933 |
{ Private 宣言 } |
{ Private 宣言 } |
| 934 |
//RoundList : TRoundList; |
//RoundList : TRoundList; |
| 2675 |
Item.SubItems[ idx ] := ''; |
Item.SubItems[ idx ] := ''; |
| 2676 |
|
|
| 2677 |
gbcLastModified: |
gbcLastModified: |
| 2678 |
if ThreadItem.RoundDate = ZERO_DATE then begin |
if (ThreadItem.LastModified = ZERO_DATE) then begin |
| 2679 |
Item.SubItems[ idx ] := ''; |
Item.SubItems[ idx ] := ''; |
| 2680 |
end else |
end else |
| 2681 |
Item.SubItems[ idx ] := FormatDateTime('yyyy/mm/dd hh:mm:ss', ThreadItem.RoundDate); |
Item.SubItems[ idx ] := FormatDateTime('yyyy/mm/dd hh:mm:ss', ThreadItem.LastModified); |
| 2682 |
|
|
| 2683 |
gbcCreated: |
gbcCreated: |
| 2684 |
if ThreadItem.CreateDate = ZERO_DATE then begin |
if ThreadItem.CreateDate = ZERO_DATE then begin |
| 2706 |
Item.SubItems[ idx ] := IntToStr(ThreadItem.AllResCount); |
Item.SubItems[ idx ] := IntToStr(ThreadItem.AllResCount); |
| 2707 |
|
|
| 2708 |
gbcLastModified: |
gbcLastModified: |
| 2709 |
if not GikoSys.Setting.CreationTimeLogs then |
Item.SubItems[ idx ] := ''; |
|
if ThreadItem.CreateDate = ZERO_DATE then |
|
|
Item.SubItems[ idx ] := '' |
|
|
else |
|
|
Item.SubItems[ idx ] := FormatDateTime('yyyy/mm/dd hh:mm:ss', ThreadItem.CreateDate); |
|
| 2710 |
|
|
| 2711 |
gbcCreated: |
gbcCreated: |
| 2712 |
if ThreadItem.CreateDate = ZERO_DATE then begin |
if ThreadItem.CreateDate = ZERO_DATE then begin |
| 4727 |
top := 0; |
top := 0; |
| 4728 |
nm := AName; |
nm := AName; |
| 4729 |
item := OleVariant( activeBrower.Document as IHTMLDocument2).anchors.item(nm); |
item := OleVariant( activeBrower.Document as IHTMLDocument2).anchors.item(nm); |
| 4730 |
|
item.focus(); |
| 4731 |
repeat |
repeat |
| 4732 |
top := top + item.offsetTop; |
top := top + item.offsetTop; |
| 4733 |
item := item.offsetParent; |
item := item.offsetParent; |
| 4734 |
until AnsiCompareText(item.tagName, 'body' ) = 0; |
until AnsiCompareText(item.tagName, 'body' ) = 0; |
|
|
|
| 4735 |
OleVariant(activeBrower.Document as IHTMLDocument2).body.scrollTop := top; |
OleVariant(activeBrower.Document as IHTMLDocument2).body.scrollTop := top; |
| 4736 |
except |
except |
| 4737 |
end; |
end; |
| 4759 |
top := 0; |
top := 0; |
| 4760 |
nm := AName; |
nm := AName; |
| 4761 |
item := OleVariant( activeBrower.Document as IHTMLDocument2).anchors.item(nm); |
item := OleVariant( activeBrower.Document as IHTMLDocument2).anchors.item(nm); |
| 4762 |
|
item.focus(); |
| 4763 |
repeat |
repeat |
| 4764 |
top := top + item.offsetTop; |
top := top + item.offsetTop; |
| 4765 |
item := item.offsetParent; |
item := item.offsetParent; |
| 8842 |
const |
const |
| 8843 |
ICON_SIZE = 16; |
ICON_SIZE = 16; |
| 8844 |
begin |
begin |
| 8845 |
Wnd := WindowFromPoint(MousePos); |
Wnd := WindowFromPoint(Mouse.CursorPos); |
| 8846 |
Handled := True; |
Handled := True; |
| 8847 |
if WheelDelta > 0 then |
if WheelDelta > 0 then |
| 8848 |
Delta := -1 |
Delta := -1 |
| 8852 |
if (Wnd = BrowserTab.Handle) or |
if (Wnd = BrowserTab.Handle) or |
| 8853 |
(Wnd = BrowserTab.Parent.Handle) then begin |
(Wnd = BrowserTab.Parent.Handle) then begin |
| 8854 |
BrowserTab.ScrollTabs(Delta); |
BrowserTab.ScrollTabs(Delta); |
| 8855 |
end else begin |
end; |
| 8856 |
|
{ else begin |
| 8857 |
if FIsHandledWheel then begin |
if FIsHandledWheel then begin |
| 8858 |
FIsHandledWheel := False; |
FIsHandledWheel := False; |
| 8859 |
Handled := False; |
Handled := False; |
| 8864 |
browserPos.X := 0; |
browserPos.X := 0; |
| 8865 |
browserPos.Y := 0; |
browserPos.Y := 0; |
| 8866 |
Windows.ClientToScreen( Browser.Handle, browserPos ); |
Windows.ClientToScreen( Browser.Handle, browserPos ); |
| 8867 |
if (Longword(MousePos.X - browserPos.X) >= Browser.Width) |
//if (Longword(Mouse.CursorPos.X - browserPos.X) >= Browser.Width) |
| 8868 |
or (Longword(MousePos.Y - browserPos.Y) >= Browser.Height) then begin |
//or (Longword(Mouse.CursorPos.Y - browserPos.Y) >= Browser.Height) then begin |
| 8869 |
// or not FActiveContent.Browser.Focused then |
// or not FActiveContent.Browser.Focused then |
| 8870 |
// TWebBrowser は無限ループするのでそれ以外ならコントロールに送信 |
// TWebBrowser は無限ループするのでそれ以外ならコントロールに送信 |
| 8871 |
SendMessage( Wnd, WM_MOUSEWHEEL, WheelDelta shl 16, (MousePos.X shl 16) or MousePos.Y ); |
// SendMessage( Wnd, WM_MOUSEWHEEL, WheelDelta shl 16, (MousePos.X shl 16) or MousePos.Y ); |
| 8872 |
end else begin |
//end else begin |
| 8873 |
Handled := False; |
Handled := False; |
| 8874 |
end; |
//end; |
| 8875 |
// end else begin |
// end else begin |
| 8876 |
// SendMessage( Wnd, WM_MOUSEWHEEL, WheelDelta shl 16, (MousePos.X shl 16) or MousePos.Y ); |
// SendMessage( Wnd, WM_MOUSEWHEEL, WheelDelta shl 16, (MousePos.X shl 16) or MousePos.Y ); |
| 8877 |
// end; |
// end; |
| 8878 |
end; |
end; |
| 8879 |
end; |
end;} |
| 8880 |
end; |
end; |
| 8881 |
|
|
| 8882 |
|
|
| 11640 |
SetActiveList( FActiveList ); |
SetActiveList( FActiveList ); |
| 11641 |
|
|
| 11642 |
end; |
end; |
| 11643 |
|
//指定した番号のレスにjumpするAction |
| 11644 |
|
procedure TGikoForm.JumpToNumOfResActionExecute(Sender: TObject); |
| 11645 |
|
var |
| 11646 |
|
str: string; |
| 11647 |
|
res: integer; |
| 11648 |
|
begin |
| 11649 |
|
str := '1'; |
| 11650 |
|
if( InputQuery('指定した番号のレスに飛ぶ', '番号を入力してください', str) ) then begin |
| 11651 |
|
str := ZenToHan(str); |
| 11652 |
|
res := StrToIntDef(str, -1); |
| 11653 |
|
if (res > 0) and (res <= GetActiveContent.Count) then begin |
| 11654 |
|
BrowserMovement(IntToStr(res), FActiveContent); |
| 11655 |
|
SetFocusForBrowserAction.Execute; |
| 11656 |
|
end else if res > GetActiveContent.Count then begin |
| 11657 |
|
BrowserMovement(IntToStr(GetActiveContent.Count), FActiveContent); |
| 11658 |
|
SetFocusForBrowserAction.Execute; |
| 11659 |
|
end; |
| 11660 |
|
end; |
| 11661 |
|
end; |
| 11662 |
|
|
| 11663 |
|
procedure TGikoForm.JumpToNumOfResActionUpdate(Sender: TObject); |
| 11664 |
|
begin |
| 11665 |
|
JumpToNumOfResAction.Enabled := (GetActiveContent <> nil) and (GetActiveContent.IsLogFile); |
| 11666 |
|
end; |
| 11667 |
|
|
| 11668 |
initialization |
initialization |
| 11669 |
OleInitialize(nil); |
OleInitialize(nil); |