A question on the Editor demo

Return to index

Author

Message

Allen

Posted: 03/20/2003 20:32:36

Hi,

I tried out the Editor demo. I cannot understand how you parse the Windows

default font size and Font Name to the appropriate FontName Combobox and

fontsize combobox.

At start up:

procedure TForm1.FormCreate(Sender: TObject);

begin

  // Filling font names combobox

  cmbFont.Items.Assign(Screen.Fonts);

  New;

end;

=============================================

After the above codes filled the combo items with screen fonts, how do you

get the default windows font and put it as the combo.text? And how do you

get the default font size?

I have read through the demo but really cannot find the codes that do the

text filling of default font and default font size.

Thanks for your time.