The last block of your code should be in line with with Canvas doīrush.Color := BrushColor // Add this line to control which fill color the form will haveīrush.Color := clYellow // This line defines the fill color of the 'header'

So, you need to define the colors for Pen and Brush before you call RoundRect() Use RoundRect to draw a rounded rectangle using Pen and fill it with Use Rectangle to draw a box using Pen and fill it using Brush.ĭraws a rectangle with rounded corners on the canvas. When you prepare to draw the rounded rectangle, define Brush.Color to have the color you want the rectangle to be filled with, before drawing.ĭraws a rectangle on the canvas with its upper left cornerĪt the point (X1, Y1) and its lower right corner at the point (X2, RoundRect(Component_Gutter, Component_Gutter, ClientWidth - Component_Gutter, Form_Header_Height,įorm_Border_Radius - 2, Form_Border_Radius - 2) Rect.Right := ClientWidth - Component_Gutter RoundRect(1, 1, Rect.Right - 1, Rect.Bottom - 1, Form_Border_Radius - 1, Form_Border_Radius - 1)

similar to Bootstrap themes/classes (Default, Success, Warning, Danger) īorderColor := HtmlToTColor(Header_Color_Pen_Information) īrushColor := HtmlToTColor(Header_Color_Brush_Information) īorderColor := HtmlToTColor(Header_Color_Pen_Success) īrushColor := HtmlToTColor(Header_Color_Brush_Success) īorderColor := HtmlToTColor(Header_Color_Pen_Warning) īrushColor := HtmlToTColor(Header_Color_Brush_Warning) īorderColor := HtmlToTColor(Header_Color_Pen_Error) īrushColor := HtmlToTColor(Header_Color_Brush_Error) Here I set the colors of Canvas.Pen (border) and Canvas.Brush (Filling),

procedure TCustomDialog.FormPaint(Sender: TObject) Otherwise, how can I do it? Using Delphi 7, OnPaint event. Tried to search here, so if I missed, just point me where to go. When using FillRect all Form is repainted.

However, I'm struggling to fill this title. I want to fill only the title with brush. I can put rounded borders in it and a rounded rectangle as a header/title. I am trying to use Canvas to paint a Dialog-like form.

Komponen quick report delphi 7