azrael11
07-01-2013, 03:47 PM
hi... Happy new Year....
So finally after two year almost.. with so little time to code... i must say that game project is near to done... ;)
It is writing in Lazarus using GLScene... and the next step before to give it to all... is to porting to linux...
I have a problem...
The function i use in win32 mode to set the screen resolution is the code above...
procedure SetScreen(bpp: byte; width, height, FR: integer);
var
D: TDevMode;
h: HWND;
begin
h := 0;
D.dmDeviceName[0] := 0;
D.dmBitsPerPel := BPP;
D.dmDisplayFrequency := FR;
D.dmPelsWidth := Width;
D.dmPelsHeight := Height;
D.dmFields := DM_BITSPERPEL + DM_PELSWIDTH + DM_PELSHEIGHT +
DM_DISPLAYFREQUENCY;
D.dmSize := SizeOf(D);
if ChangeDisplaySettings(D, CDS_TEST) =
DISP_CHANGE_SUCCESSFUL then
ChangeDisplaySettings(D, CDS_UPDATEREGISTRY)
end;
But the TDevMode uses the Window unit that does't work in linux...
So how can i make that to work in X11.... or any other graph mode...
Thank you ... and keep pascaling...
So finally after two year almost.. with so little time to code... i must say that game project is near to done... ;)
It is writing in Lazarus using GLScene... and the next step before to give it to all... is to porting to linux...
I have a problem...
The function i use in win32 mode to set the screen resolution is the code above...
procedure SetScreen(bpp: byte; width, height, FR: integer);
var
D: TDevMode;
h: HWND;
begin
h := 0;
D.dmDeviceName[0] := 0;
D.dmBitsPerPel := BPP;
D.dmDisplayFrequency := FR;
D.dmPelsWidth := Width;
D.dmPelsHeight := Height;
D.dmFields := DM_BITSPERPEL + DM_PELSWIDTH + DM_PELSHEIGHT +
DM_DISPLAYFREQUENCY;
D.dmSize := SizeOf(D);
if ChangeDisplaySettings(D, CDS_TEST) =
DISP_CHANGE_SUCCESSFUL then
ChangeDisplaySettings(D, CDS_UPDATEREGISTRY)
end;
But the TDevMode uses the Window unit that does't work in linux...
So how can i make that to work in X11.... or any other graph mode...
Thank you ... and keep pascaling...