| 685 |
procedure NG2Click(Sender: TObject); |
procedure NG2Click(Sender: TObject); |
| 686 |
procedure SelectResActionExecute(Sender: TObject); |
procedure SelectResActionExecute(Sender: TObject); |
| 687 |
procedure SelectResActionUpdate(Sender: TObject); |
procedure SelectResActionUpdate(Sender: TObject); |
| 688 |
|
procedure FormKeyDown(Sender: TObject; var Key: Word; |
| 689 |
|
Shift: TShiftState); |
| 690 |
|
procedure FormKeyUp(Sender: TObject; var Key: Word; |
| 691 |
|
Shift: TShiftState); |
| 692 |
private |
private |
| 693 |
{ Private 宣言 } |
{ Private 宣言 } |
| 694 |
|
|
| 726 |
FDownloadTitle: string; //ダウンロード中のタイトル名 |
FDownloadTitle: string; //ダウンロード中のタイトル名 |
| 727 |
FDownloadMax: Integer; //ダウンロード中の最大サイズ |
FDownloadMax: Integer; //ダウンロード中の最大サイズ |
| 728 |
FEvent: THTMLDocumentEventSink;//ブラウザドキュメントイベント |
FEvent: THTMLDocumentEventSink;//ブラウザドキュメントイベント |
| 729 |
|
|
| 730 |
|
Fkeynum : Integer; //キーボードレスポップアップ用 |
| 731 |
procedure SetBoardTreeNode; |
procedure SetBoardTreeNode; |
| 732 |
function SetCategoryListItem(ABBS2ch: TBBS2ch): Integer; |
function SetCategoryListItem(ABBS2ch: TBBS2ch): Integer; |
| 733 |
function SetBoardListItem(Category: TCategory): Integer; |
function SetBoardListItem(Category: TCategory): Integer; |
| 6662 |
SelectResAction.Enabled := GetActiveContent <> nil; |
SelectResAction.Enabled := GetActiveContent <> nil; |
| 6663 |
end; |
end; |
| 6664 |
|
|
| 6665 |
|
procedure TGikoForm.FormKeyDown(Sender: TObject; var Key: Word; |
| 6666 |
|
Shift: TShiftState); |
| 6667 |
|
var |
| 6668 |
|
Doc: IHtmlDocument2; |
| 6669 |
|
Range: IHTMLTxtRange; |
| 6670 |
|
s: string; |
| 6671 |
|
Num: Integer; |
| 6672 |
|
ThreadItem: TThreadItem; |
| 6673 |
|
|
| 6674 |
|
begin |
| 6675 |
|
if ssCtrl in Shift then begin |
| 6676 |
|
if ssAlt in Shift then begin |
| 6677 |
|
Doc := Browser.Document as IHtmlDocument2; |
| 6678 |
|
s := IntToStr(Fkeynum); |
| 6679 |
|
if GikoSys.IsNumeric(s) then begin |
| 6680 |
|
ThreadItem := GetActiveContent; |
| 6681 |
|
if ThreadItem <> nil then begin |
| 6682 |
|
Num := StrToInt(s); |
| 6683 |
|
FHint.PopupType := gptThread; |
| 6684 |
|
SetResPopupText(ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), Num, Num, False, False); |
| 6685 |
|
if FHint.ResCount <> 0 then begin |
| 6686 |
|
ShowTextPopup; |
| 6687 |
|
Fkeynum := 0; |
| 6688 |
|
end; |
| 6689 |
|
end; |
| 6690 |
|
|
| 6691 |
|
end; |
| 6692 |
|
end else begin |
| 6693 |
|
if Fkeynum = 0 then begin |
| 6694 |
|
if (Key >= $60) and (Key <= $69) then begin |
| 6695 |
|
Fkeynum := Key - $60; |
| 6696 |
|
end; |
| 6697 |
|
end else begin |
| 6698 |
|
if (Key >= $60) and (Key <= $69) then begin |
| 6699 |
|
Fkeynum := Fkeynum * 10 + Key - $60; |
| 6700 |
|
end; |
| 6701 |
|
end; |
| 6702 |
|
end; |
| 6703 |
|
end else begin |
| 6704 |
|
Fkeynum := 0; |
| 6705 |
|
if FHint <> nil then begin |
| 6706 |
|
FHint.ReleaseHandle; |
| 6707 |
|
FHint.ClearAllRes; |
| 6708 |
|
end; |
| 6709 |
|
end; |
| 6710 |
|
|
| 6711 |
|
end; |
| 6712 |
|
|
| 6713 |
|
|
| 6714 |
|
procedure TGikoForm.FormKeyUp(Sender: TObject; var Key: Word; |
| 6715 |
|
Shift: TShiftState); |
| 6716 |
|
begin |
| 6717 |
|
if Key = $11 then begin |
| 6718 |
|
Fkeynum := 0; |
| 6719 |
|
if FHint <> nil then begin |
| 6720 |
|
FHint.ReleaseHandle; |
| 6721 |
|
FHint.ClearAllRes; |
| 6722 |
|
end; |
| 6723 |
|
|
| 6724 |
|
end; |
| 6725 |
|
end; |
| 6726 |
initialization |
initialization |
| 6727 |
OleInitialize(nil); |
OleInitialize(nil); |
| 6728 |
finalization |
finalization |