Port To linux
lazarus / 39-Graphics

----------------------------------------------------------------------
azrael11 · 2013-01-07 12:00

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 · 2013-01-08 02:02

Did you try change Form property WindowState to wsFullScreen?

----------------------------------------------------------------------
azrael11 · 2013-01-08 09:01

Quote from: gato2707 on January 08, 2013, 03:02:21 amDid 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 · 2013-01-17 17:42

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

----------------------------------------------------------------------
azrael11 · 2013-01-20 11:14

Quote from: Zittergie on January 17, 2013, 06:42:32 pmUntil 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...