Script functie SHOWTHUMBDLG toont de standaard kleur informatie indien geen afbeeldingen voorzien zijn.
De functie “ShowThumbDlg” beschikt voor de uitvoering tabel over de volgende argumenten :
ShowThumbDlg (Dtable,Scode, [,Dkind[,Dmode[,Dsize[,Dwidth[,Dheight [,Bhint[,Dfilter[,Dlock[,Dhide[,Scaption]]]]]]]]]])
Skey (waarde van keuze, leeg indien afgebroken)
Dtable tabel identifier (DLG_ FINISH)
Scode uitvoering code
Dkind thumbnail soort
USAGE_DRW structuur (=standaard)
USAGE_CAD kleur
Dmode thumbnail layout
THUMB_GRID raster (=standaard)
THUMB_GRID lijst
Dsize thumbnail afmeting niets opgegeven = 0 (=standaard 48 pixels)
Dwidth thumnail aantal horizontaal niets opgegeven = 0 (=standaard volgens breedte)
Dheight thumbnail aantal vertikaal niets opgegeven = 0 (=standaard volgens hoogte)
Bhint informatie hints
True tonen (=standaard)
False verbergen
Dfilter categorie filter niets opgegeven = 0 (=standaard geen filter)
Dlock categorie blokeren
False wijzigbaar (=standaard)
True geblokkeerd
Dhide categorie verbergen
False zichtbaar (=standaard)
True verborgen
Scaption titel dialoog niets opgegeven = “” (standaard titel)
Wanneer voor de parameter Dkind “USAGE_DRW” wordt gebruikt zal vanaf nu de standaard kleur visualisatie (zoals deze in de basisgegevens dialoog te zien is) getoond worden indien de gebruiker geen afbeelding heeft gekoppeld (zie onderstaande screenshot) :
Verder werd het “FORMSETTINGS” object voorzien van extra eigenschappen indien met meerder monitoren wordt gewerkt:
FORMSETTINGS.MONITOR[ndx].WIDTH resolutie breedte monitor
FORMSETTINGS.MONITOR[ndx].HEIGHT resolutie hoogte monitor
FORMSETTINGS.MONITOR[ndx].MONITORID identificatie monitor
FORMSETTINGS.MONITOR[ndx].PRIMARY hoofd monitor
/* Screen resolution */
mc := FORMSETTINGS.SCREEN.MONITORCOUNT;
sw := IntToStr(FORMSETtINGS.SCREEN.WIDTH);
sh := IntToStr(FORMSETTINGS.SCREEN.HEIGHT);
ShowMessage('Screen size = ' + sw + ' x ' + sh + ', Monitor(s) = ' + IntToStr(mc));
id := 0;
While (id < mc) do
{
sw := IntToStr(FORMSETTINGS.MONITOR[id].WIDTH);
sh := IntToStr(FORMSETTINGS.MONITOR[id].HEIGHT);
ShowMessage('Monitor ' + IntToStr(id) + ' size = ' + sw + ' x ' + sh);
id := id + 1;
};