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.14 by h677, Thu Aug 14 14:34:10 2003 UTC revision 1.15 by h677, Thu Aug 14 15:19:28 2003 UTC
# Line 6684  begin Line 6684  begin
6684                      SetResPopupText(ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), Num, Num, False, False);                      SetResPopupText(ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), Num, Num, False, False);
6685                      if FHint.ResCount <> 0 then begin                      if FHint.ResCount <> 0 then begin
6686                          ShowTextPopup;                          ShowTextPopup;
                         Fkeynum := 0;  
6687                      end;                      end;
6688                  end;                  end;
   
6689                  end;                  end;
6690                Fkeynum := 0;
6691          end else begin          end else begin
6692              if Fkeynum = 0 then begin              if Fkeynum = 0 then begin
6693                  if (Key >= $60) and (Key <= $69) then begin                  if (Key >= $60) and (Key <= $69) then begin

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

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