From a9826323b721ce193cd15a8cdef997f7308adf44 Mon Sep 17 00:00:00 2001 From: graemeg Date: Tue, 11 Mar 2008 13:14:31 +0000 Subject: * Implemented a new fpgGetNamedFontList() function * Enabled Font Collections support in the Font Select Dialog. Currently only the All Fonts and Alias Fonts collections are active. * TfpgMemo now has a custom internal StringList that will notify the memo of text changes. * Made many code improvements to gui_listbox unit. Lots of redundant code was removed. * Fixed a bug in gui_listbox where the OnChange event did not fire for all instances of FocusItem changing. * Fixed a bug in gui_listbox KeyPress event where it did not take into account that FocusItem is 1-based. --- examples/gui/fontselect/fontselect.lpr | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'examples/gui') diff --git a/examples/gui/fontselect/fontselect.lpr b/examples/gui/fontselect/fontselect.lpr index a93175ce..640eec05 100644 --- a/examples/gui/fontselect/fontselect.lpr +++ b/examples/gui/fontselect/fontselect.lpr @@ -36,7 +36,7 @@ type public constructor Create(AOwner: TComponent); override; end; - + { TMainForm } @@ -75,13 +75,13 @@ begin btnSelectFont := CreateButton(self, 10, 10, 110, rsSelectAFont, @btnSelectFontClick); edFontDesc := CreateEdit(self, 10, 45, Width - 20, 24); -// edFontDesc.Text := fpgApplication.DefaultFont.FontDesc; edFontDesc.Text := 'Bitstream Vera Sans-9'; lblFontList := CreateLabel(self, 10, 80, rsMyFontList + ':'); lbFontList := TfpgListBox.Create(self); with lbFontList do begin + Name := 'lbFontList'; SetPosition(10, 100, 232, 236); Items.Clear; end; @@ -93,7 +93,10 @@ begin btnQuit.ShowImage := True; btnQuit.Anchors := [anRight, anBottom]; - btnSelectFont.TabOrder := 0; + btnSelectFont.TabOrder := 1; + edFontDesc.TabOrder := 2; + lbFontList.TabOrder := 3; + btnQuit.TabOrder := 4; end; procedure MainProc; -- cgit v1.2.3-70-g09d2