diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-02-27 21:50:06 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-02-27 21:50:06 +0000 |
commit | 9059c000d334becd0c7b08eb50aa88ce2ca78905 (patch) | |
tree | 264853634b8a2aaf8e69d9adb2ca7b798c32ebfa /examples/gui | |
parent | 3664cd44e2aadad9c06d3d1c00469f67f5e087fd (diff) | |
download | fpGUI-9059c000d334becd0c7b08eb50aa88ce2ca78905.tar.xz |
* Created two new units called: gfx_pofiles.pas and gfx_translations.pas. They are used for reading PO files and translating the resourcestrings.
* TranslateResourceStrings are now called in TfpgApplication.InternalInit().
* Added a new include file for gfx_utils unit. It's a include file for common code across platforms.
Diffstat (limited to 'examples/gui')
-rw-r--r-- | examples/gui/fontselect/fontselect.lpr | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/examples/gui/fontselect/fontselect.lpr b/examples/gui/fontselect/fontselect.lpr index 15514674..0c2187b5 100644 --- a/examples/gui/fontselect/fontselect.lpr +++ b/examples/gui/fontselect/fontselect.lpr @@ -13,7 +13,8 @@ uses gui_button, gui_listbox, gui_edit, - gui_label; + gui_label, + gfx_constants; type @@ -65,7 +66,7 @@ begin WindowTitle := 'Font selection test'; SetPosition(100, 100, 500, 400); - btnSelectFont := CreateButton(self, 10, 10, 110, 'Select Font...', @btnSelectFontClick); + btnSelectFont := CreateButton(self, 10, 10, 110, rsSelectAFont, @btnSelectFontClick); edFontDesc := CreateEdit(self, 10, 45, Width - 20, 24); // edFontDesc.Text := fpgApplication.DefaultFont.FontDesc; @@ -81,7 +82,7 @@ begin CreateFontList; - btnQuit := CreateButton(self, 415, 370, 80, 'Quit', @btnQuitClick); + btnQuit := CreateButton(self, 415, 370, 80, rsExit, @btnQuitClick); btnQuit.ImageName := 'stdimg.Quit'; btnQuit.ShowImage := True; btnQuit.Anchors := [anRight, anBottom]; |