summaryrefslogtreecommitdiff
path: root/UGnome.pas
diff options
context:
space:
mode:
Diffstat (limited to 'UGnome.pas')
-rw-r--r--UGnome.pas14
1 files changed, 7 insertions, 7 deletions
diff --git a/UGnome.pas b/UGnome.pas
index a54adbf..8659410 100644
--- a/UGnome.pas
+++ b/UGnome.pas
@@ -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;
(********************************************************************************************************************************)