diff options
Diffstat (limited to 'examples/gui/fontselect/fontselect.lpr')
-rw-r--r-- | examples/gui/fontselect/fontselect.lpr | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/examples/gui/fontselect/fontselect.lpr b/examples/gui/fontselect/fontselect.lpr index ce5e301a..a93175ce 100644 --- a/examples/gui/fontselect/fontselect.lpr +++ b/examples/gui/fontselect/fontselect.lpr @@ -14,8 +14,12 @@ uses gui_listbox, gui_edit, gui_label, - gfx_constants, - strconstants; + gfx_constants; + + +resourcestring + rsMyTitle = 'Font selection test'; + rsMyFontList = 'Font List'; type @@ -65,7 +69,7 @@ end; constructor TMainForm.Create(AOwner: TComponent); begin inherited Create(AOwner); - WindowTitle := rsTitle; + WindowTitle := rsMyTitle; SetPosition(100, 100, 500, 400); btnSelectFont := CreateButton(self, 10, 10, 110, rsSelectAFont, @btnSelectFontClick); @@ -74,7 +78,7 @@ begin // edFontDesc.Text := fpgApplication.DefaultFont.FontDesc; edFontDesc.Text := 'Bitstream Vera Sans-9'; - lblFontList := CreateLabel(self, 10, 80, 'Font List:'); + lblFontList := CreateLabel(self, 10, 80, rsMyFontList + ':'); lbFontList := TfpgListBox.Create(self); with lbFontList do begin |