Größe in TImage

[haentschman]

Zitat:

the problem is not crop the image.

...ok. Do you want to save the cutted Part to a File ? Which Format ?

[danten]

BMP please.

[haentschman]

you have to change... is an Idea but can be wrong

Delphi-Quellcode:

var aPicture:TBitmap; 
    PictureName:string; 
    aSourceRect:TRect;
   aDestinationRect;
begin
 aPicture:=TBitmap.Create;
 try
   aPicture.Width:=100; // your cutted Size
   aPicture.Height:=100; // your cutted Size
   aDestinationRect:= (0,0,100,100);
   aSourceRect:=Rect(100,200,200,300); // your cutted Rect
   aPicture.Canvas.CopyRect(aDestinationRect, YourPaintBox.Canvas, aSourceRect); // Copy the Rect from the Paintbox to the Image
   PictureName:= 'MyPicture'; // define the Name
   aPicture.SaveToFile('YourFolder\' + PictureName + '.bmp');
 finally
   aPicture.free;
 end

[DeddyH]

A short test:

Delphi-Quellcode:

procedure TFormTest.Button1Click(Sender: TObject);
var
  XIndex, YIndex, XMin, XMax, YMin, YMax: integer;
begin
  XMin := PaintBox1.ClientWidth;
  YMin := PaintBox1.ClientHeight;
  XMax := 0;
  YMax := 0;
  for YIndex := 0 to PaintBox1.ClientHeight - 1 do
    for XIndex := 0 to PaintBox1.ClientWidth - 1 do
      if PaintBox1.Canvas.Pixels[XIndex, YIndex] <>
        PaintBox1.Canvas.Brush.Color then
        begin
          if XIndex < XMin then
            XMin := XIndex;
          if YIndex < YMin then
            YMin := YIndex;
          if XIndex > XMax then
            XMax := XIndex;
          if YIndex > YMax then
            YMax := YIndex;
        end;
  PaintBox1.Canvas.Brush.Style := bsClear;
  PaintBox1.Canvas.Pen.Color := clBlue;
  PaintBox1.Canvas.Rectangle(XMin - 1, YMin - 1, XMax + 2, YMax + 2);
end;

As said before: Canvas.Pixels is quite slow, ScanLine is much faster, but you have to do some work yourself

[haentschman]

@DeddyH: Er hat den Ausschnitt, weiß nur nicht wie er ihn rauskriegt und in eine Datei ablegt... denke ich mal

[DeddyH]

Dann lies #8 nochmal genau durch

[haentschman]

ok... ich habe das "once" überlesen Aber mit beiden kann er was anfangen...