antp Super Administrateur Champion des excuses bidons | Exemple de TCanvas.CopyRect, dans l'aide:
Code :
- var
- Bitmap: TBitmap;
- MyRect, MyOther: TRect;
- begin
- MyRect := Rect(10,10,100,100);
- MyOther := Rect(10,111,100, 201);
- Bitmap := TBitmap.Create;
- Bitmap.LoadFromFile('c:\windows\tartan.bmp');
- Form1.Canvas.BrushCopy(MyRect, Bitmap, MyRect, clBlack);
- Form1.Canvas.CopyRect(MyOther,Bitmap.Canvas,MyRect);
- Bitmap.Free;
- end;
|
[jfdsdjhfuetppo]--Message édité par antp--[/jfdsdjhfuetppo] ---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
|