unit TJPEGImage

implementation

{$R *.dfm}

var
  Kreslenie:Boolean=False;
  farba, x1, y1, x, y:integer;
  pis:integer=1;

procedure TForm1.Otvori1Click(Sender: TObject);
begin
Showmessage('Pozor!  Môžete otvárať len obrázky s príponou .bmp');
if OpenDialog1.Execute then
                          Image1.Picture.LoadFromFile(OpenDialog1.FileName);
end;

procedure TForm1.Uloi1Click(Sender: TObject);
begin
Showmessage('Obrázok uložíte tak, že za názov dopíšete .bmp');
if SaveDialog1.Execute then
                          Image1.Picture.SaveToFile(SaveDialog1.FileName);
end;

procedure TForm1.Exit1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Vyisti1Click(Sender: TObject);
begin
Image1.canvas.FillRect(image1.ClientRect);
Edit1.Text:='1';
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  x1:=x;
  y1:=y;
  Kreslenie:=True;
  image1.Canvas.Pen.Width:=StrToInt(Edit1.Text);
  Image1.Canvas.MoveTo(X,Y);
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Shift = [ssLeft]then
   case pis of
             1:Image1.canvas.LineTo(X,Y);
             2:begin
                   Image1.Canvas.Pen.Color:=clwhite;
                   Image1.Canvas.Rectangle(x1,y1,x,y);
                   Image1.Canvas.Pen.Color:=farba;
                   Image1.Canvas.Ellipse(x1,y1,x,y);
               end;
             3:begin
                   Image1.Canvas.Pen.Color:=farba;
                   Image1.Canvas.Ellipse(x1,y1,x,y);
               end;

   end;
   if Shift = [ssRight] then Image1.Canvas.Ellipse(X-7,Y-7,X+7,Y+7);
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Kreslenie:=False;
end;

procedure TForm1.Kresli1Click(Sender: TObject);
begin
if ColorDialog1.Execute then
                          image1.Canvas.Pen.Color:=ColorDialog1.Color;
farba:=ColorDialog1.Color;
end;

procedure TForm1.Elipsa1Click(Sender: TObject);
begin
pis:=2;
end;

procedure TForm1.iara1Click(Sender: TObject);
begin
pis:=1;
end;

procedure TForm1.Guliky1Click(Sender: TObject);
begin
pis:=4;
end;

procedure TForm1.Elipsa21Click(Sender: TObject);
begin
pis:=3
end;

var
  zaloha: TBitmap;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  x1:=x;
  y1:=y;
  Kreslenie:=True;
  image1.Canvas.Pen.Width:=StrToInt(Edit1.Text);
  Image1.Canvas.MoveTo(X,Y);

  zaloha := TBitmap.Create;
  zaloha.Assign( Image1.Picture );
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin

Image1.Canvas.Brush.Style:= bsClear;

  if Shift = [ssLeft]then
   case pis of
             1:Image1.canvas.LineTo(X,Y);
             2:begin
                   Image1.Canvas.Draw( 0, 0, zaloha );
                   Image1.Canvas.Pen.Color:=clwhite;
                   Image1.Canvas.Rectangle(x1,y1,x,y);
                   Image1.Canvas.Pen.Color:=farba;
                   Image1.Canvas.Ellipse(x1,y1,x,y);
               end;
             3:begin
                   Image1.Canvas.Draw( 0, 0, zaloha );
                   Image1.Canvas.Pen.Color:=farba;
                   Image1.Canvas.Ellipse(x1,y1,x,y);
               end;

   end;
   if Shift = [ssRight] then Image1.Canvas.Ellipse(X-7,Y-7,X+7,Y+7);
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Kreslenie:=False;
  zaloha.Free;
end;