Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/ResPopupBrowser.pas

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

revision 1.5 by h677, Sun Aug 26 13:00:41 2007 UTC revision 1.6 by h677, Thu Sep 13 15:42:39 2007 UTC
# Line 151  begin Line 151  begin
151  end;  end;
152  procedure TResPopupBrowser.Popup;  procedure TResPopupBrowser.Popup;
153  begin  begin
154      Write(Self.RawDocument, false);      if (GetAsyncKeyState(VK_SHIFT) = Smallint($8001)) then begin
155            // シフト押してる場合はそのまま出す
156            Write(Self.RawDocument, false);
157        end else begin
158            // 騙し絵が見えるように半角スペース*2を *2に置換する
159            Write(
160                MojuUtils.CustomStringReplace(
161                    Self.RawDocument, '  ', '  '),
162                false);
163        end;
164  end;  end;
165  procedure TResPopupBrowser.Write(ADocument: String; OnlyTitle: Boolean = False);  procedure TResPopupBrowser.Write(ADocument: String; OnlyTitle: Boolean = False);
166  var  var

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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