paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-15 19:42:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: minor improvements in showing help in the info box

Browse Source 
git-svn-id: trunk@17488 -
This commit is contained in:
paul 2008-11-21 08:18:39 +00:00
parent c9435b41c0
commit 25daa2e783
3 changed files with 21 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/turbopower_ipro/design/ipidehtmlcontrol.pas
View File

@ -41,6 +41,7 @@ type
procedure HTMLGetImageX(Sender: TIpHtmlNode; const URL: string;
var Picture: TPicture);
public
constructor Create(AOwner: TComponent); override;
function GetURL: string;
procedure SetURL(const AValue: string);
property Provider: TAbstractIDEHTMLProvider read FProvider write SetProvider;
@ -127,6 +128,14 @@ begin
end;
end;
constructor TIPLazHtmlControl.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
DefaultFontSize := 8;
MarginHeight := 0;
MarginWidth := 0;
end;
function TIPLazHtmlControl.GetURL: string;
begin
Result:=FURL;

17
ide/main.pp
View File

@ -1415,12 +1415,17 @@ begin
end;
end;
OIHelpProvider.BaseURL := BaseURL;
Stream := TStringStream.Create(HtmlHint);
try
OIHelpProvider.ControlIntf.SetHTMLContent(Stream);
finally
Stream.Free;
if OI.InfoPanel.ControlCount > 0 then
OI.InfoPanel.Controls[0].Visible := HtmlHint <> '';
if HtmlHint <> '' then
begin
OIHelpProvider.BaseURL := BaseURL;
Stream := TStringStream.Create(HtmlHint);
try
OIHelpProvider.ControlIntf.SetHTMLContent(Stream);
finally
Stream.Free;
end;
end;
end;

2
ideintf/objectinspector.pp
View File

@ -3749,7 +3749,7 @@ begin
FShowFavorites := False;
FShowRestricted := False;
FShowStatusBar := True;
FInfoBoxHeight := 50;
FInfoBoxHeight := 80;
FShowInfoBox := False;
Caption := oisObjectInspector;