Код программы для себя

[Йуууля]

Меню File and Veiw

procedure TForm1.Open1ItemClick(Sender: TObject);
begin
Image1.Picture.LoadFromFile('C:\Users\FirstUser\Desktop\Меню\Безымянный.bmp');
end;

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

procedure TForm1.Saveas1ItemClick(Sender: TObject);
begin
Image1.Picture.SaveToFile('E:\Меню\');
end;

procedure TForm1.HelfSize1ItemClick(Sender: TObject);
begin
Image1.Height:=Round(Image1.Height/2)+y;
Image1.Width:=Round(Image1.Width/2)+x;
end;

procedure TForm1.DoubleSize1ItemClick(Sender: TObject);
begin
Image1.Height:=Round(Image1.Height*2+y);
Image1.Width:=Round(Image1.Width*2+x);
end;

procedure TForm1.NormalSize1ItemClick(Sender: TObject);
begin
Image1.Height:=y+180;
Image1.Width:=x+257;
end;

end.

@темы: Студенческое