Also wir hatten heute Informatik...und er hat uns gesagt wie man die Farbe ändern kann...also habe ich das mal probiert...
Schwachsinn!
Delphi-Quellcode:
procedure TForm1.spielfeldMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if spielfeld.Canvas.Pixels[x,y]= clRed then
begin
spielfeld.Canvas.Brush.Color:= clBlack;
spielfeld.Canvas.FloodFill(x1,y1,clRed,FsSurface);
end;
if spielfeld.Canvas.Pixels[x,y]= clBlack then
begin
spielfeld.Canvas.Brush.Color:= clRed;
spielfeld.Canvas.FloodFill(x1,y1,clBlack,FsSurface);
end;
end;
So hat er es an die tafel angeschrieben..
Hat irgendjemand einen Vorschlag?