• R/O
  • HTTP
  • SSH
  • HTTPS

Commit

Tags
No Tags

Frequently used words (click to add to your profile)

javaandroidc++linuxc#objective-ccocoa誰得qtrubypythonwindowsphpgamebathyscaphegui翻訳comegattwitterframeworkbtronvb.net計画中(planning stage)testdomarduinodirectxpreviewerゲームエンジン

ギコナビ


Commit MetaInfo

Revision676ea3af3e6dc7f0dbffbf24fae87b7b73dcf698 (tree)
Time2007-05-11 01:07:31
Authorh677 <h677>
Commiterh677

Log Message

ヘッダーを太字にする処理を追加

Change Summary

Incremental Difference

--- a/ResPopupBrowser.pas
+++ b/ResPopupBrowser.pas
@@ -114,7 +114,7 @@ begin
114114 doc.charset := 'Shift_JIS';
115115 doc.Write('<html><head>'#13#10 +
116116 '<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>' +
118118 ADocument + '<a name="bottom"></a></body></html>');
119119 doc.Close;
120120
@@ -154,7 +154,11 @@ begin
154154 IntToHex( (i shr 16) or (i and $ff00) or ((i and $ff) shl 16), 6 ) + ';';
155155 end;
156156
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>';
158162 end;
159163
160164 procedure TResPopupBrowser.Clear;
@@ -162,8 +166,9 @@ begin
162166 ChildClear;
163167 if (Self.Visible) then begin
164168 Self.Title := '';
165- Self.Visible := False;
169+ NavigateBlank;
166170 ShowWindow(Self.Handle, SW_HIDE);
171+ Self.Visible := False;
167172 end;
168173 end;
169174 procedure TResPopupBrowser.ChildClear;
@@ -181,7 +186,7 @@ var
181186 begin
182187 GetCursorpos(p);
183188 ele := ((Self.Document as IHTMLDocument2).body as IHTMLElement2);
184- h := GetWindowHeight + 25;
189+ h := GetWindowHeight + 10;
185190 w := ele.scrollWidth + 25;
186191 Result := Rect(0, 0, w, h);
187192 case GikoSys.Setting.PopupPosition of
@@ -207,6 +212,7 @@ begin
207212 if (Result.Bottom > MaxHeight) then begin
208213 OffsetRect(Result, 0, - (Result.Bottom - MaxHeight));
209214 end;
215+
210216 // ‚±‚±‚ōēx¶‚Əã‚ðŠm”F‚µ‚Ä”ò‚яo‚µ‚Ä‚½‚çA‰æ–ʃTƒCƒY‚ð¬‚³‚­‚·‚é
211217 if (Result.Left < 0) then begin
212218 Result := Rect(0, Result.Top,
@@ -222,6 +228,7 @@ var
222228 top: Integer;
223229 item: OleVariant;
224230 begin
231+ Result := 0;
225232 //ƒuƒ‰ƒEƒU‚ªƒf[ƒ^‚̓ǂݍž‚Ý’†‚ÌŽž‚͓ǂݍž‚Ý‚ð‘Ò‚Â
226233 while (Self.ReadyState <> READYSTATE_COMPLETE) and
227234 (Self.ReadyState <> READYSTATE_INTERACTIVE) do begin