Zelle in DrawGrid dauerhaft einfärben

[hedie]

Hallo zusammen

Ich möchte ein "zeichnungstool" für kleine Grafiken erstellen.
Dazu müssen die Pixel recht gross sein.

Deshalb wollte ich dazu ein DrawGrid nehmen.

Um das Pixel bzw. die Zelle zu markieren, habe ich bisher folgenden Code:

Delphi-Quellcode:

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (gdSelected in State) then begin

    DrawGrid1.Canvas.Brush.Color := clBlue;
    DrawGrid1.Canvas.FillRect(Rect);


  end;

Die macht mir die Zelle auch blau, leider bleibt diese aber nicht blau, sobald ich eine andere Zelle anklicke.
Kann mir jemand sagen, wie ich dies erreiche, dass die Zelle markiert bleibt?

Später möchte ich dann zelle um zelle durchgehen um zu sehen welche pixel 1 sind und welche 0.

Danke schonmal

[Helmi]

Hallo,

ich hatte mal so was ähnliches gemacht (war aber ein StringGrid)
(ich schalte zwar nur zwischen zwei Farben um, aber das Prinzip sollte sichtbar sein)

Im MouseDown hab ich die Farbe selektiert und als Object in die Zelle geschrieben

Delphi-Quellcode:

procedure TForm3.StringGridMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  ACol  : Integer;
  ARow  : Integer;
  Farbe : TColor;

begin
  StringGrid.MouseToCell(X, Y, ACol, ARow);

  Farbe := Integer(StringGrid.Objects[ACol, ARow]);

  If Farbe = SelectColor then
    Farbe := StandardColor
  else
    Farbe := SelectColor;

  StringGrid.Objects[ACol, ARow] := Pointer(Farbe);
end;

und in DrawCell der Zelle zugewiesen

Delphi-Quellcode:

procedure TForm3.StringGridDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  If gdFixed in State then
    exit;

  Rect.Left := Rect.Left - 4;

  StringGrid.Canvas.Brush.Color := Integer(StringGrid.Objects[aCol, ARow]);
  StringGrid.Canvas.FillRect(Rect);
end;

[hedie]

Vielen Dank

Hat bestens geklappt

[Sir Rufo]

Sehr gruselig dieser Ansatz.

Man erstellt sich eine Datenklasse und speichert dort die Informationen. Und weil diese Datenklasse ja eine Grafik darstellt spendiert man der auch noch so lustige Methoden wie FromBitmap und ToBitmap oder sogar besser per Assign (ableiten von TPersistent ).

[Helmi]

Zitat von Sir Rufo:

Sehr gruselig dieser Ansatz.

Mit welcher Erklärung?

[Sir Rufo]

Zitat von Helmi:

Zitat von Sir Rufo:

Sehr gruselig dieser Ansatz.

Mit welcher Erklärung?

• Fehlende Trennung von Anzeige und Daten
• Missbrauch von TObject
• ...

[Helmi]

warum einfach wenn´s auch kompliziert geht...

Um eine Diskussion vorzubeugen: es gibt immer mehrere Wege zur Lösung

[Sir Rufo]

Es gibt eben immer mehr schlechte und falsche Wege als gute und richtige

[Helmi]

Zitat von Sir Rufo:

Es gibt eben immer mehr schlechte und falsche Wege als gute und richtige

bislang hab ich nur Mängel an meiner Lösung gelesen, aber noch keine "gute und richtige" Lösung gesehen

[Sir Rufo]

Zitat von Helmi:

Zitat von Sir Rufo:

Es gibt eben immer mehr schlechte und falsche Wege als gute und richtige

bislang hab ich nur Mängel an meiner Lösung gelesen, aber noch keine "gute und richtige" Lösung gesehen

Deine Lösung kann mit einem simplen Array schon verbessert werden. Muss man das jetzt explizit aufschreiben?

Runder wird das mit einer Klasse, wo man noch ein paar Hilfsmethoden dranbaut um aus dem Farbarray ein Bitmap zu bauen.

Das Konzept hatte ich ja schon skizziert