Files
TempleOS-Rijn/TempleOSCD/Adam/Gr/GrEnd.HC
T
2017-01-22 20:26:44 +01:00

30 lines
552 B
HolyC

#help_index "Graphics/Scrn"
U0 CtrlAltZ(I64 sc)
{
if (sc&SCF_SHIFT)
GrScaleZoom(0.5);
else
GrScaleZoom(2.0);
}
CtrlAltCBSet('Z',&CtrlAltZ,"Cmd /Zoom In",
"Cmd /Zoom Out");
U0 Scrn2Clipboard(I64)
{
CDC *dc=DCScrnCapture;
U8 *elems=DC2Sprite(dc);
Bool unlock_doc=DocLock(sys_clipboard_doc);
ClipboardDel;
DocSprite(sys_clipboard_doc,elems);
if (unlock_doc)
DocUnlock(sys_clipboard_doc);
Free(elems);
DCDel(dc);
}
U0 CtrlAltS(I64)
{
Spawn(&Scrn2Clipboard);
}
CtrlAltCBSet('S',&CtrlAltS,"Cmd /Scrn Shot to Clipboard");