Witam,
mam taką procedurkę:
Var C:TCanvas; bmp: TBitmap; rgn: HRGN;
Begin
bmp:= TBitmap.Create;
bmp.LoadFromFile('D:\STARE SMIECI\BPT475.bmp');
C:=TCanvas.Create;
C.Handle:=GetDC(Panel1.Handle);
// C.Draw(0, 0, bmp);
rgn:= CreateEllipticRgn(50,50, 400, 180);
SetWindowRgn(Panel1.Handle, rgn, True);
C.Draw(0, 0, bmp);
ReleaseDC(Panel1.Handle, C.Handle);
C.Free;
bmp.FreeImage;
bmp.Free;
DeleteObject(rgn);
end;
Jak nie robie elipsy z panela, to działa elegancko,
natomiast po zmianie kształtu panela - nie rysuje bitmapy.
Co robie nie tak?
Dzieki za wyrozumiałość i wszelkie wskazówki.