Отчет по практике на базе ЧУ ТМК «Мирас»

begin

if rb3.checked=True

then mmo1.Font.Color:=clBlue;

end;

procedure TForm4.chk1Click(Sender: TObject);

begin

if chk1.checked=True

then mmo1.font.style:=font.style+[fsbold]

else mmo1.Font.Style:=Font.Style-[fsBold]

end;

procedure TForm4.chk2Click(Sender: TObject);

begin

if chk2.checked=true

then mmo1.Font.Style:=Font.Style+[fsUnderline]

else mmo1.Font.Style:=Font.Style-[fsUnderline]

end;

Procedure TForm4.chk3Click(Sender: TObject);

begin

if chk3.Checked=True

then mmo1.Font.Style:=Font.Style+[fsItalic]

else mmo1.Font.Style:=Font.Style-[fsItalic]

end;

procedure TForm4.btn1Click(Sender: TObject);

begin

form2.show;

end;

end.

 

Задание №3. Создать программу  – элементарный текстовый редактор на основе компонента Memo. Редактор должен иметь возможность: «Открыть», «Сохранить», «Сохранить как..», элементы редактирвоания текста – копировать, вставить, вырезать. Пердусмотреть изменение шрифта в окне редактирования.

 

procedure TForm5.Button1Click(Sender: TObject);

begin

mmo1.Lines.LoadFromFile('mytetxt.txt');

end;

procedure TForm5.Button2Click(Sender: TObject);

begin

mmo1.Lines.SaveToFile('mytetxt.txt');

end;

procedure TForm5.Button3Click(Sender: TObject);

begin

mmo1.CopyToClipboard;

end;

 

procedure TForm5.Button4Click(Sender: TObject);

begin

mmo1.CutToClipboard;

end;

procedure TForm5.Button5Click(Sender: TObject);

begin

mmo1.Clear;

end;

procedure TForm5.Button6Click(Sender: TObject);

begin

mmo1.PasteFromClipboard;

end;

procedure TForm5.Button7Click(Sender: TObject);

begin

mmo1.SetFocus;

mmo1.SelectAll;

end;

end.

 

Практическая работа №2.

Задание №1. «Альбом» По выбранному  альбому на экран должен выводиться полный список песен.

 

procedure TForm7.btn1Click(Sender: TObject);

begin

case cbb1.ItemIndex of

0: lst1.Items.Add('"Pon de Replay" "Here I Go Again" "If Its Lovin That You Want"');

1: lst1.Items.Add('"SOS" "Unfaithful" "Final Goodbye" "Selfish Girl"');

2: lst1.Items.Add('"Umbrella" "Dont Stop the Music" "Rehab" "Shut Up and Drive"');

3: lst1.Items.Add('"Mad House" "Stupid In Love" "Russian Roulette" "Te Amo"');

4: lst1.Items.Add('"S&M" "Whats My Name?" "Only Girl (In the World)" "Love the Way You Lie (Part II)"');

5: lst1.Items.Add('"You Da One" "Where Have You Been"  "We Found Love" "Watch n Learn"');

6: lst1.Items.Add ('"Diamonds" "Stay (feat. Mikky Ekko)"  "Nobodys Business (feat. Chris Brown)"');

end;

procedure TForm7.btn2Click(Sender: TObject);

begin

Form6.Show;

end;

 

end.

 

Задание №2. Разработать  приложение «тест» по заданной тематике. Тест должен содержать 5 вопросов. На каждый вопрос должны быть 3 варианта ответов. По результатам теста должна проставляться оценка и выводится в информационном окне.

 

 

 

 

         procedure TForm12.btn1Click(Sender: TObject);

begin

if(RadioButton1.Checked = true) then

begin

qu_1:=true;

ShowMessage('Vasha ocenka 5');

end;

end.

 

Практическая работа №3.

Задание №1. Создать приложение позволяющее:

1. Устанавливать количество столбцов и строк квадратной таблицы StringGrid равными числу, вводимому пользователем;
2. Закрашивать ячейки таблицы, расположенные на главной диагонали и ниже цветом, выбранным пользователем.

 

procedure TForm14.ColorGrid1Change(Sender: TObject);

var i,j:Integer;

rec:trect;

begin

with Strngrd1 do

begin

   strngrd1.Canvas.Brush.Color:=ColorGrid1.ForegroundColor;

   for i:=0 to colcount-1 do

   for j:=0 to colcount-1 do

   if i>=j then

   begin

     rec:=strngrd1.cellrect(i,j);

     strngrd1.canvas.FillRect(rec);

   end;

end;

end;

procedure TForm14.Button1Click(Sender: TObject);

begin

strngrd1.ColCount:=StrToInt(cbb1.text);

strngrd1.RowCount:=StrToInt(cbb1.text);

strngrd1.defaultColWidth:=(strngrd1.width)div(StrToInt(cbb1.Text));

strngrd1.defaultRowHeight:=(strngrd1.height)div (strToInt(cbb1.text));

end;

end.

 

Задание №2. Разработайте приложение «Клавиатура».

procedure TForm15.FormCreate(Sender: TObject);

begin

form14.hide;

end;

 

procedure TForm15.Button1Click(Sender: TObject);

begin

lbl1.caption:=('a');

end;

 

procedure TForm15.Button2Click(Sender: TObject);

begin

lbl1.Caption:=('b');

end;

 

procedure TForm15.Button3Click(Sender: TObject);

begin

lbl1.Caption:=('c');

end;

 

procedure TForm15.Button4Click(Sender: TObject);

begin

lbl1.Caption:=('e');

end;

 

procedure TForm15.Button5Click(Sender: TObject);

begin

lbl1.Caption:=('f');

end;

 

procedure TForm15.Button6Click(Sender: TObject);

begin

lbl1.Caption:=('g');

end;

 

procedure TForm15.Button7Click(Sender: TObject);

begin

lbl1.Caption:=('h');

end;

 

procedure TForm15.Button8Click(Sender: TObject);

begin

lbl1.Caption:= ('i');

end;

 

procedure TForm15.Button9Click(Sender: TObject);

begin

lbl1.Caption:=('j');

end;

 

procedure TForm15.Button10Click(Sender: TObject);

begin

lbl1.Caption:=('k');

end;

 

procedure TForm15.Button11Click(Sender: TObject);

begin

lbl1.Caption:=('l');

end;

 

procedure TForm15.Button12Click(Sender: TObject);

begin

lbl1.Caption:=('m');

end;

 

procedure TForm15.Button13Click(Sender: TObject);

begin

lbl1.Caption:=('n');

end;

end.

 

Практическая работа №4.

Задание №1.

 

procedure TForm16.Button1Click(Sender: TObject);

begin

Form1.show();

Form16.Visible:=False;

end;

procedure TForm16.fllst1DblClick(Sender: TObject);

begin

img1.Picture.LoadFromFile(fllst1.FileName);

end;

procedure TForm16.btn1Click(Sender: TObject);

begin

form17.show;

Form16.Close;

end;

 

Задание №2.

 

procedure TForm17.Button3Click(Sender: TObject);

begin

if CFrame = Ani1.FrameCount

then Button2.Enabled := True;

if CFrame > 1 then begin

CFrame:=-1;

Ani1.StartFrame:=CFrame;

Ani1.StopFrame:=CFrame;

Ani1.Active:=True;

if CFrame=1

then Form17.Button3.Enabled:=False;

end;

end; Object);

begin

procedure TForm17.ani1Close(Sender: T

Ani1.Active:=False;

Button1.caption:='Pusk';

rb2.Enabled:=True;

end;

procedure TForm17.rb1Click(Sender: TObject);

begin

Button1.Enabled:=True;

Form17.Button3.Enabled:=False ;

Form17.Button2.Enabled:=False;

end;

procedure TForm17.rb2Click(Sender: TObject);

begin

Button2.Enabled:=True;

Button3.Enabled:=False;

Button1.Enabled:=False;

end;

procedure TForm17.Button1Click(Sender: TObject);

begin

if Ani1.Active = False

then begin

Ani1.StartFrame:=1;

Ani1.StopFrame:=Ani1.FrameCount;

Ani1.Active:=True;

Button1.caption:='stop';

rb2.Enabled:=False;

end;

end.

 

 

 

 

Практическая работа №5.

Задание №1. Написать программу «Стили заполнения областей», которая в окно выводит восемь прямоугольников , закрашенных с использованием разных стилей.

 

procedure TForm19.img1Click(Sender: TObject);

const

bsName: array[1..8] of string =('bsSolid','bsClear','bsHorizontal',

'bsVertical','bsFDiagonal','bsBDiagonal', 'bsCross','bsDiagCross');

var

x,y: integer;

w,h,t: integer;

bs: TBrushStyle;

k: integer;

i,j: integer;

begin

w:=40; h:=40;

y:=20;

for i:=1 to 2 do

begin

x:=10;

for j:=1 to 4 do

begin

k:=j+(i-1)*4;

case k of

1: bs := bsSolid;

2: bs := bsClear;

3: bs := bsHorizontal;

4: bs := bsVertical;

5: bs := bsFDiagonal;

6: bs := bsBDiagonal;

7: bs := bsCross;

8: bs := bsDiagCross;

end

Canvas.Brush.Color := clGreen;

Canvas.Brush.Style := bs;

Canvas.Rectangle (x, y, x+w, y-t-h)

Canvas.Brush.Style := bsClear;

Canvas.TextOut(x, y-15, bsName[k]);

x := x+w+30;

end;

y:= y+h+30;

end;

end.

 

Задание №2. Создать приложение, позволяющее:

1. Размещенный на форме компонент Tshape с помощью полос прокрутки(ScrollBar) изменяет размер, цвет и внешний вид объекта.
2. С помощью определенных кнопок изменяется размер и цвет самой формы;

Для выбора изменении  вида фигуры используется выпадающий список (ComboBox).

procedure TForm20.FormCreate(Sender: TObject);

begin

num:=True;

end;

 

procedure TForm20.scrlbr1Change(Sender: TObject);

begin

if num then

    shpc.Left := scrlbr1.Position

  else    shpsquare.Left := scrlbr1.Position;

end;

procedure TForm20.scrlbr2Change(Sender: TObject);

begin

if num then

shpc.Top := scrlbr2.Position

  else

    shpsquare.Top := scrlbr2.Position;

end;

procedure TForm20.shpcMouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

  num:= True;

  shpc.Brush.Color := clBlue;

  shpsquare.Brush.Color := clRed;

  scrlbr1.Position := shpc.Left;

  scrlbr2.Position := shpc.Top;

end;

procedure TForm20.btn1Click(Sender: TObject);

begin

form1.show;

Form20.Visible:=False;

end;

procedure TForm20.shpSquareMouseMove(Sender: TObject; Shift: TShiftState;

  X, Y: Integer);

begin

  num:= False;

  shpc.Brush.Color := clRed;

  shpsquare.Brush.Color := clBlue;

  scrlbr1.Position := shpsquare.Left;

  scrlbr2.Position := shpsquare.Top;

end;

end.

 

Практическая работа №6.

Задание №1. По заданным координатам точки М(x,y) определить, попадает  или нет точка М в заштрихованную область.

 

procedure TForm23.Button1Click(Sender: TObject);

begin

x:= StrToFloat(edt1.text);

y:= StrToFloat(edt2.text);

begin

if  (x=-2) and (y=2)

then lbl3.Caption:=('Tochka popadaet v oblast')

else lbl3.Caption:=('Tochka ne popadaet v oblast');

end;

begin

if (x=2) and (y=5)

then lbl3.caption:=('Tochka popadaet v oblast')

else lbl3.caption:=('Tochka ne popadaet v oblast');

end;

end.

 

Практическое задание  №7.

procedure TForm24.strngrd1Click(Sender: TObject);

begin

Strngrd1.Cells[1,2]:='Run';

strngrd1.Cells[1,3]:='Jump';

strngrd1.Cells[1,4]:='Wresting';

strngrd1.Cells[1,5]:='Kudo';

strngrd1.Cells[1,6]:='Skipping';

strngrd1.Cells[2,1]:='Kern';

strngrd1.Cells[3,1]:='Fenty';

strngrd1.Cells[4,1]:='Legend';

strngrd1.Cells[5,1]:='Ventura';

strngrd1.Cells[6,1]:='Brown';

strngrd1.Cells[2,2]:='1';

strngrd1.Cells[2,3]:='3';

strngrd1.Cells[2,4]:='2';

strngrd1.Cells[2,5]:='1';

strngrd1.Cells[2,6]:='1';

strngrd1.Cells[3,2]:='3';

strngrd1.Cells[3,3]:='4';

strngrd1.Cells[3,4]:='1';

strngrd1.Cells[3,5]:='3';

strngrd1.Cells[3,6]:='5';

strngrd1.Cells[4,2]:='2';

strngrd1.Cells[4,3]:='1';

strngrd1.Cells[4,4]:='5';

strngrd1.Cells[4,5]:='5';

strngrd1.Cells[4,6]:='2';

strngrd1.Cells[5,2]:='4';