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

Fixed: TJDBGridControl Focus issues

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2734 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jujibo
2013-04-30 07:43:57 +00:00
parent cc4e8d39f7
commit 758c208d7d
2 changed files with 17 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/jujiboutils/changes.txt
View File

@ -5,6 +5,7 @@ Note: Lazarus Trunk required
Version pre-1.1
--------------------------------------------------
2013-04-29 Fixed: TJDBGridControl Focus issues
2013-01-03 Added: TJDbEnumCombo, like TDbComboBox but, uses itemindex instead of text
2012-09-20 Added: TJLabeledIntegerEdit and TJLabeledFloatEdit property CurrentValue
2012-06-12 Fixed: TJDbGridTimeCtrl, store time value

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

@ -267,6 +267,7 @@ end;
function TJDbGridStringCtrl.CanDefocus: boolean;
begin
CellEditor.Visible := False;
Result := True;
end;
@ -458,7 +459,9 @@ begin
else
Result := True;
if not Result then
ShowMessage(Format(SInvalidDateTime, [CellEditor.Text]));
ShowMessage(Format(SInvalidDateTime, [CellEditor.Text]))
else
CellEditor.Visible := False;
end;
{ TJDbGridTimeCtrl }
@ -646,7 +649,9 @@ begin
else
Result := True;
if not Result then
ShowMessage(Format(SInvalidTime, [CellEditor.Text]));
ShowMessage(Format(SInvalidTime, [CellEditor.Text]))
else
CellEditor.Visible := False;
end;
{ TJDbGridDateCtrl }
@ -835,7 +840,9 @@ begin
else
Result := True;
if not Result then
ShowMessage(Format(SInvalidDate, [CellEditor.Text]));
ShowMessage(Format(SInvalidDate, [CellEditor.Text]))
else
CellEditor.Visible := False;
end;
{ TJDbGridDoubleCtrl }
@ -991,7 +998,9 @@ begin
else
Result := True;
if not Result then
ShowMessage(Format(SInvalidNumber, [CellEditor.Text]));
ShowMessage(Format(SInvalidNumber, [CellEditor.Text]))
else
CellEditor.Visible := False;
end;
{ TJDbGridIntegerCtrl }
@ -1116,7 +1125,9 @@ begin
else
Result := True;
if not Result then
ShowMessage(Format(SInvalidNumber, [CellEditor.Text]));
ShowMessage(Format(SInvalidNumber, [CellEditor.Text]))
else
CellEditor.Visible := False;
end;
end.