44879 (663915)

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла

Лабораторная работа №1.

Цель работы: Изучение методов визуального программирования в Delphi.

Текст программы:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, ExtCtrls, Buttons;

type

TForm1 = class(TForm)

ScrollBar1: TScrollBar;

ScrollBar2: TScrollBar;

Shape1: TShape;

ColorDialog1: TColorDialog;

Panel1: TPanel;

Button1: TButton;

Button2: TButton;

ComboBox1: TComboBox;

BitBtn1: TBitBtn;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

procedure ScrollBar1Change(Sender: TObject);

procedure ScrollBar2Change(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button2Click(Sender: TObject);

begin

if ColorDialog1.Execute then

Form1.Color:=ColorDialog1.Color;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

if colorDialog1.Execute then

Shape1.Brush.Color:=ColorDialog1.Color;

end;

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

Shape1.Shape:=TShapeType(ComboBox1.ItemIndex);

end;

procedure TForm1.ScrollBar1Change(Sender: TObject);

begin

Shape1.Width:=ScrollBar1.Position*3;

end;

procedure TForm1.ScrollBar2Change(Sender: TObject);

begin

Shape1.Height:=Scrollbar2.Position*2;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

Close;

end;

end.

Внешний вид программы:

Характеристики

Тип файла документ

Документы такого типа открываются такими программами, как Microsoft Office Word на компьютерах Windows, Apple Pages на компьютерах Mac, Open Office - бесплатная альтернатива на различных платформах, в том числе Linux. Наиболее простым и современным решением будут Google документы, так как открываются онлайн без скачивания прямо в браузере на любой платформе. Существуют российские качественные аналоги, например от Яндекса.

Будьте внимательны на мобильных устройствах, так как там используются упрощённый функционал даже в официальном приложении от Microsoft, поэтому для просмотра скачивайте PDF-версию. А если нужно редактировать файл, то используйте оригинальный файл.

Файлы такого типа обычно разбиты на страницы, а текст может быть форматированным (жирный, курсив, выбор шрифта, таблицы и т.п.), а также в него можно добавлять изображения. Формат идеально подходит для рефератов, докладов и РПЗ курсовых проектов, которые необходимо распечатать. Кстати перед печатью также сохраняйте файл в PDF, так как принтер может начудить со шрифтами.

Список файлов реферата