Кто может перевести код из Delphi в PascalABC.NET

[Lutin]

unit paint;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Spin, Buttons, Menus,
Printers,ExtDlgs;

type
TForm1 = class(TForm)
Image1: TImage;
ColorDialog1: TColorDialog;
SpinEdit1: TSpinEdit;
Panel1: TPanel;
Panel2: TPanel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
MainMenu1: TMainMenu;
SaveDialog1: TSaveDialog;
PrintDialog1: TPrintDialog;
OpenPictureDialog1: TOpenPictureDialog;
mnuFile: TMenuItem;
itmNew: TMenuItem;
itmOpen: TMenuItem;
ItmSave: TMenuItem;
N1: TMenuItem;
itmExit: TMenuItem;
SavePictureDialog1: TSavePictureDialog;
itmPrint: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Panel1Click(Sender: TObject);
procedure Panel2Click(Sender: TObject);
procedure SpinEdit1Change(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure itmExitClick(Sender: TObject);
procedure ItmSaveClick(Sender: TObject);
procedure itmNewClick(Sender: TObject);
procedure itmOpenClick(Sender: TObject);
procedure itmPrintClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
draw:boolean;
bcol,fcol:TColor;
pen,cr,sq:boolean;
x1,y1:integer;
r:trect;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
image1.Canvas.Rectangle(0,0,image1. Width,image1.Height);
draw:=false;pen:=true; cr:=false;sq:=false;

end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if pen then begin draw:=true;
image1.Canvas.MoveTo(x,y); end
else
begin x1:=x;y1:=y; end;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if draw then
begin
image1.Canvas.LineTo(x,y);
end
else
begin
end;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if pen then draw:=false else
if cr then image1.Canvas.Ellipse(x1,y1,x,y) else
image1.Canvas.Rectangle(x1,y1,x,y);
end;

procedure TForm1.Panel1Click(Sender: TObject);
begin
if not colordialog1.Execute then exit;
fcol:=colordialog1.Color;
panel1.Color:=fcol;
image1.Canvas.Pen.Color:=fcol;
end;

procedure TForm1.Panel2Click(Sender: TObject);
begin
if not colordialog1.Execute then exit;
bcol:=colordialog1.Color;
panel2.Color:=bcol;
image1.Canvas.Brush.Color:=bcol;
end;

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
image1.Canvas.Pen.Width:=strtoint(s pinEdit1.Text);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
pen:=true;cr:=false; sq:=false;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
cr:=true; sq:=false; pen:=false;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
cr:=false; sq:=true; pen:=false;
end;

procedure TForm1.itmExitClick(Sender: TObject);
begin
form1.Close;
end;

procedure TForm1.ItmSaveClick(Sender: TObject);
var f :string;
begin
if not SavePictureDialog1.Execute then exit;
f:=SavePictureDialog1.FileName;
image1.Picture.SaveToFile(f);
form1.Caption:=f;
end;

procedure TForm1.itmNewClick(Sender: TObject);
var f :string;
begin
if not SavePictureDialog1.Execute then exit;
f:=SavePictureDialog1.FileName;
image1.Picture.SaveToFile(f);
image1.Canvas.pen.Color:=clBlack;
image1.Canvas.Brush.Color:=clWhite;
image1.Canvas.Rectangle(0,0,image1. Width,image1.Height);
draw:=false;pen:=true; cr:=false;sq:=false;
form1.Caption:='';
end;

procedure TForm1.itmOpenClick(Sender: TObject);
var f : string;
begin
if not
OpenPictureDialog1.Execute then exit;
f:=OpenPictureDialog1.FileName;
image1.picture.LoadFromFile(f);
form1.Caption:=f;
end;

procedure TForm1.itmPrintClick(Sender: TObject);
begin
if not PrintDialog1.Execute then exit;
with printer do
begin
BeginDoc;
r.Left:=100;r.Top:=100;r.Right:=300 0;r.Bottom:=3000;
canvas.StretchDraw(r,image1.picture .bitmap);
EndDoc;
end;
end;

end.

[PressAnyKey]

пишите, почта в подписи

[Larboss]

ТЗ, срок, бюджет: larbossfreelance@yandex.ru Метка: freelance. Указывайте ссылку на тему форума.