Можно ли, используя перо и кисть( в делфи)) нарисовать параллелограмм?

[vedro-compota]

Доброго времени суток, уважаемые программисты))
Не подскажет ли кто- как нарисовать в делфи четырёхугольник, используя перо и кисть ? А то я только по точкам могу ( мне вообще параллелограмм нужен, у которого углы не прямые ))
Заранее спасибо ))

[Alex Cones]

А чем не нравится линиями?

[vedro-compota]

moveto->lineto ? - можно, но я не знаю как его потом залить....(чтобы сплошной был)

[russian-stalker]

а чем polyline или polygon не устраивает?

[Пепел Феникса]

FloodFill используй для заливки.

[vedro-compota]

не знаю про такие -что это? )) просто вот например если использовать функцию рисования прямоугольника - та область, которая окружена рёбрами заливается автоматически , я вовсе не поклонник всего "автоматического" и "предопределённого" просто хочу сказать, что не знаю других средств ))

Прототип

type TFillStyle = (fsSurface, fsBorder);

procedure FloodFill(X, Y: Integer; Color: TColor;
FillStyle: TFillStyle);


Описание

Метод FloodFill закрашивает текущей кистью Brush замкнутую область канвы, определенную цветом и начальной точкой закрашивания (X, Y). Точка с координатами X и Y является произвольной внутренней точкой заполняемой области, которая может иметь произвольную форму. Граница этой области определяется сочетанием параметров Color и FillStyle. Параметр Color указывает цвет, который используется при определении границы закрашиваемой области, а параметр FillStyle определяет, как именно по этому цвету определяется граница. Если FillStyle = fsSurface, то заполняется область, окрашенная цветом Color, а на других цветах метод останавливается. Если FillStyle = fsBorder, то наоборот, заполняется область окрашенная любыми цветами, не равными Color, а на цвете Color метод останавливается.

Пепел Феникса,спасибо, попробую ))
russian-stalker,благодарю ,но как-то непонятно-

Описание:

function Polyline(DC: HDC, var Points; Count: Integer): Bool;

Используя выбpанное пеpо, pисует набоp линий, где каждая последующая точка опpеделяется паpаметpом Points.

[Stilet]

Построение полигона косинусами:

unit Unit1;

interface

uses     math,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
    procedure draw(cx,cy,BeginAngle:real; n,r:integer;kr:integer=0);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//********* PROCEDURE**********
procedure TForm1.draw;
var rx,ry,x,y,angle, rang, ang:real;e,i:integer;
 atp:array of TPoint;
begin

//cx:=form1.Width div 2;cy:=form1.Height div 2;
if kr>0
ang:=360/n;
angle:=(2*pi*ang)/360; rang:=angle;
SetLength(atp,n);
with form1 do begin
  //********* FOR ******************
  for  i:=0  to n  do
  begin
   //canvas.MoveTo(cx,cy);
   rx:=(cos(angle+BeginAngle));
   ry:=(sin(angle+BeginAngle));
   atp[i].X:=round(cx+r*(rx));
   atp[i].Y:=round(cy+r*(ry));
 //  canvas.LineTo(round(x),round(y));
 angle:=angle+rang;
   end;
  //******* END FOR ****************
  Canvas.Polygon(atp);
end;
//form1.Canvas.LineTo(100,100);
end;

//********* END PROCEDURE*******



procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
//for i:=0 to 9 do
 draw(100,100,0,6,20);
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  draw(100,100,x,100,20);
end;

end.

Вдруг пригодится

[vedro-compota]

Спасибо, Stilet