🚀 go-pugleaf

> That can't be all of it because you said that you were changing
> the color to clRed. Nowhere in your code are you doing that.
> In fact, you're not setting the color anywhere in there. Try
> adding code that explicitly sets the newly allocated TCanvas's
> Font and Font::Color.

Oh i was "simplyfying" my code...

ACanvas->Font->Color = clRed;

^^ Was the line that set the font color...


>>      ACanvas->Brush->Style = bsClear;//transparant background
> 
> 
> I'm not sure that that's the right thing to do. However, I do
> know that this works:
> 
>     int pMode = ::SetBkMode( ACanvas->Handle, TRANSPARENT );
>     //...
>     ::SetBkMode( ACanvas->Handle, pMode );

^^ That works to, just as setting brush style... But i still have the 
problem heres the code now:

void __fastcall TForm2::WMNCPaint(TWMNCPaint &Message)
{
   TForm::Dispatch(&Message);
   TCanvas *ACanvas = new TCanvas;
   try
   {
       // to retrieve the device context for the window
       ACanvas->Handle = GetWindowDC(Handle);
       int pMode = ::SetBkMode( ACanvas->Handle, TRANSPARENT );
       //ACanvas->Brush->Style = bsClear;
       ACanvas->Font->Style = TFontStyles() << fsBold;
       ACanvas->Font->Color = clRed;
       // calculate the left coordinate for caption drawing
       int intLeftShift = GetSystemMetrics(SM_CYMENU) + 
GetSystemMetrics(SM_CXBORDER);

       // calculate the top coordinate for caption drawing
       int intTopShift = ((GetSystemMetrics(SM_CYCAPTION) - 
abs(ACanvas->Font->Height)) / 2);

       // output the caption string
       ACanvas->TextOut(intLeftShift, intTopShift, "Test!");
       ::SetBkMode( ACanvas->Handle, pMode );
   }
   __finally
   {
       // to release the device context
       ReleaseDC(Handle, ACanvas->Handle);
       delete ACanvas;
   }
}
//---------------------------------------------------------------------------