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);{ Bild in die Zwischenablage kopieren }
with Image.Canvas do
begin
CopyMode := cmWhiteness;{ Alles mit der Farbe Weiß füllen }
ARect := Rect(0, 0, Image.Width, Image.Height);{ Abmessungen des Bitmap ermitteln }
CopyRect(ARect, Image.Canvas, ARect);{ Bitmap auf sich selbst kopieren }
CopyMode := cmSrcCopy;{ Standardmodus wiederherstellen }
end;
end;
void __fastcall TForm1::Cut1Click(TObject *Sender)
{
TRect ARect;
Copy1Click(Sender); // Bild in die Zwischenablage kopieren
Image->Canvas->CopyMode = cmWhiteness; // Alles mit der Farbe Weiß füllen
ARect = Rect(0, 0, Image->Width, Image->Height); // Abmessungen des Bilds ermitteln
Image->Canvas->CopyRect(ARect, Image->Canvas, ARect); // Bitmap auf sich selbst kopieren
Image->Canvas->CopyMode = cmSrcCopy; // Standardmodus wiederherstellen
}