Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.13 by yoffy, Wed Aug 13 19:53:02 2003 UTC revision 1.14 by h677, Thu Aug 14 14:34:10 2003 UTC
# Line 685  type Line 685  type
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    
# Line 722  type Line 726  type
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;
# Line 6656  begin Line 6662  begin
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

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26