Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Schachbrettmuster im Array

    Delphi
    by Sharky, 15. Mai 2005
  Hai Chimaira,
  
  Odd() gibt True zurück wenn die übergebene Zahl undgerade ist (x mod 2 <> 0) ;-)
• Forum: Multimedia

  Re: Schachbrettmuster im Array

    Delphi
    by Sharky, 15. Mai 2005
  *g* Ist mir eben auch aufgefallen ;-)
  
  
  procedure TForm1.spielfeldDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
  begin
  if Odd (Acol) XOR (Odd (ARow)) then
  begin
  spielfeld.Canvas.Brush.Color := clBlack;
  end;
• Forum: Multimedia

  Re: Schachbrettmuster im Array

    Delphi
    by Sharky, 15. Mai 2005
  Hai,
  
  wenn es "nur" um das Schachbrettmuster in dem TStringGrid geht würde ich das ganz einfach so machen:
  
  procedure TForm1.spielfeldDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
  begin
  if Odd(ACol) and not Odd(ARow) then
  begin
  spielfeld.Canvas.Brush.Color := clBlack;