CxGrid筛选自动添加百分号和默认旧的滚动条样式

2018-10-29

Delphi

约 693 字预计阅读 2 分钟

文章目录

【注意】最后更新于 2 months ago，文中内容可能已过时，请谨慎使用。

cxGrid支持使用like过滤时自动添加百分号

默认状态下，不会添加 %% 到过滤串中，修改源码如下

cxFilter.pas 在 \Library\Sources\cxFilter.pas 和 \ExpressDataController\Sources\cxFilter.pas 两个地方都有一个，一起修改掉

cxFilter.pas 的 TcxFilterCriteria.AddItem 改成这样

//if AParent = nil then

// AParent := Root;

//Result := AParent.AddItem(AItemLink, AOperatorKind, AValue, ADisplayValue);

if AParent = nil then

AParent := Root;

if AOperatorKind in [foLike, foNotLike] then

Result := AParent.AddItem(AItemLink, AOperatorKind, '%' + AValue + '%', ADisplayValue)

else

Result := AParent.AddItem(AItemLink, AOperatorKind, AValue, ADisplayValue);

cxFilterDialog.pas 在 Library\Sources\cxFilterDialog.pas和ExpressQuantumGrid\Sources\cxFilterDialog.pas

// TcxFilterDialog.AddFilterItem

procedure TcxFilterDialog.AddFilterItem(AParent: TcxFilterCriteriaItemList;

AComboBox: TcxComboBox; AValue: Variant; ADisplayValue: string);

var

AOperator: TcxFilterControlOperator;

begin

AOperator := GetOperator(AComboBox);

if AOperator = fcoNone then Exit;

//edited by lero 09-11-18 如果是like,而且没有输入%时,自动在前后加入%

if AOperator in [fcoLike, fcoNotLike] then

begin

if VarIsStr(AValue) and (AValue <> '') and (Pos('%', AValue) = 0) then

AValue := '%' + AValue + '%';

end;

if AOperator in [fcoBlanks, fcoNonBlanks] then

AValue := Null;

if VarIsNull(AValue) or (VarIsStr(AValue) and (AValue = '')) then

ADisplayValue := cxGetResourceString(@cxSFilterBlankCaption);

Criteria.AddItem(AParent, ItemLink, GetFilterOperatorKind(AOperator), AValue, ADisplayValue);

end;

DevExpress控件滚动条默认使用旧的经典滚动条样式

新版本，应该是17还是多少版本开始，默认使用触摸的滚动条样式，查询了官方的论坛之后，可以修改如下

搜索cxVer.inc 在 \Library\Sources\cxVer.inc 和 \ExpressCore Library\Sources\cxVer.inc 两个地方各有一个

打开后，搜索 USETOUCHSCROLLUIMODEASDEFAULT 在 $DEFINE 前面加个点即可

1	{.$DEFINE USETOUCHSCROLLUIMODEASDEFAULT}

DevExpress下拉lookup控件加入输入时自动定位

单元 cxCustomData.pas Library\Sources\cxCustomData.pasExpressDataController\Sources\cxCustomData.pas 修改如下

function TcxCustomDataController.DoIncrementalFilterRecord(ARecordIndex: Integer): Boolean;

var

S: string;

I: Integer;

begin

//edited by lero---

Result := False;

for I := 0 to Fields.ItemCount - 1 do

begin

S := GetInternalDisplayText(ARecordIndex, Fields[i]);

Result := DataCompareText(S, FIncrementalFilterText, True);

if Result then

begin

FDisplayIndex := i;

Exit;

end;

//S := GetInternalDisplayText(ARecordIndex, FIncrementalFilterField);

//Result := DataCompareText(S, FIncrementalFilterText, True, FIncrementalFilteringFromAnyPos);

end;

在SortingBySummaryDataItemIndex属性下方添加, 不要忘了在private节下加入 FDisplayIndex:Integer;

1	property DisplayIndex: Integer read FDisplayIndex write FDisplayIndex; //add by lero

单元 cxLookupEdit.pas 分别在 Library\Sources\cxLookupEdit.pas 和 ExpressEditors Library\Sources\cxLookupEdit.pas

// TcxCustomLookupEditLookupData.Locate

if ARecordIndex <> -1 then

begin

DataController.ChangeFocusedRecordIndex(ARecordIndex);

DoSetCurrentKey(ARecordIndex);

Result := True;

//此处为添加代码 add by lero---

if DataController.DisplayIndex > -1 then

begin

S := DataController.DisplayTexts[ARecordIndex, DataController.DisplayIndex];

DataController.DisplayIndex := -1;

end

else

begin

S := DataController.DisplayTexts[ARecordIndex, AItemIndex];

end;

//结束

//S := DataController.DisplayTexts[ARecordIndex, AItemIndex];

if IsLikeTypeFiltering then

ATail := ''

else

begin

AText := Copy(S, 1, Length(AText));

ATail := Copy(S, Length(AText) + 1, Length(S));

end;

DoSetKeySelection(True);

end

else

DoSetKeySelection(False);