summaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
Diffstat (limited to 'examples')
-rw-r--r--examples/gui/calendar/calendartest.lpi5
-rw-r--r--examples/gui/calendar/calendartest.lpr20
2 files changed, 15 insertions, 10 deletions
diff --git a/examples/gui/calendar/calendartest.lpi b/examples/gui/calendar/calendartest.lpi
index 7e9271ef..33da74c7 100644
--- a/examples/gui/calendar/calendartest.lpi
+++ b/examples/gui/calendar/calendartest.lpi
@@ -40,6 +40,11 @@
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
+ <Parsing>
+ <SyntaxOptions>
+ <CStyleOperator Value="False"/>
+ </SyntaxOptions>
+ </Parsing>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
diff --git a/examples/gui/calendar/calendartest.lpr b/examples/gui/calendar/calendartest.lpr
index 1587d753..67e94651 100644
--- a/examples/gui/calendar/calendartest.lpr
+++ b/examples/gui/calendar/calendartest.lpr
@@ -18,16 +18,6 @@ uses
type
TMainForm = class(TfpgForm)
private
- procedure btnDateFormatClicked(Sender: TObject);
- procedure btnTodayClicked(Sender: TObject);
- procedure btnMinDateClicked(Sender: TObject);
- procedure btnMaxDateClicked(Sender: TObject);
- procedure cbWHolidayChange(Sender: TObject);
- procedure cbName1Change(Sender: TObject);
- procedure cbCloseOnSelectChanged(Sender: TObject);
- procedure btnClearClicked(Sender: TObject);
- procedure DrawCalendar(month, year: integer);
- public
{@VFD_HEAD_BEGIN: MainForm}
btnClear: TfpgButton;
lblWHoliday: TfpgLabel;
@@ -47,6 +37,16 @@ type
lblName1: TfpgLabel;
bvlName1: TfpgBevel;
{@VFD_HEAD_END: MainForm}
+ procedure btnDateFormatClicked(Sender: TObject);
+ procedure btnTodayClicked(Sender: TObject);
+ procedure btnMinDateClicked(Sender: TObject);
+ procedure btnMaxDateClicked(Sender: TObject);
+ procedure cbWHolidayChange(Sender: TObject);
+ procedure cbName1Change(Sender: TObject);
+ procedure cbCloseOnSelectChanged(Sender: TObject);
+ procedure btnClearClicked(Sender: TObject);
+ procedure DrawCalendar(month, year: integer);
+ public
FDropDown: TfpgPopupCalendar;
procedure AfterCreate; override;
end;