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

RxFPC:fix copy to clipboard memo fields from RXDBGrid

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6108 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2017-12-21 11:28:44 +00:00
parent e95935250b
commit e2556075f1
1 changed files with 16 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
components/rx/trunk/rxdb/rxdbgrid.pas
View File

@ -6268,6 +6268,12 @@ begin
begin begin
if K<>0 then if K<>0 then
S:=S+#9; S:=S+#9;
{$IF lcl_fullversion >= 1090000}
if CheckDisplayMemo(Columns[i].Field) then
S :=S + Columns[i].Field.AsString
else
{$ENDIF}
S:=S+Columns[i].Field.DisplayText; S:=S+Columns[i].Field.DisplayText;
inc(K); inc(K);
end; end;
@ -6293,7 +6299,7 @@ begin
end; end;
end; end;
end end
else (* else
if (dgMultiselect in Options) and (SelectedRows.Count>1) then if (dgMultiselect in Options) and (SelectedRows.Count>1) then
begin begin
S:=''; S:='';
@ -6341,11 +6347,17 @@ begin
Clipboard.Close; Clipboard.Close;
end; end;
end; end;
end end *)
else else
if Assigned(SelectedField) then if Assigned(SelectedField) then
try try
Clipboard.Open; Clipboard.Open;
{$IF lcl_fullversion >= 1090000}
if CheckDisplayMemo(SelectedField) then
Clipboard.AsText:=SelectedField.AsString
else
{$ENDIF}
Clipboard.AsText:=SelectedField.DisplayText; Clipboard.AsText:=SelectedField.DisplayText;
finally finally
Clipboard.Close; Clipboard.Close;