Projekt „Vloženie obrázka“ (18. 3. 2020)

Projekt na prevzatie:

• Vloženie obrázka 3,25 MB (3,10 MiB), 25. 3. 2020

Výpis zdrojového kódu jednotky (na zviditeľnenie jej obsahu):

unit1.pas

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  LazLogger, LazLoggerBase;

type

  { TForm1 }

  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    procedure FormClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
  private

  public

  end;

var
  Form1: TForm1;
  jablko1, jablko2: boolean;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormPaint(Sender: TObject);
var i: integer;
begin
  for i := 1 to 2 do
      Canvas.Rectangle(10 + i * 15, -10, 20 + i * 15, 500);

  if jablko1 then
    Canvas.Draw(10, 10, Image1.Picture.Graphic);

  if jablko2 then
    Canvas.Draw(100, 10, Image1.Picture.Graphic)
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
  Image1.Visible := false
end;

procedure TForm1.Image3Click(Sender: TObject);
begin
  jablko1 := not jablko1;
  Invalidate
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  jablko1 := true;
  jablko2 := true
end;

// ShowMessage('a' + IntToStr(mys.x));

procedure TForm1.FormClick(Sender: TObject);
var i: integer;
    mys: TPoint;
begin
  mys := ScreenToClient(Mouse.CursorPos);

  for i := 1 to 2 do
    if (mys.x >= (10 + i * 15)) and (mys.x <= (20 + i * 15)) then
       jablko2 := not jablko2;

  Invalidate
end;

end.