summaryrefslogtreecommitdiff
path: root/extras/tiopf/gui
diff options
context:
space:
mode:
authorgraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2007-11-08 14:41:21 +0000
committergraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2007-11-08 14:41:21 +0000
commit6717b45ffef4638f9c08b3802454f79b7415293a (patch)
treefc069eec25355d4d259a50d72fdc863fbe936105 /extras/tiopf/gui
parentfb7cc21f0b94f77746dc17d74a1a0e95f5fdc062 (diff)
downloadfpGUI-6717b45ffef4638f9c08b3802454f79b7415293a.tar.xz
* Implemented a new mediator for use with tiOPF for the Calendar
component. * Removed the ColResize property from BaseGrid. It doesn't work as advertised. It needs to be implemented correctly. * Implemented MinDate, MaxDate properies for Calendar and did a lot more testing with a few more bugfixes. Still plenty outstanding.
Diffstat (limited to 'extras/tiopf/gui')
-rw-r--r--extras/tiopf/gui/tiGenericEditMediators.pas32
1 files changed, 30 insertions, 2 deletions
diff --git a/extras/tiopf/gui/tiGenericEditMediators.pas b/extras/tiopf/gui/tiGenericEditMediators.pas
index 878bbed9..4fe4f1d9 100644
--- a/extras/tiopf/gui/tiGenericEditMediators.pas
+++ b/extras/tiopf/gui/tiGenericEditMediators.pas
@@ -1,7 +1,6 @@
(*
Revision history:
-
2005-08-17: First release by Graeme Geldenhuys (graemeg@gmail.com)
2007-08-24: Ported the code to the fpGUI toolkit. [Graeme]
@@ -30,10 +29,10 @@ uses
,gui_edit
,gui_checkbox
,gui_label
-// ,Spin { TSpinEdit - standard component included in Lazarus LCL }
,gui_trackbar
,gui_combobox
,gui_memo
+ ,gui_popupcalendar
;
type
@@ -203,6 +202,17 @@ type
end;
+ { Base class to handle TfpgCalendarCombo controls }
+ TMediatorCalendarComboView = class(TMediatorView)
+ private
+ function GetEditControl: TfpgCalendarCombo;
+ procedure SetEditControl(const AValue: TfpgCalendarCombo);
+ public
+ property EditControl: TfpgCalendarCombo read GetEditControl write SetEditControl;
+ class function ComponentClass: TClass; override;
+ end;
+
+
{ Data class for mapping a name to a class }
TMediatorViewMapping = class(TObject)
private
@@ -930,6 +940,24 @@ begin
Result := TfpgLabel;
end;
+{ TMediatorCalendarComboView }
+
+function TMediatorCalendarComboView.GetEditControl: TfpgCalendarCombo;
+begin
+ Result := TfpgCalendarCombo(FEditControl);
+end;
+
+procedure TMediatorCalendarComboView.SetEditControl(const AValue: TfpgCalendarCombo);
+begin
+ FEditControl := AValue;
+end;
+
+class function TMediatorCalendarComboView.ComponentClass: TClass;
+begin
+ Result := TfpgCalendarCombo;
+end;
+
+
initialization
finalization
gMediatorFactory.Free;