paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-08 14:16:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: internals: help viewers

Browse Source 
git-svn-id: trunk@34821 -
This commit is contained in:
mattias 2012-01-20 14:38:17 +00:00
parent 5f9824929d
commit 3b215059ba
1 changed files with 31 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
ide/ideinfodlg.pas
View File

@ -50,6 +50,7 @@ type
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
private private
procedure GatherHelpDB(Prefix: string; const HelpDB: THelpDatabase; const sl: TStrings); procedure GatherHelpDB(Prefix: string; const HelpDB: THelpDatabase; const sl: TStrings);
procedure GatherHelpViewer(Prefix: string; const Viewer: THelpViewer; const sl: TStrings);
// general // general
procedure GatherIDEVersion(sl: TStrings); procedure GatherIDEVersion(sl: TStrings);
procedure GatherParameters(sl: TStrings); procedure GatherParameters(sl: TStrings);
@ -60,6 +61,7 @@ type
procedure GatherModifiedPackages(sl: TStrings); procedure GatherModifiedPackages(sl: TStrings);
// help // help
procedure GatherHelpDatabases(sl: TStrings); procedure GatherHelpDatabases(sl: TStrings);
procedure GatherHelpViewers(sl: TStrings);
public public
procedure UpdateGeneralMemo; procedure UpdateGeneralMemo;
procedure UpdateModifiedMemo; procedure UpdateModifiedMemo;
@ -162,6 +164,23 @@ begin
sl.Add(''); sl.Add('');
end; end;
procedure TIDEInfoDialog.GatherHelpViewer(Prefix: string;
const Viewer: THelpViewer; const sl: TStrings);
var
i: Integer;
begin
sl.Add(Prefix+DbgSName(Viewer));
sl.Add(Prefix+'StorageName='+Viewer.StorageName);
sl.Add(Prefix+'ParameterHelp='+Viewer.ParameterHelp);
sl.Add(Prefix+'LocalizedName='+dbgstr(Viewer.GetLocalizedName));
if Viewer.SupportedMimeTypes<>nil then begin
sl.Add(Prefix+'SupportedMimeTypes: '+IntToStr(Viewer.SupportedMimeTypes.Count));
for i:=0 to Viewer.SupportedMimeTypes.Count-1 do
sl.Add(Prefix+' '+Viewer.SupportedMimeTypes[i]);
end;
sl.Add('');
end;
procedure TIDEInfoDialog.GatherIDEVersion(sl: TStrings); procedure TIDEInfoDialog.GatherIDEVersion(sl: TStrings);
const const
LazarusVersionStr= {$I version.inc}; LazarusVersionStr= {$I version.inc};
@ -293,6 +312,17 @@ begin
end; end;
end; end;
procedure TIDEInfoDialog.GatherHelpViewers(sl: TStrings);
var
i: Integer;
begin
sl.Add('HelpViewers='+DbgSName(HelpViewers));
for i:=0 to HelpViewers.Count-1 do begin
sl.Add('DB '+IntToStr(i+1)+'/'+IntToStr(HelpViewers.Count));
GatherHelpViewer(' ',HelpViewers.Items[i],sl);
end;
end;
procedure TIDEInfoDialog.UpdateGeneralMemo; procedure TIDEInfoDialog.UpdateGeneralMemo;
var var
sl: TStringList; sl: TStringList;
@ -330,6 +360,7 @@ begin
sl:=TStringList.Create; sl:=TStringList.Create;
try try
GatherHelpDatabases(sl); GatherHelpDatabases(sl);
GatherHelpViewers(sl);
HelpMemo.Lines.Assign(sl); HelpMemo.Lines.Assign(sl);
finally finally
sl.Free; sl.Free;