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