////cxDataUtils.pas function ConvertASCII(AString:String):String;// eklenecek var b1:TBytes; begin b1 := BytesOf(AString); b1 := TEncoding.Convert(TEncoding.Default,TEncoding.ASCII,b1); result := StringOf(b1); end; function DataCompareText(const S1, S2: string; APartialCompare: Boolean;AContainsCompare:Boolean): Boolean;//mevcut fonksiyonu bu şekilde değiştirelim var AText1, AText2: string; L2: Integer; begin //22.08.2010 berkant değiştirdi AContainsCompare diye bir parametre yok orjinalinde AText1 := AnsiUpperCase(S1); AText2 := AnsiUpperCase(S2); L2 := Length(AText2); if L2 = 0 then Result := Length(AText1) = 0 else if not APartialCompare then Result := AText1 = AText2 else if AContainsCompare then begin AText1 := UpperCase(ConvertASCII(AText1)); AText2 := UpperCase( ConvertASCII(AText2)); result := Pos(AText2, AText1)>0 end else Result := (Length(AText1) >= L2) and (Copy(AText1, 1, L2) = AText2); end; ////yukardaki kodlar cxDataUtils.pas içerisine eklenecek veya değiştirilecek. ////cxGridCustomTableView.pas procedure TcxGridTableDataCellViewInfo.InitTextSelection; var AIncSearchParams: TcxViewParams; s1,s2:string; begin with FEditViewData do if IsTextSelected then begin //22.08.2010 berkant oynadı SelStart=0 olacak orjinali s1 := UpperCase( ConvertASCII(Controller.IncSearchingText)); s2 := UpperCase( ConvertASCII(Controller.FocusedRecord.Values[Controller.IncSearchingItem.Index])); SelStart := Pos(s1,s2)-1; SelLength := Length(Controller.IncSearchingText); GridView.Styles.GetViewParams(vsIncSearch, nil, nil, AIncSearchParams); SelBackgroundColor := AIncSearchParams.Color; SelTextColor := AIncSearchParams.TextColor; end else SelLength := 0; end; ////yukardaki kısım cxGridCustomTableView.pas içerisinde değiştirilecek