Geografische Bearbeitung von Bitmaps

[FriFra]

Einen einfachen schwarzen Punkt (es geht natürlich mit jeder Farbe )kannst Du wie folgt zeichnen:
Image1.Picture.Canvas.Pixels[X,Y] := clBlack; Dieser Punkt ist natürlich nur 1 Pixel gross und deshalb schwer zu erkennen... Du kannst ja noch ein paar Pixel um diesen Punkt herum zeichnen...

Delphi-Quellcode:

Image1.Picture.Canvas.Pixels[X - 1, Y - 2] := clBlack;
Image1.Picture.Canvas.Pixels[X, Y - 2] := clBlack;
Image1.Picture.Canvas.Pixels[X + 1, Y - 2] := clBlack;
Image1.Picture.Canvas.Pixels[X - 2, Y - 1] := clBlack;
Image1.Picture.Canvas.Pixels[X - 1, Y - 1] := clBlack;
Image1.Picture.Canvas.Pixels[X, Y - 1] := clBlack;
Image1.Picture.Canvas.Pixels[X + 1, Y - 1] := clBlack;
Image1.Picture.Canvas.Pixels[X + 2, Y - 1] := clBlack;
Image1.Picture.Canvas.Pixels[X - 2, Y] := clBlack;
Image1.Picture.Canvas.Pixels[X - 1, Y] := clBlack;
Image1.Picture.Canvas.Pixels[X, Y] := clBlack;
Image1.Picture.Canvas.Pixels[X + 1, Y] := clBlack;
Image1.Picture.Canvas.Pixels[X + 2, Y] := clBlack;
Image1.Picture.Canvas.Pixels[X - 2, Y + 1] := clBlack;
Image1.Picture.Canvas.Pixels[X - 1, Y + 1] := clBlack;
Image1.Picture.Canvas.Pixels[X, Y - 1] := clBlack;
Image1.Picture.Canvas.Pixels[X + 1, Y + 1] := clBlack;
Image1.Picture.Canvas.Pixels[X + 2, Y + 1] := clBlack;
Image1.Picture.Canvas.Pixels[X - 1, Y + 2] := clBlack;
Image1.Picture.Canvas.Pixels[X, Y + 2] := clBlack;
Image1.Picture.Canvas.Pixels[X + 1, Y + 2] := clBlack;

Den dazu gehörenden Text kannst Du mit TextOut auf den Canvas zeichnen.