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

RxFPC:fix compile RxDBGrids on Lazarus 1.8

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6094 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2017-12-11 08:33:08 +00:00
parent 4ebb9bc2ae
commit 7f03771ace
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -38,7 +38,7 @@ interface
uses
Classes, SysUtils, LResources, LCLType, LCLIntf, Forms, Controls, Buttons,
Graphics, Dialogs, Grids, rxdbutils, DBGrids, DB, PropertyStorage, rxlclutils,
LMessages, types, StdCtrls, Menus, rxspin;
LMessages, types, StdCtrls, Menus, rxspin, LCLVersion;
const
CBadQuickSearchSymbols = [VK_UNKNOWN..VK_HELP] + [VK_LWIN..VK_SLEEP] +
@ -4076,9 +4076,11 @@ begin
begin
if AField.dataType <> ftBlob then
begin
{$IF lcl_fullversion >= 1090000}
if CheckDisplayMemo(AField) then
Result := AField.AsString
else
{$ENDIF}
Result := AField.DisplayText;
if Assigned(ACollumn) and (ACollumn.KeyList.Count > 0) and (ACollumn.PickList.Count > 0) then
begin