paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-08 03:05:58 +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; procedure HTMLGetImageX(Sender: TIpHtmlNode; const URL: string;
var Picture: TPicture); var Picture: TPicture);
public public
constructor Create(AOwner: TComponent); override;
function GetURL: string; function GetURL: string;
procedure SetURL(const AValue: string); procedure SetURL(const AValue: string);
property Provider: TAbstractIDEHTMLProvider read FProvider write SetProvider; property Provider: TAbstractIDEHTMLProvider read FProvider write SetProvider;
@ -127,6 +128,14 @@ begin
end; end;
end; end;
constructor TIPLazHtmlControl.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
DefaultFontSize := 8;
MarginHeight := 0;
MarginWidth := 0;
end;
function TIPLazHtmlControl.GetURL: string; function TIPLazHtmlControl.GetURL: string;
begin begin
Result:=FURL; Result:=FURL;

5
ide/main.pp
View File

@ -1415,6 +1415,10 @@ begin
end; end;
end; end;
if OI.InfoPanel.ControlCount > 0 then
OI.InfoPanel.Controls[0].Visible := HtmlHint <> '';
if HtmlHint <> '' then
begin
OIHelpProvider.BaseURL := BaseURL; OIHelpProvider.BaseURL := BaseURL;
Stream := TStringStream.Create(HtmlHint); Stream := TStringStream.Create(HtmlHint);
try try
@ -1423,6 +1427,7 @@ begin
Stream.Free; Stream.Free;
end; end;
end; end;
end;
function TMainIDE.OIOnPropertyHint(Sender: TObject; function TMainIDE.OIOnPropertyHint(Sender: TObject;
PointedRow: TOIPropertyGridRow; ScreenPos: TPoint; aHintWindow: THintWindow; PointedRow: TOIPropertyGridRow; ScreenPos: TPoint; aHintWindow: THintWindow;

2
ideintf/objectinspector.pp
View File

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