Introduction - If you have any usage issues, please Google them yourself
Change control source AdvOfficePager.pas the following methods function DrawVistaText (Canvas: TCanvas Alignment: TAlignment r: TRect FCaption: string AFont: TFont Enabled: Boolean RealDraw: Boolean AntiAlias: TAntiAlias Direction: the TTabPosition Ellipsis: Boolean): TRect will Caption: String instead FCaption: String, and then in the body of the function, a new local variable " Caption: WideString finally added to the first line of the code segment: Caption: = FCaption can. The correction code fully guaranteed source code compatibility, only began to change in the type of Caption