Разработка программы создания виртуальной фотогалереи
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
in:=-7.5;:=-6;:=f+6;;
..223:begin:=(count-193)*0.5-7.5;:=-6.5;;
..229:begin:=-6.5;:=7.5;:=f+6;;
..236:begin:=2;:=-6.5;:=7.5;:=f+6;;
..256:begin:=2;:=-6.5;:=(count-236)*0.5+7.5;;
..265:begin:=-6.5;:=14.5;:=f-6;;
..296:begin:=(count-265)*0.5+14.5;:=-6.5;;
..307:begin:=-6.5;:=29.5;:=f+6;;
..332:begin:=(count-308)*0.5-6.5;:=29.5;;
..345:begin:=6.5;:=29.5;:=f+6;;
..374:begin:=-(count-346)*0.5+29.5;:=6.5;;
..380:begin:=6.5;:=15.5;:=f+6;;
..406:begin:=1;:=6.5;:=15.5;:=f+6;;
..420:begin:=2;:=6.5;:=15.5;:=f+6;;
begin:=0;:=-10;:=0;:=false;:=1;;;
kadr
then begin //Запуск режима отображения времени построения 1 кадра
time0:= GetTickCount;:=time0 - time1;:=time0;.Caption :=inttostr(count)+кадр 3а + inttostr(Frametime)+мс ;.Caption :=Gallery ;(DC);;
{=======================================================================
Формат пикселя}SetDCPixelFormat (hdc : HDC);: TPixelFormatDescriptor;: Integer;(pfd, SizeOf (pfd), 0);.dwFlags := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER;:= ChoosePixelFormat (hdc, @pfd);(hdc, nPixelFormat, @pfd);;
{=======================================================================
Создание формы}TfrmGL.FormCreate(Sender: TObject);:=2;:= GetDC (Handle);(DC);:= wglCreateContext(DC);(DC, hrc);(1, 1, 0.9, 1.0); // цвет фона(1.5);(GL_LIGHTING);(GL_LIGHT0);(GL_DEPTH_TEST);(GL_COLOR_MATERIAL);:= gluNewQuadric;:=0;:=-10;:=-2;:=false;:=1;:=true;:=1;:=false;:=true;.prosmotr:=false;:=true;:=0;:=0;:=0;(false);:=Left+round(Width/2);:=Top+round(Height/2);(wrkx,wrky);;
{=======================================================================
Конец работы приложения}TfrmGL.FormDestroy(Sender: TObject);
(quadObj);(0, 0);(hrc);(Handle, DC);(DC);
;showimage(number:byte);.Visible:=true;.Image1.Center:=true;.Image1.AutoSize:=true;fileexists (form2.nameimage[number]) then.Image1.Picture.LoadFromFile(form2.nameimage[number]);.deleteimage.Enabled:=true;.rotate90.Enabled:=true;.Rotate180.Enabled:=true;.Image1.Picture:=nil;.rotate90.Enabled:=false;.Rotate180.Enabled:=false;.deleteimage.Enabled:=false;;
.Height:=Form3.Image1.Height+60;.Width:=Form3.Image1.Width+35;.Visible:=false;(true);.hide;(true);
{==============================================================
Процедура реакции программы на нажатие пользователем клавиш управления}
procedure TfrmGL.FormKeyDown(Sender: TObject; var Key: Word;: TShiftState);,ty0:Glfloat;:byte;
-12)and(tx>0)and(tx-8) and (tx<0)begin form3.number:=2; showimage(form3.number); end;;Key=VK_F1begin:=false;.HelpFile:=Help\Help.hlp;.HelpCommand(HELP_FINDER,0);;Key=VK_F2beginlockShowCursor(true)ShowCursor(false);:=not lock;;
Key=VK_F3begin:=not demonstr;:=1;;Key = VK_F4kadr:=not kadr;
Key=VK_F5getpict:=not getpict;Key=VK_F8begin:=true;:=room+1;;not demonstrbeginKey = VK_Left then:=ty;:=tx;:= ty - sin(f*pi/180)/2;:= tX + cos(f*pi/180)/2;;Key = VK_Right then:=ty;:=tx;:= ty + sin(f*pi/180)/2;:= tX - cos(f*pi/180)/2;;Key = VK_up then:=ty;:=tx;:= ty + sin((f+90)*pi/180)/2;:= tX - cos((f+90)*pi/180)/2;;Key = VK_down then:=ty;:=tx;:= ty - sin((f+90)*pi/180)/5;:= tX + cos((f+90)*pi/180)/5;;Key = VK_delete then:=tz-0.5;Key = VK_insert then:=tz+0.5;
room=2(tx=-12):=-11;begin
(tx-6.5) and (ty<36))):=-13;;
room>=4begin(tx>=11)and (tx=11tx:=11;
(ty27):=ty0;
(ty-12)pict:=1begin
{if tx12pict:=1}pict:=2;;
(Handle, nil, False);;
{======================================================================
Процедура перерисовки галереи}TfrmGL.FormResize(Sender: TObject);(0, 0, ClientWidth, ClientHeight);(GL_PROJECTION);;(50, Width/Height, 0.1, 48.2);(GL_MODELVIEW);;(90.0, 1.0, 0.0, 0.0); // поворот объекта - ось Y(Handle, nil, False);;
{====================================================================
Процедура реакции программы на перемещене мыши}
procedure TfrmGL.FormMouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);Lock(mpos);not demonstrbegin:=f-(mpos.x-(wrkX))/8;:=t+(mpos.y-(wrkY))/8;;(Handle,nil,False);
end