drawgrid: zelle einfärben

[Lannes]

Hallo,


Du möchtest, wenn eine Zelle selectiert wird, das diese dann rot eingefärbt wird und die Farbe dann auch bleibt,
wenn die Zelle nicht mehr selectiert ist.
Habe ich Dich richtig verstanden?

Zitat von Mr. Pink:

ich habs jetzt mit dem array, das in der OnDraw-procedure überprüft wird, funnktioniert gut, nur wird es leider nicht erkannt, wenn mehrere gleichzeitig durch ziehen markiert werden.
ich hab das mit OnSelectCell gemacht, geht das irgendwie anders, dass alle markierten zellen erfasst werden?

In OnSelectCell könntest Du den selectierten Bereich mit DrawGrid.Selection ermitteln, aber IMHO ist es einfacher das in OnDrawCell zu erledigen.
Wenn man mehrere Zellen durch Ziehen mit der Maus selectiert, wird für jede der Zellen OnDrawCell ausgelöst,
da kann man dann den Boolean-Wert entsprechend setzen.

Ein einfaches Beispiel mit einem 5 x 5 Zellen-Grid:

Delphi-Quellcode:

//...
var
  Form1: TForm1;
  GridSelArr : Array [0..4,0..4] of Boolean;

implementation

{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var c,r : Integer;
begin
  for c := 0 to 4 do
    for r := 0 to 4 do
      GridSelArr[c,r] := False;
  DrawGrid1.Selection := TGridRect(Rect(-1,-1,-1,-1));
end;

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
  Rect: TRect; State: TGridDrawState);

  procedure SetCellRed;
  begin
    DrawGrid1.Canvas.Brush.Color := clRed;
    DrawGrid1.Canvas.FillRect(Rect);
  end;

begin
  if GridSelArr[aCol,aRow] then
    SetCellRed
    else
      if gdSelected in State then
        begin
        GridSelArr[aCol,aRow] := True;
        SetCellRed;
        end;
end;