在银河麒麟和树莓派发现lazarus的DateEdit控件DateOrder选择doNone以外的选项时,在form设计界面显示乱码的Bug。

将lazarus\lcl\editbtn.pas的1677、1678原来的/改为-,然后重新编译lazarus就可以。

将lazarus\lcl\editbtn.pas的1677、1678原来的/改为-,然后重新编译lazarus就可以。
procedure TDateEdit.SetDateMask; Var S : String; D : TDateTime; begin Case DateOrder of doNone : begin S:=''; // no mask FFixedDateFormat:=''; end; doDMY, doMDY : begin S:='99/99/9999;1;_'; if DateOrder=doMDY then FFixedDateFormat:='mm/dd/yyyy' else FFixedDateFormat:='dd/mm/yyyy'; end; doYMD : begin S:='9999-99-99;1;_'; FFixedDateFormat:='yyyy-mm-dd'; end; end; D:=GetDate; EditMask:=S; SetDate(D); end;
修正后的:
【推荐】国内首个AI IDE,深度理解中文开发场景,立即下载体验Trae
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· TypeScript + Deepseek 打造卜卦网站:技术与玄学的结合
· Manus的开源复刻OpenManus初探
· AI 智能体引爆开源社区「GitHub 热点速览」
· 从HTTP原因短语缺失研究HTTP/2和HTTP/3的设计差异
· 三行代码完成国际化适配,妙~啊~