как из буфера перенести картинку в Image
как из буфера после нажатия PrintScreen перенести картинку в Image
[QUOTE='[SS]Modest']как из буфера после нажатия PrintScreen перенести картинку в Image[/QUOTE]
F1->Предметный указатель->TImage->Properties->Picture->Example:
F1->Предметный указатель->TImage->Properties->Picture->Example:
Код:
Image1->Picture->Assign(Clipboard());
[QUOTE=GIZMO]F1->Предметный указатель->TImage->Properties->Picture->Example:
[/QUOTE]
ага, работает
я делал с помощью API, только чё-то не работает, почему - непойму, может подскажете
Код:
Image1->Picture->Assign(Clipboard());
ага, работает
я делал с помощью API, только чё-то не работает, почему - непойму, может подскажете
Код:
void __fastcall TForm1::Button2Click(TObject *Sender)
{ HWND hwnd;
HBITMAP hbm;
::RECT rc;
HDC hdc = Image1->Canvas->Handle;
HDC hdcMem = CreateCompatibleDC(hdc);
if (hdcMem != NULL) {
if (OpenClipboard(hwnd)) {
hbm = (HBITMAP) GetClipboardData(CF_BITMAP);
SelectObject(hdcMem, hbm);
//GetClientRect(hwnd, &rc);
BitBlt(hdc, 0, 0, Image1->Canvas->ClipRect.Width(), Image1->Canvas->ClipRect.Height(), hdcMem, 0, 0, SRCCOPY);
CloseClipboard();
}
DeleteDC(hdcMem);
}
}
{ HWND hwnd;
HBITMAP hbm;
::RECT rc;
HDC hdc = Image1->Canvas->Handle;
HDC hdcMem = CreateCompatibleDC(hdc);
if (hdcMem != NULL) {
if (OpenClipboard(hwnd)) {
hbm = (HBITMAP) GetClipboardData(CF_BITMAP);
SelectObject(hdcMem, hbm);
//GetClientRect(hwnd, &rc);
BitBlt(hdc, 0, 0, Image1->Canvas->ClipRect.Width(), Image1->Canvas->ClipRect.Height(), hdcMem, 0, 0, SRCCOPY);
CloseClipboard();
}
DeleteDC(hdcMem);
}
}