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

RxFPC: Rename TDBDateEdit to TRxDBDateEdit. Warning - this version of RxFPC ONLY for Lazarus 1.3 and later

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3869 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2015-01-06 06:09:20 +00:00
parent 218ee092dd
commit 408e81b6ea
11 changed files with 41 additions and 657 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
components/rx/trunk/rxdbgrid.pas
View File

@ -992,11 +992,7 @@ type
FGrid: TRxDBGrid;
FCol, FRow: integer;
protected
{$IFDEF OLD_EDITBUTTON}
procedure Change; override;
{$ELSE}
procedure EditChange; override;
{$ENDIF}
procedure KeyDown(var Key: word; Shift: TShiftState); override;
procedure WndProc(var TheMessage: TLMessage); override;
@ -1403,19 +1399,11 @@ end;
{ TRxDBGridDateEditor }
{$IFDEF OLD_EDITBUTTON}
procedure TRxDBGridDateEditor.Change;
{$ELSE}
procedure TRxDBGridDateEditor.EditChange;
{$ENDIF}
var
D:TDateTime;
begin
{$IFDEF OLD_EDITBUTTON}
inherited Change;
{$ELSE}
inherited EditChange;
{$ENDIF}
if Assigned(FGrid) and FGrid.DatalinkActive and not FGrid.EditorIsReadOnly then
begin
if not (FGrid.DataSource.DataSet.State in dsEditModes) then