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

Remove: unused unit and code

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2061 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jujibo
2011-10-05 07:40:13 +00:00
parent b5d913b470
commit 12bd7eecd9
1 changed files with 1 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/jujiboutils/src/jdbgridutils.pas
View File

@ -22,7 +22,7 @@ unit jdbgridutils;
interface interface
uses uses
Classes, SysUtils, Grids, Dialogs, LCLType, LCLProc, DBGrids, Controls, DB, Classes, SysUtils, Grids, Dialogs, LCLType, DBGrids, Controls, DB,
jcontrolutils, jinputconsts; jcontrolutils, jinputconsts;
type type
@ -199,8 +199,6 @@ begin
if edited and (not updated) then if edited and (not updated) then
begin begin
Field.DataSet.DisableControls; Field.DataSet.DisableControls;
if (fMaxLength > 0) and (UTF8Length(CellEditor.Text) > fMaxLength) then
CellEditor.Text := UTF8Copy(CellEditor.Text, 0, fMaxLength);
Field.DataSet.Edit; Field.DataSet.Edit;
Field.AsString := CellEditor.Text; Field.AsString := CellEditor.Text;
field.DataSet.EnableControls; field.DataSet.EnableControls;
@ -230,8 +228,6 @@ begin
if Key in [VK_RETURN, VK_TAB, VK_RIGHT, VK_LEFT] then if Key in [VK_RETURN, VK_TAB, VK_RIGHT, VK_LEFT] then
begin begin
Field.DataSet.Edit; Field.DataSet.Edit;
if (fMaxLength > 0) and (UTF8Length(CellEditor.Text) > fMaxLength) then
CellEditor.Text := UTF8Copy(CellEditor.Text, 0, fMaxLength);
Field.AsString := CellEditor.Text; Field.AsString := CellEditor.Text;
CellEditor.SelectAll; CellEditor.SelectAll;
updated := True; updated := True;