如何修改导航条中望远镜调出来的显示框

atiger

1、该窗体在“\系统空间\用户界面基础\界面\系统接口\简单SQL条件构造窗体”
2、调整字段下拉的宽度
procedure TSimpleSQLFilterEditor.CreateEditors;
...
//LayoutControl(FLeftEdit, 35, 0, 145, 20);
...
//LayoutControl(FRelationOpr, 187, 0, 93, 20);
...

2、把“>”、“<”、“=”等修改为汉字
加载条件类别在
function IsBinaryOpr(const ATokenText: string): Boolean;
begin
  Result := AnsiMatchText(ATokenText, ['=', '>', '<', '>=', '<=', '<>',
    'LIKE', 'NOT LIKE', 'IN', 'NOT IN']);
end;

3、上面的显示标题
lblPrompt.Caption := '请录入将要过滤的条件，然后单击“确定”按钮。' +
    '“复位”按钮是将编辑的条件恢复到最初状态。' +
    '单击“高级”按钮可以以语句的方式查看并编辑条件。' + #13#10 +
    '在构造条件时“对号”表示成功、' +
    '“错号”表示失败、“问号”表示新增的子条件。';