Learn more about GDI + [18]: fillellipse, tgphatchbrush (shadow painter)

Tgphatchbrush. Create (hatchstyle: thatchstyle; {shadow style, see the following table} forecolor: tgpcolor; {foreground color} backcolor: tgpcolor = aclblack {background color, optional value, black by default });
 

In this example:

Code file:

Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, comctrls, stdctrls, extctrls; Type tform1 = Class (tform) colorbox1: tcolorbox; colorbox2: tcolorbox; loads: loads; Procedure formcreate (Sender: tobject); Procedure outputs (Sender: tobject); Procedure colorbox1change (Sender: tobject ); procedure colorbox2change (Sender: tobject); end; var form1: tform1; implementation {$ R *. DFM} uses gdipobj, gdipapi, typinfo; Procedure tform1.formcreate (Sender: tobject); var I: integer; begin {add all the items in hatchstyle enumeration to the list} For I: = 0 to INTEGER (hatchstyletotal)-1 do combobox1.items. add (getenumname (typeinfo (hatchstyle), I); {give three initial values to the list} combobox1.itemindex: = 0; colorbox1.itemindex: = 16; colorbox2.itemindex: = 3; end; procedure tform1.formpaint (Sender: tobject); var G: tgpgraphics; R: tgprect; HB: tgphatchbrush; fcolor, bcolor: tgpcolor; hbstyle: hatchstyle; begin G: = tgpgraphics. create (canvas. handle); G. clear (makecolor (255,255,255); R: = makerect (20, 60, clientwidth-40, clientheight-70); hbstyle: = hatchstyle (combobox1.itemindex ); {the serial number of the list is the same as the enumerated value} fcolor: = colorreftoargb (colorbox1.selected); {foreground color} bcolor: = colorreftoargb (colorbox2.selected ); {background color} {create style painter} HB: = tgphatchbrush. create (hbstyle, fcolor, bcolor); G. fillellipse (Hb, R); HB. free; G. free; end; Procedure tform1.colorbox1change (Sender: tobject); begin repaint; end; Procedure tform1.colorbox2change (Sender: tobject); begin repaint; end; Procedure future (Sender: tobject ); begin repaint; end.
 

Form file:

object Form1: TForm1  Left = 0  Top = 0  Caption = 'Form1'  ClientHeight = 206  ClientWidth = 268  Color = clBtnFace  Font.Charset = DEFAULT_CHARSET  Font.Color = clWindowText  Font.Height = -11  Font.Name = 'Tahoma'  Font.Style = []  OldCreateOrder = False  Position = poDesktopCenter  OnCreate = FormCreate  OnPaint = FormPaint  PixelsPerInch = 96  TextHeight = 13  object ColorBox1: TColorBox    Left = 48    Top = 30    Width = 100    Height = 22    ItemHeight = 16    TabOrder = 0    OnChange = ColorBox1Change  end  object ColorBox2: TColorBox    Left = 160    Top = 30    Width = 100    Height = 22    ItemHeight = 16    TabOrder = 1    OnChange = ColorBox2Change  end  object ComboBox1: TComboBox    Left = 48    Top = 3    Width = 212    Height = 21    ItemHeight = 13    TabOrder = 2    Text = 'ComboBox1'    OnChange = ComboBox1Change  endend
 

Paint Brush shadow style sheet:

Delphi	Microsoft	Description
Hatchstylebackwarddiagonal	Backwarddiagonal	A diagonal line from top right to bottom left.
Hatchstylecross	Cross	Specifies the horizontal and vertical lines of the intersection.
Hatchstyledarkdownwarddiagonal	Darkdownwarddiagonal	Specifies the diagonal line that is tilted from the vertex to the right. The angle between the two sides is 50% less than that of forwarddiagonal, and the width is twice. This shadow pattern is not de-toothed.
Hatchstyledarkhorizontal	Darkhorizontal	The angle between the two sides of the specified horizontal line is 50% less than that of horizontal and the width is twice that of horizontal.
Hatchstyledarkupwarddiagonal	Darkupwarddiagonal	Specifies the diagonal line that is tilted from the vertices to the left. The angle between the two sides is 50% less than that of backwarddiagonal, and the width is twice the width, but these straight lines are not eliminated by sawtooth.
Hatchstyledarkvertical	Darkvertical	The angle between two sides of the specified vertical line is 50% less than that of vertical and the width is twice.
Hatchstyledasheddownwarddiagonal	Dasheddownwarddiagonal	Specifies the diagonal line of the dotted line, which is skewed from the vertices to the right.
Hatchstyledashedhorizontal	Dashedhorizontal	Specify the dotted line and horizontal line.
Hatchstyledashedupwarddiagonal	Dashedupwarddiagonal	Specifies the diagonal line of the dotted line, which is skewed from the vertices to the left.
Hatchstyledashedvertical	Dashedvertical	Specify the vertical line of the dotted line.
Hatchstylediagonalbrick	Diagonalbrick	Specifies a shadow with a layered brick appearance, which is tilted from the vertices to the left.
Hatchstylediagonalcross	Diagonalcross	Diagonal pattern.
Hatchstyledivot	Divot	Specifies the shadow with the appearance of the turf layer.
Hatchstyledotteddiamond	Dotteddiamond	Specifies the forward and reverse diagonal lines that cross each other. Each diagonal line consists of points.
Hatchstyledottedgrid	Dottedgrid	Specifies the horizontal and vertical lines that cross each other. Each line is composed of points.
Hatchstyleforwarddiagonal	Forwarddiagonal	A diagonal line from top left to bottom right.
Hatchstylehorizontal	Horizontal	Horizontal line pattern.
Hatchstylehorizontalbrick	Horizontalbrick	Specifies the shadow with the horizontal layered brick appearance.
Hatchstylelargecheckerboard	Largecheckerboard	Specifies a shadow with a checkerboard appearance. The size of the checkerboard is twice that of the smallcheckerboard.
Hatchstylelargeconfetti	Largeconfetti	Specifies a shadow with the appearance of confetti, and it consists of a larger part than smallconfetti.
Hatchstylelargegrid	Largegrid	Specifies the shadow style cross.
Hatchstylelightdownwarddiagonal	Lightdownwarddiagonal
Hatchstylelighthorizontal	Lighthorizontal	Specifies a horizontal line with an angle of 50% less than that of horizontal.
Hatchstylelightupwarddiagonal	Lightupwarddiagonal	Specifies the diagonal line that is tilted from the vertices to the left. The angle between the two sides is 50% less than that of backwarddiagonal, but these straight lines are not eliminated by sawtooth.
Hatchstylelightvertical	Lightvertical	The angle between two sides of the specified vertical line is 50% less than that of vertical.
Hatchstylemax	Max	Specifies the shadow style soliddiamond.
Hatchstylemin	Min	Specifies the shadow style horizontal.
Hatchstylenarrowhorizontal	Narrowhorizontal	The angle between the two sides of the specified horizontal line is 75% less than the shadow style horizontal (or 25% less than lighthorizontal ).
Hatchstylenarrowvertical	Narrowvertical	The angle between two sides of the specified vertical line is 75% less than that of the Shadow style vertical (or 25% less than that of lightvertical ).
Hatchstyleoutlineddiamond	Outlineddiamond	Specifies the forward and reverse diagonal lines that cross each other, but these diagonal lines do not eliminate the Sawtooth.
Hatchstylepercent05	Percent05	Specify the 5% shadow. The ratio of foreground color to background color is.
Hatchstylepercent10	Percent10	Specify the 10% shadow. The ratio of the foreground color to the background color is.
Hatchstylepercent20	Percent20	Specify the 20% shadow. The ratio of foreground color to background color is.
Hatchstylepercent25	Percent25	Specify the 25% shadow. The ratio of the foreground color to the background color is 25:100.
Hatchstylepercent30	Percent30	Specify the 30% shadow. The ratio of foreground color to background color is 30: 100.
Hatchstylepercent40	Percent40	Specify the 40% shadow. The ratio of foreground color to background color is 40: 100.
Hatchstylepercent50	Percent50	Specify the 50% shadow. The ratio of foreground color to background color is 50: 100.
Hatchstylepercent60	Percent60	Specify the 60% shadow. The ratio of foreground color to background color is 60: 100.
Hatchstylepercent70	Percent70	Specify the 70% shadow. The ratio of foreground color to background color is 70: 100.
Hatchstylepercent75	Percent75	Specify the 75% shadow. The ratio of foreground color to background color is 75: 100.
Hatchstylepercent80	Percent80	Specify the 80% shadow. The ratio of foreground color to background color is 80: 100.
Hatchstylepercent90	Percent90	Specify the 90% shadow. The ratio of foreground color to background color is 90: 100.
Hatchstyleplaid	Plaid	Specifies the shadow with the appearance of the lattice.
Hatchstyleshingle	Shingle	Specifies a shadow with a diagonal layered pebbles appearance, which is skewed from the vertices to the right.
Hatchstylesmallcheckerboard	Smallcheckerboard	Specifies the shadow with the checker appearance.
Hatchstylesmallconfetti	Smallconfetti	Specifies the shadow with the appearance of confetti.
Hatchstylesmallgrid	Smallgrid	Specifies the horizontal and vertical lines that cross each other. The angle between the two sides is 50% less than that of the Shadow style cross.
Hatchstylesoliddiamond	Soliddiamond	Specifies the shadow with the appearance of the Board placed on a diagonal corner.
Hatchstylesphere	Sphere	Specifies the shadow with the appearance of the sphere placed adjacent to each other.
Hatchstyletrellis	Trellis	Specifies a shadow with a grid appearance.
Hatchstylevertical	Vertical	Vertical line pattern.
Hatchstylewave	Wave	Specify the font size "~" A horizontal line.
Hatchstyleweave	Weave	Specifies a shadow with a fabric appearance.
Hatchstylewidedownwarddiagonal	Widedownwarddiagonal	Specifies the diagonal line that is tilted from the vertices to the right. The spacing is the same as that of the Shadow style forwarddiagonal, and the width is three times, but they are not eliminated by the Sawtooth.
Hatchstylewideupwarddiagonal	Wideupwarddiagonal	Specifies the diagonal line that is tilted from the vertices to the left. The spacing is the same as that of the Shadow style backwarddiagonal, and the width is three times, but they are not removed from the Sawtooth.
Hatchstylezigzag	Zigzag	A horizontal line consisting of a Z-shaped string.