Mehrere Markierungen in TImage setzen

[turboPASCAL]

Schau mal in der hilfe nach unter:

TImage TBitmap TCanvas

Delphi-Quellcode:

procedure SoUndSo...
begin
  With ImageX.Picture.Bitmap do
  begin
    Canvas.Brush.Style := bsClear
    Canvas.Pen.Color := clGreen;
    Canvas.Rectangle(x,y,x2,y2);
  end;
end;

Bei Markierung löschen musst du entweder einen Teilbereich aus einem temp. Bitmap kopieren
oder du lädst nas komplette bitmap neu und mals alle anderen Markierungen.