解决Raize日历控件显示的问题

最新推荐文章于 2023-07-28 23:25:31 发布

yuehaiyang

最新推荐文章于 2023-07-28 23:25:31 发布

阅读量1k

点赞数

分类专栏： delphi 文章标签：日历 integer delphi button date string

本文链接：https://blog.csdn.net/yuehaiyang/article/details/6103987

版权

本文档介绍了在Delphi中遇到Raize日历控件显示星期名称被截断的问题，以及如何通过修改`RzPopups.pas`源代码来解决此问题。主要修改`TRzCalendar.Paint`过程，更新`DrawString`部分的代码以正确显示星期名称。此外，还解决了编译时`RzBorder.pas`文件导致的错误，调整了`TRzLEDValidChars`和`DotMasks`的定义。

摘要由CSDN通过智能技术生成

最近自己的程序被测试人员发现一个小问题，就是程序中的日历选择框，显示中的“星期一、星期二。。。。”都显示成了“星。。。。。”，我自己看了代码，原来是raize的控件问题，并且无论用4.x版本还是5.x版本，问题都依然存在。没办法，就在网上找找看，结果还是找到了，原来需要修改下源代码文件：

修改：RzPopups.pas，该文件在raize目录下的source子目录，修改其中的procedure TRzCalendar.Paint这个过程，下面是修改后的代码

procedure TRzCalendar.Paint; var S, S2, F: string; R, WR, SelRect, DaysRect, DayR: TRect; I, J, WN, Offset, MaxLen, SaveFontSize: Integer; DrawDate: TDateTime; Year, Month, Day, ViewMonth, ViewYear: Word; DayColor, DayFontColor, TempC, C: TColor; DayFontStyle: TFontStyles; CustomDayFormat: Boolean; PMBoldDays, NMBoldDays, CMBoldDays, BoldDaysMask: Cardinal; ArrowFont: TFont; ButtonsVisible, DrawFlat: Boolean; Areas: TRzCalendarAreas; procedure DrawHorizontalLine( ALeft, ARight, AHeight: Integer ); var ElementDetails: TThemedElementDetails; begin if FThemeAware and ThemeServices.ThemesEnabled then begin ElementDetails := ThemeServices.GetElementDetails( ttbSeparatorVertNormal ); ThemeServices.DrawElement( Canvas.Handle, ElementDetails, Rect( ALeft, AHeight, ARight, AHeight + 3 ) ); end else begin Canvas.Pen.Color := FCalendarColors.Lines; Canvas.MoveTo( ALeft, AHeight ); Canvas.LineTo( ARight, AHeight ); end; end; procedure DrawVerticalLine( ATop, ABottom, ALeft: Integer ); var ElementDetails: TThemedElementDetails; begin if FThemeAware and ThemeServices.ThemesEnabled then begin ElementDetails := ThemeServices.GetElementDetails( ttbSeparatorNormal ); ThemeServices.DrawElement( Canvas.Handle, ElementDetails, Rect( ALeft, ATop, ALeft + 3, ABottom ) ); end else begin Canvas.Pen.Color := FCalendarColors.Lines; Canvas.MoveTo( ALeft, ATop ); Canvas.LineTo( ALeft, ABottom ); end; end; begin {= TRzCalendar.Paint =} if FThemeAware and ThemeServices.ThemesEnabled then begin C := GetXPThemeColor( xptcEditBorder ); R := DrawBox( Canvas, ClientRect, C ); Canvas.Brush.Color := Color; Canvas.FillRect( R ); end else inherited; DrawFlat := BorderOuter in [ fsFlat, fsFlatBold, fsFlatRounded ]; CalcAreas( Areas ); // Draw Month and Year Bar if ( [ ceMonth, ceYear ] * FElements ) <> [ ] then begin if FShowDays then begi