paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 08:09:18 +02: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) TDateTimeField = class(TField)
private private
FDisplayFormat : String; FDisplayFormat : String;
procedure SetDisplayFormat(const AValue: string);
protected protected
function GetAsDateTime: TDateTime; override; function GetAsDateTime: TDateTime; override;
function GetAsFloat: Double; override; function GetAsFloat: Double; override;
@ -535,7 +536,7 @@ type
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
property Value: TDateTime read GetAsDateTime write SetAsDateTime; property Value: TDateTime read GetAsDateTime write SetAsDateTime;
published published
property DisplayFormat: string read FDisplayFormat write FDisplayFormat; property DisplayFormat: string read FDisplayFormat write SetDisplayFormat;
end; end;
{ TDateField } { TDateField }
@ -1896,7 +1897,10 @@ end.
{ {
$Log$ $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. + fix for activerecord, bof false after append.
Revision 1.42 2005/03/25 11:38:01 michael Revision 1.42 2005/03/25 11:38:01 michael

12
fcl/db/fields.inc
View File

@ -1441,6 +1441,13 @@ end;
{ TDateTimeField } { TDateTimeField }
procedure TDateTimeField.SetDisplayFormat(const AValue: string);
begin
if FDisplayFormat<>AValue then begin
FDisplayFormat:=AValue;
PropertyChanged(True);
end;
end;
function TDateTimeField.GetAsDateTime: TDateTime; function TDateTimeField.GetAsDateTime: TDateTime;
@ -2185,7 +2192,10 @@ end;
{ {
$Log$ $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 + Several patches from Jose A. Rimon
# Prevents "field not found" error, when use a query without the primary key # Prevents "field not found" error, when use a query without the primary key
Set SQLlen of different data types Set SQLlen of different data types