Grafiken in die Zwischenablage ausschneiden
Nach oben zu Die Zwischenablage und Grafiken
Das Ausschneiden einer Grafik in die Zwischenablage entspricht dem Kopieren einer Grafik, wobei jedoch zusätzlich die ursprüngliche Grafik gelöscht wird.
Um eine Grafik aus einem Bild in die Zwischenablage auszuschneiden, kopieren Sie sie zunächst in die Zwischenablage und löschen anschließend das Original.
Normalerweise ist beim Ausschneiden nur die Frage zu klären, wie der gelöschte Teil im Originalbild zu behandeln ist. Das Ausfüllen des Bereichs durch die Farbe Weiß ist der übliche Ansatz. Der folgende Quelltext mit einer Behandlungsroutine für das Ereignis OnClick des Menüeintrags Bearbeiten > Ausschneiden zeigt dieses Vorgehen:
procedure TForm1.Cut1Click(Sender: TObject);
var
ARect: TRect;
begin
Copy1Click(Sender); { copy picture to clipboard }
with Image.Canvas do
begin
CopyMode := cmWhiteness; { copy everything as white }
ARect := Rect(0, 0, Image.Width, Image.Height); { get bitmap rectangle }
CopyRect(ARect, Image.Canvas, ARect); { copy bitmap over itself }
CopyMode := cmSrcCopy; { restore normal mode }
end;
end;
void __fastcall TForm1::Cut1Click(TObject *Sender) {
TRect ARect;
Copy1Click(Sender); // copy picture to clipboard
Image->Canvas->CopyMode = cmWhiteness; // copy everything as white
ARect = Rect(0, 0, Image->Width, Image->Height); // get dimensions of image
Image->Canvas->CopyRect(ARect, Image->Canvas, ARect);
// copy bitmap over self
Image->Canvas->CopyMode = cmSrcCopy; // restore default mode
}