diff options
Diffstat (limited to 'UGnome.pas')
| -rw-r--r-- | UGnome.pas | 14 |
1 files changed, 7 insertions, 7 deletions
@@ -58,13 +58,13 @@ type TGnomeColorButton = class(TGTKButton) TGnomeDateEdit = class(TGTKHBox) private - function GetTime: TDateTime; - procedure SetTime(Value: TDateTime); + function GetTime: time_t; + procedure SetTime(Value: time_t); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; published - property Time: TDateTime read GetTime write SetTime; + property Time: time_t read GetTime write SetTime; end; TEphyNotebook = class; @@ -336,14 +336,14 @@ begin inherited Destroy; end; -function TGnomeDateEdit.GetTime: TDateTime; +function TGnomeDateEdit.GetTime: time_t; begin - Result := UnixToDateTime(gnome_date_edit_get_time(FWidget)); + Result := gnome_date_edit_get_time(FWidget); end; -procedure TGnomeDateEdit.SetTime(Value: TDateTime); +procedure TGnomeDateEdit.SetTime(Value: time_t); begin - gnome_date_edit_set_time(FWidget, DateTimeToUnix(Value)); + gnome_date_edit_set_time(FWidget, Value); end; (********************************************************************************************************************************) |
