Source position: GLScreenSaver.pas line 74
type TScreenSaverPreviewEvent = procedure(
Sender: TObject;
previewHwnd: HWND
) of object;