koristeci API f-ju BitBlt (zaobilazimo standardno BCB crtanje po Canvas->Brush->DrawRect...)
ali ne funkcionise
Code:
HBITMAP hbmp; // pointer
PAINTSTRUCT ps;
BITMAP bm;
HDC hdc, hdcMem ; // BitBlt parametri
Graphics::TBitmap *slika = new Graphics::TBitmap(); // VCL klasa za BITMAPU
slika->LoadFromFile("Slika.bmp");
hbmp= slika; // ovo je proslo ???
HWND hwnd = Form1->Handle;
if(hbmp == NULL)
{
MessageBox(hwnd, "Ne moze da ucita sliku", "Greska", MB_OK );
return;
}
hdc = GetDC(hwnd);
hdcMem = CreateCompatibleDC(hdc);
HBITMAP hbmOld = (HBITMAP) SelectObject(hdcMem, hbmp);
GetObject(hbmp, sizeof(bm), &bm);
BitBlt(hdc,0,0,slika->Width, slika->Height,hdcMem ,0,0,SRCCOPY);
SelectObject(hdcMem, hbmOld);
DeleteDC(hdcMem);
delete slika;
// nema rezultata
HBITMAP hbmp; // pointer
PAINTSTRUCT ps;
BITMAP bm;
HDC hdc, hdcMem ; // BitBlt parametri
Graphics::TBitmap *slika = new Graphics::TBitmap(); // VCL klasa za BITMAPU
slika->LoadFromFile("Slika.bmp");
hbmp= slika; // ovo je proslo ???
HWND hwnd = Form1->Handle;
if(hbmp == NULL)
{
MessageBox(hwnd, "Ne moze da ucita sliku", "Greska", MB_OK );
return;
}
hdc = GetDC(hwnd);
hdcMem = CreateCompatibleDC(hdc);
HBITMAP hbmOld = (HBITMAP) SelectObject(hdcMem, hbmp);
GetObject(hbmp, sizeof(bm), &bm);
BitBlt(hdc,0,0,slika->Width, slika->Height,hdcMem ,0,0,SRCCOPY);
SelectObject(hdcMem, hbmOld);
DeleteDC(hdcMem);
delete slika;
// nema rezultata
ps izvinjavam se ako je kod malo neuredan.
Tape loading error