diff options
| -rw-r--r-- | examples/gui/customstyles/customstyles.lpi | 4 | ||||
| -rw-r--r-- | examples/gui/customstyles/customstyles.lpr | 3 | ||||
| -rw-r--r-- | examples/gui/customstyles/frm_test.pas | 42 |
3 files changed, 40 insertions, 9 deletions
diff --git a/examples/gui/customstyles/customstyles.lpi b/examples/gui/customstyles/customstyles.lpi index b2996aeb..50b2d740 100644 --- a/examples/gui/customstyles/customstyles.lpi +++ b/examples/gui/customstyles/customstyles.lpi @@ -1,4 +1,4 @@ -<?xml version="1.0"?> +<?xml version="1.0" encoding="UTF-8"?> <CONFIG> <ProjectOptions> <Version Value="9"/> @@ -52,7 +52,7 @@ </Units> </ProjectOptions> <CompilerOptions> - <Version Value="9"/> + <Version Value="11"/> <Parsing> <SyntaxOptions> <CStyleOperator Value="False"/> diff --git a/examples/gui/customstyles/customstyles.lpr b/examples/gui/customstyles/customstyles.lpr index 419e6456..16b00ac8 100644 --- a/examples/gui/customstyles/customstyles.lpr +++ b/examples/gui/customstyles/customstyles.lpr @@ -1,7 +1,7 @@ { fpGUI - Free Pascal GUI Toolkit - Copyright (C) 2006 - 2011 See the file AUTHORS.txt, included in this + Copyright (C) 2006 - 2013 See the file AUTHORS.txt, included in this distribution, for details of the copyright. See the file COPYING.modifiedLGPL, included in this distribution, @@ -25,7 +25,6 @@ quotes. } - program customstyles; {$mode objfpc}{$H+} diff --git a/examples/gui/customstyles/frm_test.pas b/examples/gui/customstyles/frm_test.pas index 6eb30b35..1cefa10a 100644 --- a/examples/gui/customstyles/frm_test.pas +++ b/examples/gui/customstyles/frm_test.pas @@ -1,3 +1,20 @@ +{ + fpGUI - Free Pascal GUI Toolkit + + Copyright (C) 2006 - 2013 See the file AUTHORS.txt, included in this + distribution, for details of the copyright. + + See the file COPYING.modifiedLGPL, included in this distribution, + for details about redistributing fpGUI. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + + Description: + Demo form showing some widgets in different states, and how the themes + paint them. +} unit frm_test; {$mode objfpc}{$H+} @@ -5,8 +22,16 @@ unit frm_test; interface uses - SysUtils, Classes, fpg_base, fpg_main, fpg_widget, - fpg_form, fpg_edit, fpg_label, fpg_button, fpg_menu, + SysUtils, + Classes, + fpg_base, + fpg_main, + fpg_widget, + fpg_form, + fpg_edit, + fpg_label, + fpg_button, + fpg_menu, fpg_memo; type @@ -33,6 +58,7 @@ type Label1: TfpgLabel; {@VFD_HEAD_END: TestForm} procedure CloseClicked(Sender: TObject); + procedure HelpAboutClicked(Sender: TObject); public procedure AfterCreate; override; end; @@ -42,7 +68,8 @@ type implementation uses - fpg_stylemanager; + fpg_stylemanager, + fpg_dialogs; {@VFD_NEWFORM_IMPL} @@ -51,6 +78,11 @@ begin Close; end; +procedure TTestForm.HelpAboutClicked(Sender: TObject); +begin + TfpgMessageDialog.AboutFPGui(''); +end; + procedure TTestForm.AfterCreate; var miSubMenu: TfpgMenuItem; @@ -198,7 +230,7 @@ begin AddMenuItem('-', '', nil); AddMenuItem('Save && Reload', '', nil); AddMenuItem('-', '', nil); - AddMenuItem('&Quit', 'Ctrl+Q', nil); + AddMenuItem('&Quit', 'Ctrl+Q', @CloseClicked); end; pmEdit := TfpgPopupMenu.Create(self); @@ -219,7 +251,7 @@ begin begin Name := 'pmHelp'; SetPosition(204, 196, 120, 24); - AddMenuItem('About...', '', nil); + AddMenuItem('About...', '', @HelpAboutClicked); end; pmSubMenu1 := TfpgPopupMenu.Create(self); |