Größe in TImage

[danten]

Bitte entschuldigen Sie mein Deutsch.

Mám vytvořený PaintBox o rozměrech 800 x 600.
Zeichnen Sie das Bild, an dem sie bisher unbekannte Dimensionen.

Ich muss irgendwie bestimmen die minimale und maximale positionieren Sie den Cursor zum Zeitpunkt der Zeichnung, und dann automatisch zuschneiden nur den Teil, der gezeichnet wird.

Vielen Dank

[haentschman]

Hallo danten...

Willkommen, Welcome :dp:

Du kannst auch in Englisch schreiben. You also can write in English.

Sometimes it´s enough to use the Google translator. Please use always the same language.

:hi:

Questions:
- You want to know this Rect ?
- Paint you this Rect by yourself ?
- What you mean with positioning the Cursor ?

[danten]

Vielen Dank, aber ich bin aus der Tschechischen Republik und den Google-Übersetzer.
Thank you but I'm from Czech Republic and use the google translator.
:oops:

[haentschman]

I think the translation to english is better... :zwinker:

It´s not a Problem... we help you. What about the questions ?

[DeddyH]

I think you will have to scan the pixels of the canvas line by line (Canvas.Pixels or ScanLine can be used for this). Then you need to remember the first and the last occurence of a different color, on the X- and on the Y-axis. The resulting rect is limited by these 4 values.

[Popov]

Dann mal ahoj.

[haentschman]

Scanline is faster then Canvas.Pixels

[danten]

Ahoj :lol:

Creating a project in which the user can draw a picture to RichEdit.
The position of "Row" and "Count" is automatically created to the page Paintbox.
At this Paintbox user will draw. Once you finish drawing and clicks the "Enter", so I need to crop the image automatically and only the coordinates, where an image and discard the rest.
It is unnecessary to file a 100 x 100 pixel screen takes up the size as 800 x 600 pixels.

Trying to get coordinates Mouse_Min_Top, Mouse_Max_Top, Mouse_Min_Left, Mouse_Max_left.
Once I know these coordinates, the problem is not crop the image.

Please show a little code.
Thank you very much

[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 :zwinker:

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 8-)

[DeddyH]

Dann lies #8 nochmal genau durch ;)

[haentschman]

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

[danten]

I'm sorry, but I do not understand.
Where can I get the position Min_Top, Max_Top, Min_Left, Max_Left?

The presented examples only draws me around the entire frame Paintbox and nothing else.

We could use a Record?

[DeddyH]

Your Min_Top is my YMin and so on. Maybe the comparison in my example does not fit, you should check this.

[danten]

I love programming in Delphi and you are also friends.

The procedure was correct, but it wants to communicate with Paintbox, but only in the Image.

A special thank you "DeddyH"
:thumb:

[DeddyH]

No problem :)

[haentschman]

:thumb:
Please change your Delphi Version in your Profile...

[danten]

Zitat:

Zitat von haentschman (Beitrag 1151876)

:thumb:
Please change your Delphi Version in your Profile...

Already completed is the profile :lol::roll:

[haentschman]

Perfekt... 8-)

Prag... i want too... for Holiday :cry: