Code:
var
Bitmap : TBitmap;
Rgn : HRGN;
begin
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile(handshak.bmp);
Rgn := CreateRectRgn(50, 50, 250, 250);
SelectClipRgn(Canvas.Handle, Rgn);
Canvas.Draw(0, 0, Bitmap);
Bitmap.Free;
end;
var
Bitmap : TBitmap;
Rgn : HRGN;
begin
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile(handshak.bmp);
Rgn := CreateRectRgn(50, 50, 250, 250);
SelectClipRgn(Canvas.Handle, Rgn);
Canvas.Draw(0, 0, Bitmap);
Bitmap.Free;
end;
i problem je u tome što kada pokrenem program dobijem isti rezultat kao i bez procedure:
SelectClipRgn(Canvas.Handle, Rgn);
a kada idem u Help tamo uopće to ne mogu naći...
pa bih molila ako mi neko zna reći u čemu je štos... da li je do verzije Delphija i ako je kako se to radi u novoj verziji ?
Tnx
[Ovu poruku je menjao savkic dana 08.05.2011. u 12:02 GMT+1]