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

lcl: Undo r57591 #2bad73f4cf (breaks display of DBMemo if no OnGetText/OnSetText handler is attached).

Browse Source 
git-svn-id: trunk@57595 -
This commit is contained in:
wp 2018-04-03 07:57:45 +00:00
parent 3746e63947
commit e6cd329fc4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/dbmemo.inc
View File

@ -100,7 +100,7 @@ procedure TDBMemo.UpdateData(Sender: TObject);
begin
if not FDBMemoLoaded then exit;
if not FDataLink.CanModify then exit;
FDataLink.Field.Text := Text;
FDataLink.Field.AsString := Text;
end;
constructor TDBMemo.Create(TheOwner: TComponent);
@ -236,7 +236,7 @@ begin
if not FDBMemoLoaded and (FDataLink.Field<>nil)
and FDataLink.Field.IsBlob then begin
try
Lines.Text := FDataLink.Field.Text;
Lines.Text := FDataLink.Field.AsString;
FDBMemoLoaded:=True;
except
on E:EInvalidOperation do