TStringGrid, künstlichen Scrollbalken erzeugen

[pjensen]

Hallo,


ich lese 2 verschiedene Dateien mit jeweils 6 Daten-Zeilen nacheinander in ein Stringgrid wie folgt ein:

Zeile 1...6: Datei 1.
Zeile 7 + 8: leer
Zeile 9...14: Datei 2
Zeile 15: Leer
Zeile 16: Ergebniszeile.

Soweit funktioniert das. Wenn ich auf Zeile 1 bin, wird Zeile 1 mit Zeile 9 verglichen und das Ergebnis wird in Zeile 16 eingetragen (oder wenn ich auf Zeile 2 bin, wird Zeile 2 mit Zeile 10 verglichen und das Ergebnis wird in Zeile 16 eingetragen, usw.).

Options.goRowSelect = True.
Ich habe eine blauen Scroll-Balken der jeweils ausgewählten Zeile.


Im OnAfterSelection-Event
- begrenze das Scrollen auf die ersten 6 Zeilen.
- berechen ich die Ergebnis und trage es in Zeile 16 ein.

Meine Frage: Wie erstelle ich einen zweiten Scrollbalken?

Wenn der Originlal-Scrollbalken auf Zeile 1 steht, soll ein zweiter Scroll-Balken auf Zeile 9 stehen.
Wenn der Originlal-Scrollbalken auf Zeile 2 steht, soll ein zweiter Scroll-Balken auf Zeile 10 stehen.
usw.


Gruß,
Peter

[Winni]

Hi!

Rechnest Du viel mit den Daten oder sind die mehr readonly?

Im zweiten Fall würde ich einfach zwei StringGrids nehmen.

Winni

[pjensen]

Das Rechnen ist eigentlich trivial, nur die 4 Grundrechenarten.
2 Grids ginge natürlich auch, aber da müsste ich dann den Scrollbalken des 2.ten Grids mit dem Scrollbalken des ersten grids mitführen.

Ist es so kompliziert, einen künstlichen "Scrollbalken" zu erzeugen? Ich denke, dass es eher einfach ist und ich nur nicht drauf komme...

Gruß,
Peter

[Sieben]

Schau dir mal TCustomGrid.DrawRow und TCustomDrawGrid.DrawFocusRect an, so ganz trivial ist das nicht. Da scheint es mir weit einfacher, zwei Grids zu synchronisieren.

Edith meint, vielleicht könntest du auch OnPrepareCanvas wie hier beschrieben nutzen, um zB die Schrift oder den Hintergund der Zellen in der zweiten hervorzuhebenden Zeile einzufärben. Ob das dann aber so aussieht, wie du dir das vorstellst...?

[wp_xyz]

Options.goRowSelect = True.
Ich habe eine blauen Scroll-Balken der jeweils ausgewählten Zeile.

Scroll-Balken? Solche Wörter tragen zur Verwirrung bei: Scrollbalken (= Scrollbar) ist für mich der Balken rechts und/oder unten mit dem Greifer, so dass man durch eine lange/breite Tabelle scrollen kann.
Was du mit goRowSelect einstellst, ist die Markierung der Zeile mit dem aktuellen Cursor.

Wenn du den RangeSelectMode des Grid auf rsmMulti stellst (und die Option goRowSelect aktiv hast), dann kannst du mit CTRL+Click mehrere Zeilen zusätzlich markieren. Geht aber, wenn ich mich recht erinnere, nur mit der Maus.

Wenn du die Zeilen ohne Maus, nur per Code, hervorheben willst, dann nimm das OnPrepareCanvas-Event. Das wird kurz vor der Ausgabe einer Zelle aufgerufen, und du kannst der Paint-Routine hier noch andere Zeichenparameter unterjubeln.

[pjensen]

Stimmt, Scroll-Balken/Bar ist verwirrend.

Wenn z.B. alle Zellen in Zeile 1 higlighted sind, dann sollen alle Zellen in Zeile 9 auch highlighted sein.
Oder wenn alle Zellen in Zeile 2 higlighted sind, dann sollen alle Zellen in Zeile 10 auch highlighted sein.

Ich versuche das seit geraumer Zeit im OnPrepareCanvas-Event hinzubekommen. Irgendwie stehe ich auf dem Schlauch...

...

[fliegermichl]

Ich hab das grad mal durchgespielt. Die Selections lassen sich tatsächlich nicht per Code anpassen.

Man kann Selections zwar abfragen aber nicht verändern.

[pjensen]

Geht nicht so einfach. Aha!!

Habs jetzt eben mal mit 2 Grids ausprobiert. Die Lösung ist lächerlich einfach:

Im OnAfterSelection bei Grid1 einfach:
SGrid2.row:=Sgrid1.Row;

Und vice versa im Grid2.

Funktioniert auf Anhieb!

Danke Euch Allen!!

Gruß,
Peter

[Sieben]

Mit PrepareCanvas ginge ganz grob zB so:

Code: Alles auswählen

procedure TfrmMain.StringGrid1PrepareCanvas(Sender: TObject; aCol, aRow: Integer; aState: TGridDrawState);
begin
  if (aRow = StringGrid1.Row + FRowOffset) and (aCol >= StringGrid1.FixedCols) then
    StringGrid1.Canvas.Brush.Color := clHighLight;
end; 

procedure TfrmMain.StringGrid1AfterSelection(Sender: TObject; aCol, aRow: Integer);
begin
  StringGrid1.Invalidate;
end;

wobei FRowOffset der gewünschte Abstand der beiden Zeilen wäre. Und es sieht sogar 'richtig' aus...

[fliegermichl]

Ja EINE Zeile selektieren geht per Code und auch mehrere, da man per Selection ein Rectangle übergeben kann.

Was nicht per Code geht ist, Zeile 1 und Zeile 10 zu selektieren. Mit der Maus geht es.

Edit: Man kann sich eine abgeleitete Klasse definieren und die Methode AddSelection public machen.

[wp_xyz]

Auch wenn du eine Lösung mit zwei Grids gefunden hast, will ich auf deine ursprüngliche Anfrage mit zwei Markierungsbalken im selben Grid zurückkommen, weil du mit dem OnPrepareCanvas-Event nicht klargekommen bist. Im Anhang findest du dazu eine Lösung.

[pjensen]

Hallo,

Programm läuft jetzt mit 2 Stringgrids, alles OK.

@wp_xyz
Vielen Dank für das Beispiel. Jetzt hab ich das verstanden...

Wofür ist das StringGrid1.Invalidate; in "StringGrid1Selection"?
Habe es auskommentiert: Keine Änderung erkennbar.

Gruß,
Peter

[Sieben]

Das kommt immer ein bisschen auf das OS bzw das Widgetset an - mit Gtk2 hat's das bei mir gebraucht, mit zB Windows evendöll nicht.

[wp_xyz]

Wofür ist das StringGrid1.Invalidate; in "StringGrid1Selection"?
Habe es auskommentiert: Keine Änderung erkennbar.

StringGrid.Invalidate ist ähnlich wie Repaint und bewirkt ein Neuzeichnen des Grid, allerdings nicht sofort, sondern es wird der Befehl zum Neuzeichnen in der Warteschlange abgelegt. Hat den Vorteil, dass wenn mehrere solche Aufforderungen nacheinander durchgeführt werden sollen, dies nur einmal ausgeführt wird.

Du hast recht: eigentlich kann man auf das Invalidate hier verzichten. Ich habe aber gesehen, dass wenn ich in einer Zeile die Maus längere Zeit gedrückt habe, die entsprechende Zeile in dem anderen Block nicht sofort aktualisiert wird, was ich irritierend fand. Ist zumindest bei Windows so.