paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 22:37:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: ide internal: fpcmessageshelpdb

Browse Source 
git-svn-id: trunk@34816 -
This commit is contained in:
mattias 2012-01-20 11:13:37 +00:00
parent afc999bc7f
commit 9553b7e67e
2 changed files with 105 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ide/ideinfodlg.lfm
View File

@ -13,9 +13,9 @@ object IDEInfoDialog: TIDEInfoDialog
Height = 397
Top = 0
Width = 735
ActivePage = ModifiedTabSheet
ActivePage = HelpTabSheet
Align = alClient
TabIndex = 1
TabIndex = 2
TabOrder = 0
object GeneralTabSheet: TTabSheet
Caption = 'General'
@ -51,5 +51,21 @@ object IDEInfoDialog: TIDEInfoDialog
TabOrder = 0
end
end
object HelpTabSheet: TTabSheet
Caption = 'Help'
ClientHeight = 361
ClientWidth = 727
object HelpMemo: TMemo
Left = 0
Height = 361
Top = 0
Width = 727
Align = alClient
Lines.Strings = (
'HelpMemo'
)
TabOrder = 0
end
end
end
end

89
ide/ideinfodlg.pas
View File

@ -31,8 +31,9 @@ interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
ComCtrls, DefineTemplates, EnvironmentOpts, AboutFrm, LazConf,
LazarusIDEStrConsts, Project, SourceEditor, PackageSystem, PackageDefs;
ComCtrls, LCLProc, LazHelpHTML, LazHelpIntf, DefineTemplates, EnvironmentOpts,
AboutFrm, LazConf, IDEHelpIntf, LazarusIDEStrConsts, Project, SourceEditor,
PackageSystem, PackageDefs;
type
@ -40,10 +41,12 @@ type
TIDEInfoDialog = class(TForm)
GeneralMemo: TMemo;
HelpMemo: TMemo;
ModifiedMemo: TMemo;
PageControl1: TPageControl;
GeneralTabSheet: TTabSheet;
ModifiedTabSheet: TTabSheet;
HelpTabSheet: TTabSheet;
procedure FormCreate(Sender: TObject);
private
// general
@ -54,9 +57,13 @@ type
// modified
procedure GatherModifiedProject(AProject: TProject; sl: TStrings);
procedure GatherModifiedPackages(sl: TStrings);
// help
procedure GatherHelpDB(sl: TStrings);
procedure GatherFPCMessagesHelpDB(sl: TStrings);
public
procedure UpdateGeneralMemo;
procedure UpdateModifiedMemo;
procedure UpdateHelpMemo;
end;
var
@ -89,6 +96,7 @@ begin
UpdateGeneralMemo;
UpdateModifiedMemo;
UpdateHelpMemo;
PageControl1.ActivePage:=GeneralTabSheet;
end;
@ -211,6 +219,69 @@ begin
sl.Add('');
end;
procedure TIDEInfoDialog.GatherHelpDB(sl: TStrings);
begin
// LazarusHelp
end;
procedure TIDEInfoDialog.GatherFPCMessagesHelpDB(sl: TStrings);
var
HTMLHelp: THTMLHelpDatabase;
i: Integer;
DBItem: THelpDBItem;
DBISourceFile: THelpDBISourceFile;
DBISourceDirectory: THelpDBISourceDirectory;
DBISourceDirectories: THelpDBISourceDirectories;
DBIRegExprMessage: THelpDBIRegExprMessage;
begin
sl.Add(DbgSName(FPCMessagesHelpDB));
sl.Add('ID='+FPCMessagesHelpDB.ID);
sl.Add('LocalizedName='+dbgstr(FPCMessagesHelpDB.GetLocalizedName));
sl.Add('BasePathObject='+DbgSName(FPCMessagesHelpDB.BasePathObject));
sl.Add('Registered='+dbgs(FPCMessagesHelpDB.Registered));
if FPCMessagesHelpDB.SupportedMimeTypes<>nil then begin
sl.Add('SupportedMimeTypes: '+IntToStr(FPCMessagesHelpDB.SupportedMimeTypes.Count));
sl.AddStrings(FPCMessagesHelpDB.SupportedMimeTypes);
sl.Add('');
end;
if FPCMessagesHelpDB is THTMLHelpDatabase then begin
HTMLHelp:=THTMLHelpDatabase(FPCMessagesHelpDB);
sl.Add('BaseURL='+dbgstr(HTMLHelp.BaseURL));
if HTMLHelp.BaseURL='' then
sl.Add('DefaultBaseURL='+dbgstr(HTMLHelp.DefaultBaseURL));
sl.Add('KeywordPrefix='+dbgstr(HTMLHelp.KeywordPrefix));
end;
// registered items
sl.Add('Items:');
for i:=0 to FPCMessagesHelpDB.RegisteredItemCount-1 do begin
DBItem:=FPCMessagesHelpDB.GetRegisteredItem(i);
sl.Add(IntToStr(i+1)+'/'+IntToStr(FPCMessagesHelpDB.RegisteredItemCount)+': '+DbgSName(DBItem));
if DBItem is THelpDBISourceFile then begin
DBISourceFile:=THelpDBISourceFile(DBItem);
sl.Add(' Filename='+DBISourceFile.Filename);
sl.Add(' FullFilename='+DBISourceFile.GetFullFilename);
sl.Add(' BasePath='+DBISourceFile.GetBasePath);
if DBISourceFile is THelpDBISourceDirectory then begin
DBISourceDirectory:=THelpDBISourceDirectory(DBISourceFile);
sl.Add(' FileMask='+DBISourceDirectory.FileMask);
sl.Add(' WithSubDirectories='+dbgs(DBISourceDirectory.WithSubDirectories));
if DBISourceDirectory is THelpDBISourceDirectories then begin
DBISourceDirectories:=THelpDBISourceDirectories(DBISourceDirectory);
sl.Add(' BaseDirectory='+DBISourceDirectories.BaseDirectory);
end;
end;
end else if DBItem is THelpDBIClass then begin
sl.Add(' Class='+DbgSName(THelpDBIClass(DBItem)));
end else if DBItem is THelpDBIRegExprMessage then begin
DBIRegExprMessage:=THelpDBIRegExprMessage(DBItem);
sl.Add(' Expression='+DBIRegExprMessage.Expression);
sl.Add(' ModifierStr='+DBIRegExprMessage.ModifierStr);
end;
end;
end;
procedure TIDEInfoDialog.UpdateGeneralMemo;
var
sl: TStringList;
@ -241,5 +312,19 @@ begin
end;
end;
procedure TIDEInfoDialog.UpdateHelpMemo;
var
sl: TStringList;
begin
sl:=TStringList.Create;
try
GatherHelpDB(sl);
GatherFPCMessagesHelpDB(sl);
HelpMemo.Lines.Assign(sl);
finally
sl.Free;
end;
end;
end.