Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: Verknüpfung StringGrid

   
    by shmia, 27. Sep 2010
  procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
  var
  ZellenText : string;
  begin
  if State = then // NICHT Selected, Focused oder Fixed
  begin
  // erstmal aktuelle Zelle auslesen
  ZellenText := TStringGrid(Sender).Cells;
  with TStringGrid(Sender).Canvas do begin
• Forum: Object-Pascal / Delphi-Language

  AW: Verknüpfung StringGrid

   
    by shmia, 27. Sep 2010
  Du musst auch den Parameter State beachten:
  procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
  begin
  if State = then // NICHT Selected, Focused oder Fixed
  with TStringGrid(Sender).Canvas do begin
  if (ACol=1) and (ARow=1) then begin // <=======
  Brush.Color:= clRed;
  FillRect(Rect);
  end;