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

fix ReadOnly for rxDBDateEdit

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2492 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2012-08-26 10:35:54 +00:00
parent e24c69622d
commit f4e3cdde5d
2 changed files with 52 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/rx/dbdateedit.pas
View File

@ -159,6 +159,7 @@ end;
procedure TDBDateEdit.SetReadOnly(const AValue: Boolean);
begin
inherited SetReadOnly(AValue);
FDataLink.ReadOnly:=AValue;
end;

8
components/rx/rxdbgrid.pas
View File

@ -526,6 +526,8 @@ type
procedure DrawCell(aCol, aRow: integer; aRect: TRect; aState: TGridDrawState);
override;
procedure LinkActive(Value: boolean); override;
procedure SetDBHandlers(Value: boolean);virtual;
procedure DrawFooterRows; virtual;
procedure DoTitleClick(ACol: longint; AField: TField); virtual;
@ -2428,6 +2430,10 @@ begin
F_SortListField.Clear;
if {not (csDestroying in ComponentState) and} not (csDesigning in ComponentState) then
SetDBHandlers(Value);
end;
procedure TRxDBGrid.SetDBHandlers(Value: boolean);
begin
if Value then
begin
@ -2474,14 +2480,12 @@ begin
F_EventOnDeleteError := nil;
DataSource.DataSet.OnPostError := F_EventOnPostError;
F_EventOnPostError := nil;
// OptionsRx := OptionsRx - [rdgFilter];
if rdgFilter in OptionsRx then
OnFilter(nil);
end;
F_LastFilter.Clear;
end;
end;
end;
procedure TRxDBGrid.DrawFooterRows;
var