svn/view/Unit2.pas

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.ExtDlgs,
  Vcl.Imaging.pngImage, Vcl.ComCtrls;

type
  TForm2 = class(TForm)
    ScrollBox1: TScrollBox;
    Image1: TImage;
    Button1: TButton;
    Button2: TButton;
    OpenPictureDialog1: TOpenPictureDialog;
    SavePictureDialog1: TSavePictureDialog;
    Edit1: TEdit;
    Edit2: TEdit;
    UpDown1: TUpDown;
    UpDown2: TUpDown;
    Panel2: TPanel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private éž }
  public
    { Public éž }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

uses Unit3;

procedure TForm2.Button1Click(Sender: TObject);
var
  bmp: TBitmap;
  procedure LoadToBitmap(const FileName: string);
  var
    s: TPngImage;
    t: TPicture;
  begin
    if ExtractFileExt(FileName) = '.png' then
    begin
      s := TPngImage.Create;
      try
        s.LoadFromFile(FileName);
        bmp.Width:=s.Width;
        bmp.Height:=s.Height;
        s.Draw(bmp.Canvas,Rect(0,0,s.Width,s.Height));
      finally
        s.Free;
      end;
    end
    else
    begin
      t:=TPicture.Create;
      try
        t.LoadFromFile(FileName);
        bmp.Width:=t.Width;
        bmp.Height:=t.Height;
        bmp.Assign(t);
      finally
        t.Free;
      end;
    end;
  end;

begin
  if OpenPictureDialog1.Execute = true then
  begin
    bmp:=TBitmap.Create;
    try
      LoadToBitmap(OpenPictureDialog1.FileName);
      Image1.Picture.Bitmap.Assign(bmp);
      Form3.ClientWidth:=UpDown1.Position;
      Form3.ClientHeight:=UpDown2.Position;
      Form3.Show;
      Form3.Image1.Picture.Bitmap.Assign(bmp);
    finally
      bmp.Free;
    end;
  end;
end;

procedure TForm2.Button2Click(Sender: TObject);
var
  s: TBitmap;
begin
  if SavePictureDialog1.Execute = true then
  begin
    s := TBitmap.Create;
    try
      s.Width := Form3.ClientWidth;
      s.Height := Form3.ClientHeight;
      SetStretchBltMode(s.Canvas.Handle,HALFTONE);
      StretchBlt(s.Canvas.Handle,0,0,s.Width,s.Height,Image1.Picture.Bitmap.Canvas.Handle,
        0,0,Image1.Picture.Bitmap.Width,Image1.Picture.Bitmap.Height,SRCCOPY);
      s.SaveToFile(SavePictureDialog1.FileName);
    finally
      s.Free;
    end;
  end;
end;

procedure TForm2.Edit1Change(Sender: TObject);
var
  i: integer;
  s: TEdit;
begin
  s:=Sender as TEdit;
  i:=StrToIntDef(s.Text,100);
  s.Text:=IntToStr(i);
  if Sender = Edit1 then
    Form3.ClientWidth:=i
  else
    Form3.ClientHeight:=i;
end;

end.