改控件源码中的AdvOfficePager.pas 的下面的方法； function DrawVistaText(Canvas: TCanvas Alignment: TAlignment r: TRect FCaption:string AFont: TFont Enabled: Boolean RealDraw: Boolean AntiAlias: TAntiAlias Direction: TTabPosition Ellipsis: Boolean): TRect 将Cap