Author: Tomas Rutkauskas

Is there any way I can set some flags for Canvas.TextOut or something similar to 
draw text in disabled mode, or do I need to do this by writing my own routine?

Answer:
1   
2   procedure DrawDisabledCaption(aCanvas: TCanvas; X, Y: Integer; aCaption: string);
3   var
4     oldcolor: TColor;
5   begin
6     { ... }
7     with aCanvas do
8     begin
9       oldcolor := font.color;
10      font.color := clBtnHighlight;
11      TextOut(X, Y, aCaption);
12      font.color := clBtnShadow;
13      TextOut(X + 1, Y + 1, aCaption);
14    end;
15  end;