program Project1;

uses
 windows,messages,
 kol;

{$R *.res}
var
form,button:PControl;
BM:pbitmap;

//область для процедур
procedure clickbutton1(dummy:pointer;Sender:PControl; var mouse:TMouseEventData);
var x, y: integer;

begin
if BM = nil then Bm:=NewBitmap(200,200);

with bm.canvas^ do
  for x:=0 to Form.Width-1 do
    for y:=0 to Form.Height-1 do
    pixels[ X, Y ]:=clRed;

Bm.Draw(form.Canvas.Handle,0,0);
end;

Begin
form:=NewForm(Applet,'шаблон').SetSize(300,240).setposition(330,300);
Button:=NewButton(form,'Выполнить').SetSize(90,30).SetPosition(25,75);
//.centeronparent.Tabulate;
//область для работы

Button.OnClick:=TonEvent(MakeMethod(nil,@clickbutton1));
Run(form);
end.

Bmp.PixelFormat := pf1bit;

procedure TForm1.btnButton1Click(Sender: PObj);

var
x,y: Integer;
begin
Bm:=NewBitmap(Form.Width,Form.Height);

NewBrush;

Bm.Draw(form.Canvas.Handle,0,0);

end;

BM.Canvas.Brush.BrushStyle:=bsSolid;
BM.Canvas.Brush.Color:=clBtnFace;
BM.Canvas.FloodFill(0,0,clBtnFace,fsBorder);

program Project1;

uses
 windows,
 kol;

{$R *.res}
var
form:PControl;
fRgn:HRGN;
fon:pBitmap;
fon_:HBrush;
//область для процедур
procedure formPaint( Dummy: Pointer; Sender: PControl; DC: HDC );
begin
fon:=  NewBitmap( 0, 0 );
try
fon.LoadFromFile('Голубые кружева 16.bmp');
fon_:=createPatternBrush(fon.Handle);
FrameRgn (form.Canvas.Handle, fRgn,fon_,71,71);   // 2,2
finally
fon.Free;
DeleteObject (fRgn);
end;
end;
Begin
form:=NewForm(Applet,'Brush paint').SetSize(250,250).setposition(330,300);
fRgn := CreateEllipticRgn (0, 0, 200, 200);
//.centeronparent.Tabulate;
//область для работы

form.OnPaint:=tonpaint(MakeMethod(nil,@formpaint));
Run(form);

end.

type co_ordinate = record
 x,y : integer;
end;
type scanline    = array[0..319] of byte;
var
 pForm      : TForm1;
 Threshold  : integer;
 blobs      : array[0..5] of co_ordinate;
 Frame      : Cardinal;
 drawing    : boolean;
implementation

{$IF Defined(KOL_MCK)}{$ELSE}{$R *.DFM}{$IFEND}

{$IFDEF KOL_MCK}
{$I Unit1_1.inc}
{$ENDIF}
var bmp  : PBitmap;

procedure TForm1.KOLFormFormCreate(Sender: PObj);
var Temp : integer;
  pal  : PLogPalette;
  hpal : HPALETTE;
  x,y:Integer;
begin
frame     := 0;
 bmp := NewBitmap(form.Width,form.Height);
  bmp.PixelFormat:=pf8bit;

 bmp.width  := form.Width;
bmp.height := form.Height;

 timer1.Enabled := true;

end;

procedure TForm1.Timer1Timer(Sender: PObj);
var X_Loop, Y_Loop, I : integer;
   Value, t          : integer;
   Scan              : ^scanline;
begin
Frame := frame +1;
if drawing = false then
begin
 blobs[0].x := 160 + round(150 * SIN((2 * frame) * 0.01745329252222));
 blobs[0].y := 100 + round(90 * SIN((4 * frame) * 0.01745329252222));
 blobs[1].x := 160 + round(150 * SIN((6 * frame) * 0.01745329252222));
 blobs[1].y := 100 + round(90 * SIN((3 * frame) * 0.01745329252222));
 blobs[2].x := 160 + round(150 * SIN((7 * frame) * 0.01745329252222));
 blobs[2].y := 100 + round(90 * SIN((5 * frame) * 0.01745329252222));
 blobs[3].x := 160 + round(150 * SIN((3 * frame) * 0.01745329252222));
 blobs[3].y := 100 + round(90 * SIN((2 * frame) * 0.01745329252222));
 blobs[4].x := 160 + round(150 * SIN((4 * frame) * 0.01745329252222));
 blobs[4].y := 100 + round(90 * SIN((2 * frame) * 0.01745329252222));
 blobs[5].x := 160 + round(150 * SIN((2 * frame) * 0.01745329252222));
 blobs[5].y := 100 + round(90 * SIN((3 * frame) * 0.01745329252222));

 drawing := true;
 For Y_Loop := 0 to 239 do
 begin
   scan := Bmp.ScanLine[y_loop];
   for X_Loop := 0 to 319 do
   begin
     t := 0;
     For I := 0 to 5 do
     begin
       value := (Blobs[i].X-X_loop)*(Blobs[i].X-X_Loop);
       value := value + (Blobs[i].Y-Y_loop)*(Blobs[i].Y-Y_Loop);
       if value < 1 then value := 1;
       t := t+ (100000 div value);
     end;
     t := 255-t;
     if t < 0 then t := 0;
     Scan[x_loop] := t;
{      if t >= 200 then scan[x_loop] := 0 else scan[x_loop] := 10;}
     // Bmp.Draw(form.Canvas.Handle,0,0);
   end;
 
 end;

 drawing := false;
 Bmp.Draw(form.Canvas.Handle,0,0);
end;
end;
end.

   for i := 0 to Bmp.DIBPalEntryCount - 1 do
     Bmp.DIBPalEntries[i] := RGB2BGR(RGB(255 - i, 0, 128 - i));