1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
{
/***************************************************************************
DbExtCtrls.pp
-------------
***************************************************************************/
*****************************************************************************
This file is part of the Lazarus Component Library (LCL)
See the file COPYING.modifiedLGPL.txt, included in this distribution,
for details about the license.
*****************************************************************************
}
unit DBExtCtrls;
{$mode objfpc}
{$H+}
interface
uses
Classes, SysUtils, LCLType, LMessages,
DB, DBCtrls, EditBtn;
type
{ TDBDateEdit }
TDBDateEdit = class(TDateEdit)
private
FDataLink: TFieldDataLink;
procedure DataChange(Sender: TObject);
procedure UpdateData(Sender: TObject);
function GetDataField: string;
function GetDataSource: TDataSource;
procedure SetDataField(const Value: string);
procedure SetDataSource(Value: TDataSource);
procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
function GetField: TField;
protected
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
function EditCanModify: Boolean; override;
procedure EditEnter; override;
procedure EditKeyDown(var Key: Word; Shift: TShiftState); override;
procedure EditKeyPress(var Key: Char); override;
procedure ButtonClick; override;
procedure EditChange; override;
procedure EditExit; override;
procedure Reset; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
function ExecuteAction(AAction: TBasicAction): Boolean; override;
function UpdateAction(AAction: TBasicAction): Boolean; override;
property Field: TField read GetField;
published
property DataField: string read GetDataField write SetDataField;
property DataSource: TDataSource read GetDataSource write SetDataSource;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Data Controls',[TDBDateEdit]);
end;
{$Include dbdateedit.inc}
end.
|
