Hallo,

nachdem ich vieles probiert und ebenso gesucht habe brauche ich eure Hilfe.

In einem StringGrid, verwende das von den JEDIs (TJvStringGrid), soll beim MouseOver (MouseUp würde auch gehen)
die Spalte wie auch die Reihe bis einschließlich zum Cursor markiert werden.

Um das besser zu verdeutlichen habe ich ein Bild erstellt das zeigt wie es aussehen soll.

Bitte um Tipps...

Danke, Axel

Und was ist geanu Dein Problem? Die Ermittlung oder das Einfärben.

Zitat von mkinzler:

Und was ist geanu Dein Problem? Die Ermittlung oder das Einfärben.

Hallo,

die Ermittlung (zum Teil) sowie das Einfärben.
Ich schaffe es nur waagerecht oder senkrecht bis zur Cursorposition einzufärben aber nicht beide zugleich.

Axel

Zitat von axellang:

Ich schaffe es nur waagerecht oder senkrecht bis zur Cursorposition einzufärben aber nicht beide zugleich.

Zeig doch einfach mal, was du bislang hast. Wie gehst du das an?

Hallo,

zB. senkrecht markieren in MouseMove.
Aber wie gesagt, beide krieg ich nicht hin.

//TEST

zusammenfalten · markieren

Delphi-Quellcode:

procedure TfrmKeyCard.SGMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  GR : TGridRect;
  aCol, aRow : LongInt;
begin
  (* Returns the column and row of the cell at the
     position with screen coordinates (X,Y) *)
  SG.MouseToCell(X,Y,aCol,aRow);
  if (aCol = 0) or (aRow = 0) then
    Exit;

 // Grid Select
 GR.Left := aCol;
 GR.Top := 1;
 GR.Right := aCol;
 GR.Bottom := aRow;
 SG.Selection := GR;

end;

Axel

Stimmt, mit dieser Methode kriegst du immer nur ein Rechteck selektiert, da das Property Selection dabei überschrieben wird.

Weil ich das als interessante Herausforderung empfinde, werde ich da gleich mal ein wenig herumprobieren.