Delphi-Quellcode:
procedure TBrett.ZeichenFlaecheMouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
If RbNormal.Checked=True
Then Modus:=1 else
If RbWürfel.Checked=True
Then Modus:=2 else
If RbKreis.Checked=True
Then Modus:=3 else
Zeichenmodus:=1;
PosXX:=PosX;
PosYY:=PosY;
PosX:=X;
PosY:=Y;
Aktualisieren;
Senden;
end;
Sry hab den Abschnitt vercheckt zu posten.