Ausgabe der Makierung im StringGrid

[Real_Thunder]

Ne, ich habe mir den Quelltext angesehen, und so ein völliger Volldepp bin ich a auch nicht

Delphi-Quellcode:

procedure SelectRow(sg: TStringGrid; index: Integer);   // procedurstart
begin 
  with sg do 
    if goRowSelect in Options  // wenn in den Optionen goRowSelect = true ist (ganze Zeile makieren)

      then Row := index        // Der Makierte Row ist der Zeilenindex
      else Selection := TGridRect(Rect(FixedCols, index, Pred(ColCount), index));  
      // sonst Makiere alle spalten in der Zeile
end; 

procedure TDemoForm.ButtonClick(Sender: TObject);  // Prozedurufruf über Button
begin 
  SelectRow(StringGrid, 2); 
end;

Ich hoffe nu Glaubst mir