Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/ResPopupBrowser.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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 |
|
|
|