izmenjeno 1 put, poslednji put savkic 08.05.2011. u 12:02
Izmene poruke
- savkic08.05.2011. u 12:02zapis iz teksta poruke
Početnik sam u Delphiju (imam delphi 7) i učim po knjizi "Delphi 4 za 21 dan" i tako sam došla do TCanvas-a i CllippingRegions-a i pišem primjer iz knjige koji ima ovaj jednostavan kod:
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
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