1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:

//dies Procedure ist auch original aus der Gauge.pas nur halt modifiziert.
procedure TGaugeButton.PaintAsText(AnImage: TBitmap; PaintRect: TRect);
var
  S: String;
  Ss: Array[0..5] of String;
  X, Y, Fi, Ls, I : Integer;
  OverRect: TBltBitmap;
begin
  S:= FGaugeCaption;
  Fi:= (Width div Font.Size) + 5;
  Ls:= length(S) div Fi;

  for I:= 0 to Ls do
  begin
     Ss[i]:= LeftBStr(S, Fi);
     Delete(S, 1, Fi);
  end;

  OverRect:= TBltBitmap.Create;
  try
    OverRect.MakeLike(AnImage);   //<--- Original Procedure der Gauge.pas
    PaintBackground(OverRect, PaintRect);  //<--- Original Procedure der Gauge.pas etwas modifiziert

    with OverRect.Canvas do
    begin

      Brush.Style:= bsClear;

      Font:= Self.Font;
      //Font.Color:= clWhite;

      for I:= 0 to ls do
      begin
        with PaintRect do
        begin
          if I >= 1 then
            X:= (Left + Font.Size * 4 - 5)
          else
            X:= (Left + 8);

          Y:= (Top + (Font.Size + 4) * I);
        end;
        TextRect(PaintRect, X, Y, Ss[I]);
      end;
    end;
    AnImage.Canvas.CopyMode:= cmSrcInvert;
    AnImage.Canvas.Draw(0, 0, OverRect);
  finally
    OverRect.Free;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

TheImage.Canvas.CopyMode:= cmSrcInvert;
....
TheImage.Canvas.CopyMode:= cmSrcCopy;


AnImage.Canvas.CopyMode:= cmSrcInvert;
...
AnImage.Canvas.CopyMode:= cmSrcCopy;					

1:

font.Color:= font.Color and FBorderColor; // oder(xor,or) oder FBackColor					

1:

Font.Color:= Font.Color  xor FBorderColor xor FBackColor xor $00000000;