SRL Archive - SRL Archives

procedure GetResolution(var Width, Height : Integer);
var
  previousClient, clientX, clientY : Integer;
begin
  previousClient := GetClientWindowHandle;
  SetDesktopAsClient;
  GetClientDimensions(clientX, clientY);
  Width := clientX;
  Height := clientY;
  SetClientWindowHandle(previousClient);
end;

Used as so:

program GetResolutionExample;

var
  resX, resY : Integer;

begin
  GetResolution(resX, resY);
  Writeln(Format('Screen Dimensions : (%d, %d)', [resX, resY]));
end.

I know it's crappy and I can do better than this, but it can be useful. :stirthepot:

GetResolution is the name you're looking for.

There is no such procedure or function by that name.

From: Diddy Kong
There is no such procedure or function by that name.

Yea I know. What I meant was, that's would it should be named

Screen dimensions are in inches/centimeters. Resolution is pixels ;)

From: IceFire908
Yea I know. What I meant was, that's would it should be named

Screen dimensions are in inches/centimeters. Resolution is pixels ;)

Okay then. :duh:

What could this be used for?

Forms, centering client windows. :bart: Or maybe just no use at all for SRL in mind.

This belongs in simba/SCAR suggestions IMO

From: Diddy Kong
Forms, centering client windows. :bart: Or maybe just no use at all for SRL in mind.

If you can find no use then there is no reason for it to clog up the include.
Also, you don't need to use this for forms and you can do Form.Position := poScreenCenter; and others.

This could be used for full screen runescape applets. It's not big so it really wouldn't clog includes.

Well SRL doesn't work in full screen, nor does it work in re-sizable mode, so I still don't see any use at all. Sorry.

From: i luffs yeww
Well SRL doesn't work in full screen, nor does it work in re-sizable mode, so I still don't see any use at all. Sorry.

It's alright. I just have a SCAR high and it will settle down in a few days. :spongebob:

From: g0tp0t
This could be used for full screen runescape applets. It's not big so it really wouldn't clog includes.

Clogging the include in the sense of filling it with useless procedures.

I would find this useful, in simba or SCAR. not the include.

From: IceFire908
I would find this useful, in simba or SCAR. not the include.

I would, too. It doesn't really fit SRL include. It really needs to be cleaned.

SRL needs to be cleaned or your function? >_>

From: i luffs yeww
SRL needs to be cleaned or your function? >_>

SRL needs to be cleaned.

Then clean it if you think it needs cleaned. It's open for a reason.

That will become easier with SRL5 and git.

From: Boreas
That will become easier with SRL5 and git.

Aw, yes, thank you Boreas. ;)