Var FS: DevMode; // FS - Full Screen
Begin
ZeroMemory(@FS, SizeOf(FS));
With FS Do
Begin
dmSize := SizeOf(FS);
dmPelsWidth := Width;
dmPelsHeight := Height;
dmBitsPerPel := 32;
dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT Or DM_BITSPERPEL;
End;
I tak jest OK.
Natomiast tak:
Var FS: DevMode; // FS - Full Screen
Begin
ZeroMemory(@FS, SizeOf(FS));
With (FS) Do // Nawiasy
Begin
dmSize := SizeOf(FS);
dmPelsWidth := Width;
dmPelsHeight := Height;
dmBitsPerPel := 32;
dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT Or DM_BITSPERPEL;
End;
Pokazuje 'Left side cannot be assigned to' - nie wiadomo (czyt.ja nie wiem), dlaczego.
A deklaracja rekordu...
http://msdn.microsoft.com/en-us/library/dd183565(v=vs.85).aspx