pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Enabled TFontName property editor (dropdown list) for the controls' font name properties in Lazarus Object Inspector.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1427 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
macpgmr
2011-01-07 20:51:06 +00:00
parent 0e3e994612
commit 270de02f55
1 changed files with 12 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
components/thtmlport/package/htmlcompreg.pas
View File

@ -3,7 +3,8 @@ unit HtmlCompReg;
interface
uses
Classes, LResources, HTMLView, FramView, FramBrwz;
Classes, LResources, PropEdits, GraphPropEdits,
HTMLView, FramView, FramBrwz;
procedure Register;
@ -11,7 +12,16 @@ implementation
procedure Register;
begin
RegisterComponents('HTML Components', [THTMLViewer, TFrameViewer, TFrameBrowser]);
RegisterPropertyEditor(TypeInfo(AnsiString), THTMLViewer, 'DefFontName', TFontNamePropertyEditor);
RegisterPropertyEditor(TypeInfo(AnsiString), THTMLViewer, 'DefPreFontName', TFontNamePropertyEditor);
RegisterPropertyEditor(TypeInfo(AnsiString), TFrameViewer, 'DefFontName', TFontNamePropertyEditor);
RegisterPropertyEditor(TypeInfo(AnsiString), TFrameViewer, 'DefPreFontName', TFontNamePropertyEditor);
RegisterPropertyEditor(TypeInfo(AnsiString), TFrameBrowser, 'DefFontName', TFontNamePropertyEditor);
RegisterPropertyEditor(TypeInfo(AnsiString), TFrameBrowser, 'DefPreFontName', TFontNamePropertyEditor);
RegisterComponents('HTML Components', [THTMLViewer, TFrameViewer, TFrameBrowser]);
end;
initialization