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

RxFPC:fix TRxDBCurrEdit ReadOnly - tnx bpranoto

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8029 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2021-05-12 14:00:21 +00:00
parent a9c9aa1c73
commit d5d13bb856
1 changed files with 23 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
components/rx/trunk/rxdb/rxdbcurredit.pas
View File

@ -192,20 +192,30 @@ end;
procedure TRxDBCurrEdit.KeyDown(var Key: Word; Shift: TShiftState);
begin
inherited KeyDown(Key, Shift);
if Key=VK_ESCAPE then
begin
//cancel out of editing by reset on esc
FDataLink.Reset;
SelectAll;
Key := VK_UNKNOWN;
if Self.FDataLink.Editing then begin
if Key=VK_ESCAPE then
begin
//cancel out of editing by reset on esc
FDataLink.Reset;
SelectAll;
Key := VK_UNKNOWN;
end
else
if (Key<>VK_UNKNOWN) then
begin
//make sure we call edit to ensure the datset is in edit,
//this is for where the datasource is in autoedit, so we aren't
//read only even though the dataset isn't realy in edit
FDataLink.Edit;
end;
end
else
if (Key<>VK_UNKNOWN) then
begin
//make sure we call edit to ensure the datset is in edit,
//this is for where the datasource is in autoedit, so we aren't
//read only even though the dataset isn't realy in edit
FDataLink.Edit;
else begin
if Key <> VK_TAB then begin
Key := VK_UNKNOWN;
end;
end;
end;