1:

PaintBox.Canvas.Pixels[x,y] := clBlack                    

1:
2:
3:
4:
5:

var aPoint : TPoint;
begin
  GetCursorPos(aPoint);// >> Bildschirmkoordinaten
  aPoint := PaintBox.ScreenToClient(aPoint);// >> Koordinaten in PaintBox
  PaintBox.Canvas.Pixels[aPoint.x,aPoint.y] := clBlack;                    

1:

with PB_Oberflaeche.Canvas do FillRect(ClipRect);                    

1:
2:
3:
4:

procedure TF_1.FormCreate(Sender: TObject);
begin
with PB_Oberflaeche.Canvas do FillRect(ClipRect);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:

procedure TF_1.FormCreate(Sender: TObject);  
begin  
  with PB_Oberflaeche.Canvas do
  begin
    Brush.Color := clWhite;
    FillRect(ClipRect); 
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
Hintergrund : TBitmap;
begin
   //Bitmap erzeugen
  Hintergrund := TBitmap.Create;
   //Hintergrundfarbe
  Hintergrund.Canvas.Brush.Color := clWhite;
   //Größe festlegen
  Hintergrund.Width  := PB_Oberflaeche.Width;
  Hintergrund.Height := PB_Oberflaeche.Height;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TF_1.FormCreate(Sender: TObject);
var
Hintergrund : TBitmap;
begin
  Hintergrund := TBitmap.Create; //Bitmap erzeugen
  Hintergrund.Canvas.Brush.Color := clWhite; //Farbe des Pinsels festlegen
  Hintergrund.Canvas.Pen.Color := clWhite;   //Farbe des Stifts festlegen
  Hintergrund.Width  := PB_Oberflaeche.Width; //Breite der Bitmap festlegen
  Hintergrund.Height := PB_Oberflaeche.Height;//Höhe festlegen
  Hintergrund.Canvas.Rectangle(0,0,Hintergrund.Width,Hintergrund.Height);//Rechteck in die Bitmap zeichnen, das eigentlich weiß sein sollte und die komplette Bitmap abdecken sollte
  PB_Oberflaeche.Canvas.Draw(0,0,Hintergrund);//Die weiße Bitmap wird auf die Paintbox gemalt
end;                    

1:
2:
3:
4:
5:
6:

var
PBRechteck : TRect;
begin
PB_Oberflaeche.Canvas.Brush.Color := clWhite;
PBRechteck := Rect(PB_Oberflaeche.Left,PB_Oberflaeche.Top,PB_Oberflaeche.Left+PB_Oberflaeche.Width,PB_Oberflaeche.Top+PB_Oberflaeche.Height);
PB_Oberflaeche.Canvas.FillRect(PBRechteck);                    

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:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:

unit U_Test;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TF_1 = class(TForm)
    PB_Oberflaeche: TPaintBox;
    procedure FormCreate(Sender: TObject);
    procedure PB_OberflaechePaint(Sender: TObject);
    procedure PB_OberflaecheClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    Hintergrund : TBitmap;
    end;

var
  F_1: TF_1;

implementation

{$R *.dfm}

procedure TF_1.FormCreate(Sender: TObject);
begin
    Hintergrund := TBitmap.Create; //Bitmap erzeugen
    Hintergrund.Canvas.Brush.Color := clWhite; //Farbe des Pinsels festlegen
    Hintergrund.Canvas.Pen.Color := clWhite;   //Farbe des Stifts festlegen
    Hintergrund.Width  := PB_Oberflaeche.Width; //Breite der Bitmap festlegen
    Hintergrund.Height := PB_Oberflaeche.Height;//Höhe festlegen
    Hintergrund.Canvas.Rectangle(0,0,Hintergrund.Width,Hintergrund.Height);//Rechteck in die Bitmap zeichnen, das eigentlich weiß sein sollte und die komplette Bitmap abdecken sollte
end;

procedure TF_1.PB_OberflaechePaint(Sender: TObject);
begin
PB_Oberflaeche.Canvas.Draw(0,0,Hintergrund);//Die weiße Bitmap wird auf die Paintbox gemalt
end;

procedure TF_1.PB_OberflaecheClick(Sender: TObject);
var
aPoint : TPoint;
begin
GetCursorPos(aPoint);
aPoint := PB_Oberflaeche.ScreenToClient(aPoint);
Hintergrund.Canvas.Pixels[aPoint.x,aPoint.y] := clBlack;
PB_Oberflaeche.Repaint;
end;


end.                    

1:
2:
3:
4:

public

    Hintergrund                                  : TBitmap;
    HGPunkte,HGSpannbaum                         : TBitmap;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TF_1.FormCreate(Sender: TObject);
  begin

  Hintergrund                    := TBitmap.Create;                        //Bitmap erzeugen
  Hintergrund.Canvas.Brush.Color := clWhite;                               //Farbe des Pinsels festlegen
  Hintergrund.Canvas.Pen.Color   := clWhite;                               //Farbe des Stifts festlegen
  Hintergrund.Width              := PB_Oberflaeche.Width;                  //Breite der Bitmap festlegen
  Hintergrund.Height             := PB_Oberflaeche.Height;                 //Höhe festlegen
  Hintergrund.Canvas.Rectangle(0,0,Hintergrund.Width,Hintergrund.Height);  //weißes Rechteck in die Bitmap zeichnen, dasss die komplette Bitmap abdeckt
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TF_1.PB_OberflaechePaint(Sender: TObject);
  begin

  BitBlt(PB_Oberflaeche.Canvas.Handle, 0, 0, Hintergrund.Width, Hintergrund.Height, Hintergrund.Canvas.Handle, 0, 0, SrcCopy);  //PB_Oberflaeche.Canvas.Draw(0,0,Hintergrund); //Die weiße Bitmap wird auf die Paintbox gemalt
 
  end;

procedure TF_1.PB_OberflaecheClick(Sender: TObject);
  var
    Point  : TPoint;
  begin

  GetCursorPos(Point);
  Point := PB_Oberflaeche.ScreenToClient(Point);
  Hintergrund.Canvas.Brush.Color := clBlack;
  Hintergrund.Canvas.Pen.Color   := clBlack;
  Hintergrund.Canvas.Rectangle(Point.x-3,Point.y-3,Point.x+3,Point.y+3); //Hintergrund.Canvas.Pixels[Point.x,Point.y] := clBlack;
  PB_Oberflaeche.Repaint;
 
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TF_1.B_RechneClick(Sender: TObject);
  HGPunkte     := TBitmap.Create;
  HGSpannbaum  := TBitmap.Create;
  HGPunkte     := Hintergrund;
  HGSpannbaum  := Hintergrund;
  for AnzeigeschleifeSB := 0 to PunkteLaufVar - 2 do
    begin
    HGSpannbaum.Canvas.MoveTo(Punkte[Spannbaum[AnzeigeschleifeSB].Von].x,Punkte[Spannbaum[AnzeigeschleifeSB].Von].y);
    HGSpannbaum.Canvas.LineTo(Punkte[Spannbaum[AnzeigeschleifeSB].Nach].x,Punkte[Spannbaum[AnzeigeschleifeSB].Nach].y)
    end;
  end;

procedure TF_1.B_ZeigePunkteClick(Sender: TObject);
  begin

  Hintergrund := HGPunkte;
  PB_Oberflaeche.Repaint;
  {egal ob ich hier nur den Repaint auslöse oder vorher die Zuweisung mach, es kommt ein Bild raus, das die Linien von HGSpannbaum enthält}
  end;