Page 69 - 4260

натисну ліву кнопку миші, кольори ліній clBlack
(чорний), сти заливання bsDiagCross (діагональни хрест),
кольори заливання - clRed (червоний). Якщо натиснуто праву
кнопку миші, ліній clRed (червоний), стиль
заливання bsCross ( хрест), кольо заливання clBlue (синій).
Проект - додаток.

Листинг модуля форми
unit Prg_1_1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
procedure FormMouseDown(Sender: TObject;
Button:TMouseButton;
Shift: TShiftState; x,y:integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;

implementation

{$R *.dfm}

procedure StarLine(x0,y0,r: integer; Canvas: TCanvas);
// x0,y0 - координати центра зірки
// r - радіус зірки
var

69