|
Templates, Tools and Utilities
for Clarion Developers
|
 |
 |
|
Add a comment to an Icetips Article
Please add your comments to this article.
Please note that you must provide both a name and a valid email address in order
for us to publish your comment. Comments are moderated and are not visible until they have been approved. Spam is never approved!
Back to article list
Search Articles
Add Comment
Printer friendly
Direct link
Windows API: Change or detect screen resolution (1)
2003-01-26 -- Arnor Baldvinsson
Newsgroups: comp.lang.clarion
Hi Chris,
On Sat, 25 Jan 2003 17:47:32 -0600, "Chris Bordeman"
wrote:
>My app requires 1024x768, how can I change the screen resolution at app
>startup? Or at least detect it so I can tell the user to fix it, maybe even
>pop up the appropriate dialog?
You can use the GetSystemMetrics api to get the current resolution:
W = GetSystemMetrics(SM_CXSCREEN)
H = GetSystemMetrics(SM_CYSCREEN)
To change it, look at the ChangeDisplaySettings api. You can download
some Delphi code from:
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=478&lngWId=7
The main function that does the resizing looks like this:
function SetScreenResolution(Width, Height: integer): Longint;
var
DeviceMode: TDeviceMode;
begin
with DeviceMode do begin
dmSize := SizeOf(TDeviceMode);
dmPelsWidth := Width;
dmPelsHeight := Height;
dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
end;
Result := ChangeDisplaySettings(DeviceMode, CDS_UPDATEREGISTRY);
end;
Looks fairly simple to me if you have the structures and equates. Let
me know if you need any more help with this (haven't used it myself,
but it looks fairly simple)
Best regards,
Arnór Baldvinsson
Today is December 3, 2024, 11:41 am
This article has been viewed 35229 times.
Google search
has resulted in 239 hits on this article since January 25, 2004.
Back to article list
Search Articles
Add Comment
Printer friendly
|
|
|
