Tried that but it is alwasy black

From:                   [EMAIL PROTECTED]
To:                     [EMAIL PROTECTED]
Subject:                RE: [DUG] Brush Background Color
Date sent:              Fri, 4 Jun 2004 13:07:30 +1000 
Send reply to:          NZ Borland Developers Group - Delphi List <[EMAIL PROTECTED]>
        <mailto:[EMAIL PROTECTED]>
        <mailto:[EMAIL PROTECTED]>

> It's transparent so you have to paint the area with the desired background
> color first.
> 
> ie:
> 
> procedure TForm1.FormPaint(Sender: TObject);
> begin
>   Canvas.Brush.Style := bsSolid;
>   Canvas.Brush.Color := clYellow;
>   Canvas.Rectangle(10, 10, 100, 50);
>   Canvas.Brush.Style := bsCross;
>   Canvas.Brush.Color := clRed;
>   Canvas.Rectangle(10, 10, 100, 50);
> end;
> 
> cheers,
> 
> JED
> 
> -----Original Message-----
> From: Rohit Gupta [mailto:[EMAIL PROTECTED]
> Sent: 4 June 2004 12:49 PM
> To: [EMAIL PROTECTED]; NZ Borland Developers Group - Delphi List
> Subject: [DUG] Brush Background Color
> 
> 
> WHy are the simple things so tedious ?  How the heck do I change 
> the Brush's background color when I use a brushstyle such as 
> Cross ?Regards
> 
> Rohit
> 
> ====================================================
> ==================
> CFL - Computer Fanatics Ltd.  21 Barry's Point Road, AKL, New 
> Zealand
> PH    (649) 489-2280 
> FX    (649) 489-2290
> email [EMAIL PROTECTED]  or  [EMAIL PROTECTED]
> ====================================================
> ==================
> 
> 
> _______________________________________________
> Delphi mailing list
> [EMAIL PROTECTED]
> http://ns3.123.co.nz/mailman/listinfo/delphi
> _______________________________________________
> Delphi mailing list
> [EMAIL PROTECTED]
> http://ns3.123.co.nz/mailman/listinfo/delphi
> 

Regards

Rohit

======================================================================
CFL - Computer Fanatics Ltd.  21 Barry's Point Road, AKL, New Zealand
PH    (649) 489-2280 
FX    (649) 489-2290
email [EMAIL PROTECTED]  or  [EMAIL PROTECTED]
======================================================================

_______________________________________________
Delphi mailing list
[EMAIL PROTECTED]
http://ns3.123.co.nz/mailman/listinfo/delphi

Reply via email to