Как сделать калькулятор в Delphi?
Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Как Delphi реализует многоплатформенную разработку?
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
Получение OpenGL расширений
{ **** UBPFD *********** by delphibase.endimus.com ****
>> Получение OpenGL расширений
Зависимости: OpenGL
Автор: Gua, gua@ukr.net, ICQ:141585495, Simferopol
Copyright: Gua
Дата: 18 июля 2002 г.
***************************************************** }
function GetOGLExtensions: string
;
var
DC: HDC;
hrc: HGLRC;
{Установка формата пикселей}
procedure
SetDCPixelFormat;
var
DC: HDC;
nPixelFormat: Integer;
pfd: TPixelFormatDescriptor;
begin
FillChar(pfd, SizeOf(pfd), 0);
nPixelFormat := ChoosePixelFormat(DC, @pfd);
SetPixelFormat(DC, nPixelFormat, @pfd);
end
;
begin
DC := GetDC(0);
SetDCPixelFormat;
hrc := wglCreateContext(DC);
wglMakeCurrent(DC, hrc);
Result := StrPas(PChar(glGetString(GL_EXTENSIONS)));
wglMakeCurrent(0, 0);
wglDeleteContext(hrc);
ReleaseDC(0, DC);
DeleteDC(DC);
end
;
Пример использования:
MessageDlg(GetOGLExtensions,mtInformation,[mbOK],0);