ギコナビ
| Revision | 676ea3af3e6dc7f0dbffbf24fae87b7b73dcf698 (tree) |
|---|---|
| Time | 2007-05-11 01:07:31 |
| Author | h677 <h677> |
| Commiter | h677 |
ヘッダーを太字にする処理を追加
ResPopupBrowser.pas (diff)| @@ -114,7 +114,7 @@ begin | ||
| 114 | 114 | doc.charset := 'Shift_JIS'; |
| 115 | 115 | doc.Write('<html><head>'#13#10 + |
| 116 | 116 | '<meta http-equiv="Content-type" content="text/html; charset=Shift_JIS">'#13#10 + |
| 117 | - Title + GetBodyStyle + '</head><body>' + | |
| 117 | + '<span id="hTitle">' + Title +'</span>'+ GetBodyStyle + '</head><body>' + | |
| 118 | 118 | ADocument + '<a name="bottom"></a></body></html>'); |
| 119 | 119 | doc.Close; |
| 120 | 120 |
| @@ -154,7 +154,11 @@ begin | ||
| 154 | 154 | IntToHex( (i shr 16) or (i and $ff00) or ((i and $ff) shl 16), 6 ) + ';'; |
| 155 | 155 | end; |
| 156 | 156 | |
| 157 | - Result := Result + '}</style>'; | |
| 157 | + Result := Result + '}'; | |
| 158 | + if GikoSys.Setting.ResPopupHeaderBold then begin | |
| 159 | + Result := Result + #13#10'span#hTitle{font-weight: bold; }'; | |
| 160 | + end; | |
| 161 | + Result := Result + '</style>'; | |
| 158 | 162 | end; |
| 159 | 163 | |
| 160 | 164 | procedure TResPopupBrowser.Clear; |
| @@ -162,8 +166,9 @@ begin | ||
| 162 | 166 | ChildClear; |
| 163 | 167 | if (Self.Visible) then begin |
| 164 | 168 | Self.Title := ''; |
| 165 | - Self.Visible := False; | |
| 169 | + NavigateBlank; | |
| 166 | 170 | ShowWindow(Self.Handle, SW_HIDE); |
| 171 | + Self.Visible := False; | |
| 167 | 172 | end; |
| 168 | 173 | end; |
| 169 | 174 | procedure TResPopupBrowser.ChildClear; |
| @@ -181,7 +186,7 @@ var | ||
| 181 | 186 | begin |
| 182 | 187 | GetCursorpos(p); |
| 183 | 188 | ele := ((Self.Document as IHTMLDocument2).body as IHTMLElement2); |
| 184 | - h := GetWindowHeight + 25; | |
| 189 | + h := GetWindowHeight + 10; | |
| 185 | 190 | w := ele.scrollWidth + 25; |
| 186 | 191 | Result := Rect(0, 0, w, h); |
| 187 | 192 | case GikoSys.Setting.PopupPosition of |
| @@ -207,6 +212,7 @@ begin | ||
| 207 | 212 | if (Result.Bottom > MaxHeight) then begin |
| 208 | 213 | OffsetRect(Result, 0, - (Result.Bottom - MaxHeight)); |
| 209 | 214 | end; |
| 215 | + | |
| 210 | 216 | // ±±ÅÄx¶ÆãðmFµÄòÑoµÄ½çAæÊTCY𬳷é |
| 211 | 217 | if (Result.Left < 0) then begin |
| 212 | 218 | Result := Rect(0, Result.Top, |
| @@ -222,6 +228,7 @@ var | ||
| 222 | 228 | top: Integer; |
| 223 | 229 | item: OleVariant; |
| 224 | 230 | begin |
| 231 | + Result := 0; | |
| 225 | 232 | //uEUªf[^ÌÇÝÝÌÍÇÝÝðÒÂ |
| 226 | 233 | while (Self.ReadyState <> READYSTATE_COMPLETE) and |
| 227 | 234 | (Self.ReadyState <> READYSTATE_INTERACTIVE) do begin |
sado
Fork