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:

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;

[Mr. Pink]

jo, danke, funktioniert gut, allerdings möchte ich, dass sobald man eine rot gefärbte zelle selektiert, diese wieder weiß wird.

hbs so versucht, geht aber nicht:

Delphi-Quellcode:

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 drawgrid1.Canvas.Brush.Color:=clred;
 if feld[acol,arow] then
 begin
  drawGrid1.Canvas.FillRect(Rect);
  feld[acol,arow]:=false;
 end;
 if gdselected in state then
 begin
  if feld[acol,arow] then
  begin
   feld[acol,arow]:=false;
   drawgrid1.Canvas.Brush.Color:=clwhite;
   drawgrid1.Canvas.FillRect(rect);
  end
  else
  begin
   feld[acol,arow]:=true;
   drawgrid1.Canvas.Brush.Color:=clred;
   drawgrid1.Canvas.FillRect(rect);
  end;
 end;
end;

wieso läuft das nicht? nur von rot nach weiß geht nicht, das andere schon! :wall:

thx, mr. pink

[Der_Unwissende]

Nun ja, schau dir doch mal an, was du für If ... Anweisungen hast. Da dieses Forum etwas eigenes Bemühen vorraussetzt, kann das hier ja ruhig mal gefordert werden.
Ist kein großer Fehler, aber wenn du ihn selbst findest ist das Gelernte um so vorteilhafter für dich.

Am leichtesten ist es, wenn du einfach mal dokumentierst, was du genau mit welcher Abfrage testen möchtest und natürlich auch, welchen Status die Felder danach haben.

Der Unwissende

[Mr. Pink]

omg, klar jetzt hab ichs.

wollt grade schreiben, dass ich immer noch nich weiter weiß und alles, da isses mir aufgefallen, mann, mann, mann...

aslo jetzt funktioiert alles, hab

Delphi-Quellcode:

 feld[acol,arow]:=false;

entfernt, und es abreitet endlich wie ichs wollte!

danke für deine umfangreichen postings/hilfen Unwissender..

[Der_Unwissende]

Ach, nicht dafür!
Freu mich wenn ich mal helfen kann