Order and save right now! 20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming!

Graphics

⤷ Illustrate brush styles

Use Canvas method, which has a Brush property. This example shows all styles of Brush on mouse click.

procedure TForm1.FormClick(Sender: TObject);
begin
  with Canvas do
  begin
    Brush.Style:=bsSolid;
    Brush.Color:=clWhite;
    Rectangle(0,0,ClientWidth,ClientHeight);
    case Click1 of
      1: Brush.Style:=bsHorizontal;
      2: Brush.Style:=bsVertical;
      3: Brush.Style:=bsFDiagonal;
      4: Brush.Style:=bsBDiagonal;
      5: Brush.Style:=bsCross;
      6: Brush.Style:=bsDiagCross;
      7: Brush.Style:=bsSolid;
      8: Brush.Style:=bsClear;
    end;
    Brush.Color:=clRed;
    Rectangle(0,0,ClientWidth,ClientHeight);
  end;
  Inc(Click1);
  if Click1>8 then Click1:=1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Click1:=1;
end;

More for developers

● Delphi Components

● .Net Components

● Software for Android Developers

● Databases for Amazon Associates
Amazon Categories
Amazon Nodes