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

Sanity checks

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1970 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jujibo
2011-09-19 11:59:02 +00:00
parent 210a9b2ddd
commit 0f3f32ed94
3 changed files with 46 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/jujiboutils/jujibo-utils/src/jdbcurrencyedit.pas
View File

@ -135,10 +135,15 @@ end;
procedure TJDBCurrencyEdit.DataChange(Sender: TObject); procedure TJDBCurrencyEdit.DataChange(Sender: TObject);
begin begin
if FDataLink.Field <> nil then
begin
if not Focused then if not Focused then
formatInput formatInput
else else
Caption := FDataLink.Field.AsString; Caption := FDataLink.Field.AsString;
end
else
Text := '';
end; end;
function TJDBCurrencyEdit.getDecimals: integer; function TJDBCurrencyEdit.getDecimals: integer;
@ -157,6 +162,8 @@ procedure TJDBCurrencyEdit.UpdateData(Sender: TObject);
var var
theValue: currency; theValue: currency;
begin begin
if FDataLink.Field <> nil then
begin
if IsValidCurrency(Text) then if IsValidCurrency(Text) then
begin begin
theValue := StrToCurr(Text); theValue := StrToCurr(Text);
@ -174,6 +181,9 @@ begin
SetFocus; SetFocus;
end; end;
end; end;
end
else
Text := '';
end; end;
procedure TJDBCurrencyEdit.FocusRequest(Sender: TObject); procedure TJDBCurrencyEdit.FocusRequest(Sender: TObject);

10
components/jujiboutils/jujibo-utils/src/jdbdateedit.pas
View File

@ -130,10 +130,15 @@ end;
procedure TJDBDateEdit.DataChange(Sender: TObject); procedure TJDBDateEdit.DataChange(Sender: TObject);
begin begin
if FDataLink.Field <> nil then
begin
if not Focused then if not Focused then
formatInput formatInput
else else
Caption := FDataLink.Field.AsString; Caption := FDataLink.Field.AsString;
end
else
Text := '';
end; end;
procedure TJDBDateEdit.UpdateData(Sender: TObject); procedure TJDBDateEdit.UpdateData(Sender: TObject);
@ -157,8 +162,9 @@ begin
SelectAll; SelectAll;
SetFocus; SetFocus;
end; end;
end
end; else
Text := '';
end; end;
procedure TJDBDateEdit.FocusRequest(Sender: TObject); procedure TJDBDateEdit.FocusRequest(Sender: TObject);

9
components/jujiboutils/jujibo-utils/src/jdbintegeredit.pas
View File

@ -128,10 +128,15 @@ end;
procedure TJDBIntegerEdit.DataChange(Sender: TObject); procedure TJDBIntegerEdit.DataChange(Sender: TObject);
begin begin
if FDataLink.Field <> nil then
begin
if not Focused then if not Focused then
formatInput formatInput
else else
Caption := FDataLink.Field.AsString; Caption := FDataLink.Field.AsString;
end
else
Text := '';
end; end;
@ -148,7 +153,9 @@ begin
SelectAll; SelectAll;
SetFocus; SetFocus;
end; end;
end; end
else
Text := '';
end; end;
procedure TJDBIntegerEdit.FocusRequest(Sender: TObject); procedure TJDBIntegerEdit.FocusRequest(Sender: TObject);