Voortaan is het mogelijk om via script de resolutie van het scherm op te vragen.
Het object FORMSETTINGS heeft een extra eigenschap MONITOR. Deze laat toe om per beschikbaar scherm de volgende informatie op te vragen:
MONITOR[x].LEFT (X positie)
MONITOR[x].TOP (Y positie)
MONITOR[x].WIDTH (schermbreedte)
MONITOR[x].HEIGHT (schermhoogte)
MONITOR[x].PRIMARY (hoofdscherm ja/neen)
MONITOR[x].MONITORID (schermnummer)
Het object FORMSETTINGS heeft ook een extra methode DETECT. Deze laat toe om het schermnummer op te vragen voor een bepaalde schermpositie of indien geen positie wordt opgegeven van het actieve venster:
FORMSETTING.DETECT([X,Y]);
X coordinaat schermpositie
Y coordinaat schermpositie
Voorbeeld script :
/* Screen resolution */
/* Retrieve available monitors */
mc := FORMSETTINGS.SCREEN.MONITORCOUNT;
/* Retrieve width & height default monitor */
sw := IntToStr(FORMSETTINGS.SCREEN.WIDTH);
sh := IntToStr(FORMSETTINGS.SCREEN.HEIGHT);
ShowMessage('Screen size = ' + sw + ' x ' + sh + ', Monitor(s) = ' + IntToStr(mc));
/* Retrieve monitor for position or active form */
cx := 300; cy := 300;
cm := FORMSETTINGS.Detect(cx,cy);
ShowMessage('Position (' + IntToStr(cx) + ',' + IntToStr(cy) + ') on monitor ' + IntToStr(cm+1));
/* Retrieve monitor for active window */
cm := FORMSETTINGS.Detect();
ShowMessage('Active window on monitor ' + IntToStr(cm+1));
/* Retrieve width & height for available monitors */
id := 0;
while (id < mc) do
{
sw := IntToStr(FORMSETTINGS.MONITOR[id].WIDTH);
sh := IntToStr(FORMSETTINGS.MONITOR[id].HEIGHT);
ShowMessage('Monitor ' + IntToStr(id+1) + ' size = ' + sw + ' x ' + sh);
id := id + 1;
};