Port To linux

[azrael11]

I have a game project almost complete with Lazarus.... in Win 32...
and i want to port it to linux... mint 32...

For setting the screen resolution in win32 port i use this function

Code: [Select]

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....

Thank you ...

[gato2707]

Did you try change Form property WindowState to wsFullScreen?

[azrael11]

Did you try change Form property WindowState to wsFullScreen?

The point is to control the resolution and the color bit of the current computer so i can change to feet in my program and when it finish go back with the previus resolution and bit color...

Thanks...

[Zittergie]

Until you find a solution, you can maybe use 'xrandr' command to get/set the resolution.

[azrael11]

Until you find a solution, you can maybe use 'xrandr' command to get/set the resolution.

This is great idea... i use it and have same great results...

But i am much happier if someone just get this in pure pascal....

Thank you for your help...