function DrawDisabledText (Canvas : tCanvas; Str: PChar; Count: Integer; var Rect: TRect; Format: Word): Integer; begin SetBkMode(Canvas.Handle, TRANSPARENT); OffsetRect(Rect, 1, 1); Canvas.Font.color := ClbtnHighlight; DrawText(Canvas.Handle, Str, Count, Rect, Format); Canvas.Font.Color := ClbtnShadow; OffsetRect(Rect, -1, -1); DrawText(Canvas.Handle, Str, Count, Rect, Format); end;