Как нарисовать disable текст |
Previous Top Next |
Code: |
{Draw Disabled Text ************** ***** This function draws text in "disabled" style. ***** ***** i.e. the text is grayed . ***** **********************************************************} 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; |
Зайцев О.В.
Владимиров А.М.
©Drkb::03646
Взято из http://forum.sources.ru