paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-03 07:20:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixes OnGetText and OnSetText on dbedit

Browse Source 
git-svn-id: trunk@9682 -
This commit is contained in:
jesus 2006-07-26 07:22:39 +00:00
parent e22f30c84d
commit db551f79b8
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/dbedit.inc
View File

@ -34,7 +34,8 @@ begin
//if the field is currently modifiable //if the field is currently modifiable
if Focused and FDataLink.CanModify then if Focused and FDataLink.CanModify then
//display the real text since we can modify it //display the real text since we can modify it
Text := FDataLink.Field.DisplayText//this is wrong, but Text seems Broken //Text := FDataLink.Field.DisplayText//this is wrong, but Text seems Broken
Text := FDatalink.Field.Text
else else
//otherwise display the pretified/formated text since we can't //otherwise display the pretified/formated text since we can't
EditText := FDataLink.Field.DisplayText; EditText := FDataLink.Field.DisplayText;
@ -85,7 +86,7 @@ begin
//the changes have been validated //the changes have been validated
ValidateEdit; ValidateEdit;
FDataLink.Field.Text := Text; FDataLink.Field.Text := Text;
FDataLink.Field.AsString := Text;// I shouldn't have to do this, but text seems broken //FDataLink.Field.AsString := Text;// I shouldn't have to do this, but text seems broken
end; end;
procedure TDBEdit.FocusRequest(Sender: TObject); procedure TDBEdit.FocusRequest(Sender: TObject);