|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.05.2021, 20:51 | #1 |
Новичок
Джуниор
Регистрация: 19.05.2021
Сообщений: 0
|
Кто может перевести код из Delphi в PascalABC.NET
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. |
19.05.2021, 22:14 | #2 |
Новичок
Джуниор
Регистрация: 01.02.2021
Сообщений: 0
|
пишите, почта в подписи
|
20.05.2021, 01:42 | #3 |
Недо
Участник клуба
Регистрация: 11.08.2011
Сообщений: 1,394
|
ТЗ, срок, бюджет: larbossfreelance@yandex.ru Метка: freelance. Указывайте ссылку на тему форума.
С помощью программирования можно разбогатеть и изменить мир к лучшему (с) Бьерн Страуструп
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перевести код программм из Pascal в Pascalabc.net | ParkerVans | Помощь студентам | 5 | 17.12.2017 17:44 |
может кто перевести программу из pascal в C# | medved2800 | Помощь студентам | 0 | 14.02.2013 18:21 |
Кто может чуть доделать код? - Программа Судоку на Delphi | vadiprog | Помощь студентам | 5 | 05.05.2012 23:56 |
кто может объяснить,почему на моем компе программа работает на других нет?код в Delphi | Symba | Общие вопросы Delphi | 1 | 24.03.2011 01:03 |