Рисование "неактивного" текста

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

;

Другое по теме:

• Бегущая строка
• Захват изображения
• Копировать векторное изображение