Hi,
ich würde gerne ein Bild zuschneiden. Ich habe mir überlegt man könnte ja ein Panel benutzen mit welchem man den Bereich auswählt und dann einfach den Rest von einem Bild auf einer Image Komponente wegschneidet. Um mit der Maus das Panel zu positionieren habe ich folgenden Code verwendet:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
| procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ssLeft in Shift then begin
Panel1.Left := image1.ScreenToClient(Mouse.CursorPos).x;
Panel1.Top := image1.ScreenToClient(Mouse.CursorPos).y;
end;
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ssLeft in Shift then begin
Panel1.width := panel1.ScreenToClient(Mouse.CursorPos).x;
Panel1.height := panel1.ScreenToClient(Mouse.CursorPos).y;
end;
end; |
Das funktioniert auch. Der letzt Schrittt wäre jetzt natürlich den Bereich des Bildes der unter dem Panel liegt verwenden und das Image mit dem was da halt nur unter dem Panel liegt zu ersetzen. Ich habe folgende Funktion gefunden die ich ein bisschen verändert habe damit es geht:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
| var SourceBitmap : TBitmap;
TargetBitmap : TBitmap;
cut: TRect;
begin
if ssright in Shift then begin
cut.Top := Panel1.Top;
cut.Left := Panel1.Left;
cut.BottomRight.X := Panel1.Top + Panel1.Height;
cut.BottomRight.Y := Panel1.left + Panel1.Width;
SourceBitmap:= TBitmap.Create;
TargetBitmap:= TBitmap.Create;
SourceBitmap := Image1.picture.bitmap;
TargetBitmap := Image2.picture.Bitmap;
TargetBitmap.Width := Cut.Right - Cut.Left;
TargetBitmap.Height := Cut.Bottom - Cut.Top;
BitBlt(TargetBitmap.Canvas.Handle, 0, 0, Cut.Right, Cut.Bottom, SourceBitmap.Canvas.Handle, Cut.Left, Cut.Top, SRCCOPY);
SourceBitmap.Canvas.Refresh;
Image1.picture.bitmap := image2.picture.bitmap;
end;
end; |
Aber irgendwie funktioniert das ganze nicht. Es wird immer ein ganz anderer Ausschnitt in das Image gesetzt. Hoffe ihr könnt mir helfen.
Gibt auch nen Crosspost in der Dp.
MFG Lars Wiltfang
Moderiert von 
Narses: Delphi-Tags hinzugefügt
