pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

TRxDateEdit - publish property Spacing (from lazarus rev. 51277)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4423 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2016-01-15 11:58:38 +00:00
parent cd836a393b
commit 38f29ba1b9
2 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/rx/trunk/rxlookup.pas
View File

@ -131,6 +131,8 @@ type
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
published
property Spacing default 0;
end; end;
TRxLookupEdit = class(TRxCustomDBLookupEdit) TRxLookupEdit = class(TRxCustomDBLookupEdit)
@ -614,6 +616,7 @@ var
P:TBitmap; P:TBitmap;
begin begin
inherited Create(AOwner); inherited Create(AOwner);
Spacing:=0;
FLocateObject:=CreateLocate(nil); FLocateObject:=CreateLocate(nil);
//Lookup //Lookup

2
components/rx/trunk/tooledit.pas
View File

@ -198,6 +198,7 @@ type
property WeekendColor; property WeekendColor;
property Weekends; property Weekends;
property YearDigits; property YearDigits;
property Spacing default 0;
property OnAcceptDate; property OnAcceptDate;
property OnChange; property OnChange;
@ -376,6 +377,7 @@ end;
constructor TRxDateEdit.Create(AOwner: TComponent); constructor TRxDateEdit.Create(AOwner: TComponent);
begin begin
inherited Create(AOwner); inherited Create(AOwner);
Spacing:=0;
UpdateMask; UpdateMask;
end; end;