tbitmap

I receive a bitmap via TCameraComponent.SampleBufferReady event. Then I need to crop the received image so that I get a, for instance, recangular image. I calculate the necessary parameters in the following method: procedure TPersonalF.SampleBufferReady(Sender: TObject; const ATime: TMediaTime); var BMP: TBitmap; X, Y, W, H: Word; begin Try BMP := TBitmap.Create; CameraComponent.SampleBufferToBitmap(BMP, true); if BMP.Width >= BMP.Height then //landscape begin W:=BMP.Height; H:=W; Y:=0; X:=trunc((BMP.Width-BMP.Height)/2); end else //portrait begin W:=BMP.Width; H:=W; X:=0; Y:=trunc((BMP.Height

If I have a TBitmap and I want to obtain a cropped image from this bitmap, can I perform the cropping operation "in place"? e.g. if I have a bitmap that is 800x600, how can I reduce (crop) it so that it contains the 600x400 image at the centre, i.e. the resulting TBitmap is 600x400, and consists of the rectangle bounded by (100, 100) and (700, 500) in the original image? Do I need to go via another bitmap or can this operation be done within the original bitmap? You can use the BitBlt function try this code. procedure CropBitmap(InBitmap, OutBitMap : TBitmap; X, Y, W, H :Integer); begin

I am trying to find the simplest way to rotate and display a TBitmap on its center by any given angle needed. The TBitmap is square and any clipping that might occur is not important so long as the rotated bitmap's center point remains constant. The image is very small, only around 50 x 50 pixels so speed isn't an issue. Here is the code I have so far which rotates a TBitmap to 90 degrees, which is simple, the any angle thing less so. std::auto_ptr<Graphics::TBitmap> bitmap1(new Graphics::TBitmap); std::auto_ptr<Graphics::TBitmap> bitmap2(new Graphics::TBitmap); bitmap1->LoadFromFile("c: