paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 16:59:45 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Patch from Jesus reyes to notify changes to DisplayFormat

Browse Source
This commit is contained in:
michael 2005-04-04 07:30:51 +00:00
parent 517be15bc4
commit 516dfd4c01
2 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fcl/db/db.pp
View File

@ -521,6 +521,7 @@ type
TDateTimeField = class(TField)
private
FDisplayFormat : String;
procedure SetDisplayFormat(const AValue: string);
protected
function GetAsDateTime: TDateTime; override;
function GetAsFloat: Double; override;
@ -535,7 +536,7 @@ type
constructor Create(AOwner: TComponent); override;
property Value: TDateTime read GetAsDateTime write SetAsDateTime;
published
property DisplayFormat: string read FDisplayFormat write FDisplayFormat;
property DisplayFormat: string read FDisplayFormat write SetDisplayFormat;
end;
{ TDateField }
@ -1896,7 +1897,10 @@ end.
{
$Log$
Revision 1.43 2005-03-29 10:07:34 michael
Revision 1.44 2005-04-04 07:30:51 michael
+ Patch from Jesus reyes to notify changes to DisplayFormat
Revision 1.43 2005/03/29 10:07:34 michael
+ fix for activerecord, bof false after append.
Revision 1.42 2005/03/25 11:38:01 michael

12
fcl/db/fields.inc
View File

@ -1441,6 +1441,13 @@ end;
{ TDateTimeField }
procedure TDateTimeField.SetDisplayFormat(const AValue: string);
begin
if FDisplayFormat<>AValue then begin
FDisplayFormat:=AValue;
PropertyChanged(True);
end;
end;
function TDateTimeField.GetAsDateTime: TDateTime;
@ -2185,7 +2192,10 @@ end;
{
$Log$
Revision 1.28 2005-03-23 08:17:51 michael
Revision 1.29 2005-04-04 07:30:51 michael
+ Patch from Jesus reyes to notify changes to DisplayFormat
Revision 1.28 2005/03/23 08:17:51 michael
+ Several patches from Jose A. Rimon
# Prevents "field not found" error, when use a query without the primary key
Set SQLlen of different data types