FreePascal.ru

Всё ок! Ссам разобрался!

"Options/Mode/Debug". Поставил "Release" и всё работает отлично!

Всем спасибо за внимание!

Юра писал(а):У тебя скорее всего включена опция -Sew

Как её отключить?

Хм... скачал исходник с сайта, где инициализируется OpenGL - тож самое...
Может не компилится из-за того, что у меня установлен Xpize?

Юра писал(а):Попробуй написать longint(WS_POPUP)

Не помогло... вылазит тоже самое.
Странно... Может у кого есть исходник (работающий)?

Вот...


Wnd:=CreateWindowEx(
WS_EX_APPWINDOW,
'main_window',
nil,
WS_POPUP,
0,0,
GetSystemMetrics(SM_CXSCREEN),GetSystemMetrics(SM_CYSCREEN),
0,
0,
HInstance,
nil
);

Да вот ещё...
При прописывании в стилях окна при создании окна WS_POPUP вылазит ошибка:

Error: range check error while evaluating constants

В чём проблема?

Спасиб! Я и правда что то с расширенными стилями напутал

А писать - то только пробую... Юзаю DX, FPC и WInApi...
Но есть планы на будущее...
А что?

Не могу заставить прогу работать в полноэкранном режиме! Получается
только максимизированное окно. Помогите плз...
Вот код...

{$MODE OBJFPC}
{$APPTYPE GUI}
program test;

uses Windows,DirectDraw;

var
Wnd : Hwnd;
Msg : TMsg;
Wcs : PWndClassEx;
FDirectDraw ...

Насколько будет чиста программа и можно ли использовать её в коммерческих проектах?

Хм... ясно... я просто новенький... ) СПС.

Точнее 2 вопроса:
1. Lazarus - это самостоятелная среда программирования или дополние к FPC?
2. Можно ли на FPC писать полноценные оконные Windows приложения или только консольные?