Stringgrid selection Problem !

[Mirilin]

Richard


Hab mal ein Bildchen angehängt. Willst Du sowas in der Art?


mfg Tobias

[richard_boderich]

halli Miri! :


ja, ja, jaaaaaaaaaaa , genau so will ich das haben

wie haste das gemacht ?????


Ps: kannste mir vielleicht ma dein testproject schicken, von dem du denn screenshot gemacht hast,
das sieht ziemlich nuetzlich aus mit den cellpositionen

[Mirilin]

Es ist eben noch nicht so perfekt
Ich poste Dir den Code wenns besser läuft. Ok?


mfg Tobias

[sakura]

@richard_boderich

Na ja, den kleinen Bug in meiner Lösung hättest Du ja auch selbst entfernen können

Einfach mal die Methode CellInRange austauschen.

Delphi-Quellcode:

function TForm1.CellInRange(aGrid: TCustomDrawGrid; aCol, aRow: Integer 
    ): Boolean;
var
  Dummy, StartPoint, EndPoint: TGridCoord;
begin
  Result := False;

  StartPoint.X := aGrid.Col;
  StartPoint.Y := aGrid.Row;

  if aGrid.Selection.Left <> StartPoint.X then
    EndPoint.X := aGrid.Selection.Left
  else
    EndPoint.X := aGrid.Selection.Right;
  if aGrid.Selection.Top <> StartPoint.Y then
    EndPoint.Y := aGrid.Selection.Top
  else
    EndPoint.Y := aGrid.Selection.Bottom;

  if StartPoint.Y > EndPoint.Y then
  begin
    Dummy := StartPoint;
    StartPoint := EndPoint;
    EndPoint := Dummy;
  end;

  if aRow < StartPoint.Y then
    Exit;
  if aRow = StartPoint.Y then
    if aCol < StartPoint.X then
      Exit;

  if aRow > EndPoint.Y then
    Exit;
  if aRow = EndPoint.Y then
    if aCol > EndPoint.X then
      Exit;

  Result := True;
end;

......

[richard_boderich]

hi miri,

ja, ok machma so. ist deine loesung sauber programmiert, oder sind da irgentwelche dirty tricks drin ??

gib mir mal n ansatz, dann kann ich selber proggen, weil komme ohne das nich weiter

[sakura]

Und meine Lösung Die ist jetzt doch sauber und sollte gehen

......

[Mirilin]

Richard,

Nimm Sakuras Variante, er hat etwa das selbe gemacht wie ich und es funktioniert.

mfg Tobias

[Edit] nachdem ich meine Source gelöscht habe funktioniert dein Code auch nicht mehr ^^ [/Edit]

[richard_boderich]

hallo sakura,

hab grad nochmal deinen neuen code getestet, funktioniert auch nicht !!!
haste das aus dem gedaechtnis geschrieben oder getestet ? wenn du es
getestet hast, dann hast mein problem nich verstanden, aber ich
danken trotzdem für deine hilfe

[sakura]

Zitat von richard_boderich:

hab grad nochmal deinen neuen code getestet, funktioniert auch nicht !!!
haste das aus dem gedaechtnis geschrieben oder getestet ?

Getestet.

Zitat von richard_boderich:

wenn du es getestet hast, dann hast mein problem nich verstanden,

Hm, Mirilin hat die gleiche Lösung gesucht - und sein ScreenShot zeigt das gleiche Ergebnis. Ich bin jetzt überfragt, was nicht stimmt.

Jetzt werden doch alle Felder von x1,y1 ... x2,y2 horizontal markiert. Was ist denn noch nicht so wie Du es erwartest

......

[sakura]

Okay, einen Fehler habe ich noch gefunden:

Code:

function TForm1.CellInRange(aGrid: TCustomDrawGrid; aCol, aRow: Integer 
    ): Boolean;
var
  Dummy, StartPoint, EndPoint: TGridCoord;
begin
  Result := False;

  StartPoint.X := aGrid.Col;
  StartPoint.Y := aGrid.Row;

  if aGrid.Selection.Left <> StartPoint.X then
    EndPoint.X := aGrid.Selection.Left
  else
    EndPoint.X := aGrid.Selection.Right;
  if aGrid.Selection.Top <> StartPoint.Y then
    EndPoint.Y := aGrid.Selection.Top
  else
    EndPoint.Y := aGrid.Selection.Bottom;

  [color=#f50000][s]if StartPoint.Y > EndPoint.Y then[/s]
  if
    (StartPoint.Y > EndPoint.Y) or
    ((StartPoint.Y = EndPoint.Y) and (StartPoint.X > EndPoint.X))
  then[/color]
  begin
    Dummy := StartPoint;
    StartPoint := EndPoint;
    EndPoint := Dummy;
  end;

  if aRow < StartPoint.Y then
    Exit;
  if aRow = StartPoint.Y then
    if aCol < StartPoint.X then
      Exit;

  if aRow > EndPoint.Y then
    Exit;
  if aRow = EndPoint.Y then
    if aCol > EndPoint.X then
      Exit;

  Result := True;
end;

......

P.S.: Wenn es das nicht ist, dann solltest Du noch einmal von Grund auf erklären was Du eigentlich willst