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

44
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 not Focused then if FDataLink.Field <> nil then
formatInput begin
if not Focused then
formatInput
else
Caption := FDataLink.Field.AsString;
end
else else
Caption := FDataLink.Field.AsString; Text := '';
end; end;
function TJDBCurrencyEdit.getDecimals: integer; function TJDBCurrencyEdit.getDecimals: integer;
@ -157,23 +162,28 @@ procedure TJDBCurrencyEdit.UpdateData(Sender: TObject);
var var
theValue: currency; theValue: currency;
begin begin
if IsValidCurrency(Text) then if FDataLink.Field <> nil then
begin begin
theValue := StrToCurr(Text); if IsValidCurrency(Text) then
theValue := ScaleTo(theValue, fDecimales); begin
Text := CurrToStr(theValue); theValue := StrToCurr(Text);
FDataLink.Field.Text := Text; theValue := ScaleTo(theValue, fDecimales);
Text := CurrToStr(theValue);
FDataLink.Field.Text := Text;
end
else
begin
if FDataLink.Field <> nil then
begin
ShowMessage(Caption + ' no es un valor válido');
Caption := FDataLink.Field.AsString;
SelectAll;
SetFocus;
end;
end;
end end
else else
begin Text := '';
if FDataLink.Field <> nil then
begin
ShowMessage(Caption + ' no es un valor válido');
Caption := FDataLink.Field.AsString;
SelectAll;
SetFocus;
end;
end;
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);

15
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 not Focused then if FDataLink.Field <> nil then
formatInput begin
if not Focused then
formatInput
else
Caption := FDataLink.Field.AsString;
end
else else
Caption := FDataLink.Field.AsString; 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);