diff options
Diffstat (limited to 'examples')
-rw-r--r-- | examples/gui/calendar/calendartest.lpi | 5 | ||||
-rw-r--r-- | examples/gui/calendar/calendartest.lpr | 20 |
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; |