[FMX] Splitter in einem bestimmten Bereich verschieben

[RWarnecke]

Hallo zusammen,

ich habe den Splitter in dem Beispiel Programm dazu gebracht, dass er nur in einem bestimmten Bereich zu verschieben ist. Das funktioniert auch soweit sehr gut.

Jetzt stellt sich mir nur die Frage, wie ich den Splitter dazu bewege auf der Endposition zu bleiben, auch dann, wenn die Maus noch weiter nach rechts geht ?

Die zweite Frage wäre noch, das nur das OnMouseMove-Ergeignis ausgeführt wird, wenn die linke Maustaste gedrückt ist ?

Ich habe das Projekt unter Delphi XE4 erstellt.

[RWarnecke]

Hat denn keiner eine Idee, wie ich das Verschieben des Splitters in einem bestimmten Bereich noch verbessern kann ?

[stahli]

Oh, ich kann Dein Formular mit XE3 gar nicht öffnen. Da ist offenbar noch einiges geschraubt worden.

Für die erste Frage kannst Du vielleicht TSplitter überschreiben und Grenzwerte für X+Y festlegen.
Die sind natürlich evtl. etwas schwierig zu ermitteln.
Alternativ könntest Du eine Ereignisbehandlung OnIsSplitterInRange ausführen und wenn False zurückgeliefert wird Veränderungen verweigern.

Delphi-Quellcode:

procedure TSplitter.MouseMove(Shift: TShiftState; X, Y: Single);
var
  NewSize, Split: Single;
  RangeResult: Boolean;
begin
  inherited;
  if FPressed and Assigned(FControl) then
  begin
// X und Y "korrigieren"
// if Assigned(fOnIsSplitterInRange) then
// begin
//   fOnIsSplitterInRange(Self, RangeResult);
//   if not RangeResult then Exit;
// end; ... irgendwie sowas
    CalcSplitSize(X, Y, NewSize, Split);
    if DoCanResize(NewSize) then
    begin
      FNewSize := NewSize;
      FSplit := Split;
      UpdateControlSize;
    end;
  end;
end;

Constraints für Deine Panels gibt es noch nicht - oder?
Evtl. deren Breite immer wieder auf einen Maximalwert setzen?

So ganz verstehe ich Deine Fragen aber noch nicht. Kann morgen Abend das mal unter XE3 nachbauen...

[Volker Z.]

Hallo,

ich würde mal die Eventhandler Splitter1MouseLeave und Splitter1MouseMove löschen, und es mit

Delphi-Quellcode:

procedure TForm1.Panel2Resize(Sender: TObject);
begin
  if Panel2.Width > LeftClientWidth then
    Panel2.Width := LeftClientWidth
end;

versuchen

Gruß

[RWarnecke]

Hallo Andre,

danke erstmal für Deine Antwort.

Zitat von stahli:

Für die erste Frage kannst Du vielleicht TSplitter überschreiben und Grenzwerte für X+Y festlegen.
Die sind natürlich evtl. etwas schwierig zu ermitteln.

Die X und Y Werte ist nur die Position der Maus innerhalb des Splitters.

Zitat von stahli:

Alternativ könntest Du eine Ereignisbehandlung OnIsSplitterInRange ausführen und wenn False zurückgeliefert wird Veränderungen verweigern.

Das habe ich ja schon mit meinen beiden Procedure's erreicht.

Zitat von stahli:

Constraints für Deine Panels gibt es noch nicht - oder?

Nein, ein Contraints gibt es für keine Komponente.

Ich habe mal eine EXE angehängt, die mein Problem vielleicht etwas verdeutlicht.

[RWarnecke]

Hallo Volker,

danke für Deinen Tipp. Ich habe das ganze mal ausprobiert und Dein Ansatz war völlig richtig. Hier mein Endergebnis :

Delphi-Quellcode:

var
  HalfClientWidth : Single;
  LeftClientWidth : Single;

procedure TForm1.FormResize(Sender: TObject);
begin
  HalfClientWidth := Round(self.ClientWidth / 2);
  LeftClientWidth := 300;
end;

procedure TForm1.Panel2Resize(Sender: TObject);
begin
  if LeftClientWidth > Panel2.Width then
    Panel2.Width := LeftClientWidth
  else
    if Panel2.Width > HalfClientWidth then
      Panel2.Width := HalfClientWidth - Splitter1.Width;
end;

Nun kann ich das Panel2 in der Breite nicht kleiner als 300 Pixel machen und das Panel 3 nicht kleiner als die Hälfte der Breite vom Fenster. Ich habe auch jetzt nichtmehr das Zittern des Splitters, wenn ich über die Grenze des Bereiches gehe. Damit bin ich wieder einen Schritt weiter.

Edit:
Ich habe auch einen entsprechenden Eintrag in meine Code-Orakel Online Datenbank gemacht.

[Volker Z.]

Hallo,

ich würde eher auf etwas in dieser Richtung setzen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  // kannst Du natürlich auch im Objectinspector setzen
  Splitter1.MinSize := 300;
  Panel2.Width      := Splitter1.MinSize
end;

procedure TForm1.FormResize(Sender: TObject);
var
  w : Integer;
begin
  w := Round (ClientWidth / 2);
  if w <= Splitter1.MinSize then
    Panel2.Width := Splitter1.MinSize
  else
    Panel2.Width := w
end;

procedure TForm1.Panel2Resize(Sender: TObject);
var
  w : Integer;
begin
   w := Round (ClientWidth / 2);
   if Panel2.Width > w then
     Panel2.Width := Splitter1.MinSize + w - Splitter1.MinSize
end;

procedure TForm1.FormCreate(Sender: TObject);

Denn das funktioniert auch noch nach einer Größenänderung des Fensters.

Gruß

[stahli]

Ok, schön wenn es jetzt passt.

Bei meiner Lösung (innerhalb von TSplitter) hätte man noch mit ClientToParent arbeiten müssen.
Aber das wäre schon sehr umständlich geworden (mindestens ).

[RWarnecke]

Danke für Deinen Vorschlag Volker, aber der hat einen Nachteil. Bei jeder Größenänderung des Fensters springt der Splitter immer in die Mitte des Fensters. Dieses finde ich einen unschönen Effekt. Bei meiner Version bleibt der Splitter an der Stelle, wo ich ihn zuletzt abgesetzt habe.

So wäre es jetzt aus meiner Sicht perfekt :

Delphi-Quellcode:

var
  HalfClientWidth : Single;
  LeftClientWidth : Single;

procedure TForm1.FormResize(Sender: TObject);
begin
  HalfClientWidth := Round(self.ClientWidth / 2);
  LeftClientWidth := 300;
  Panel2Resize(nil);
end;

procedure TForm1.Panel2Resize(Sender: TObject);
begin
  if LeftClientWidth > Panel2.Width then
    Panel2.Width := LeftClientWidth
  else
    if Panel2.Width > HalfClientWidth then
      Panel2.Width := HalfClientWidth - Splitter1.Width;
end;

Bei dieser Version bleibt der Splitter immer an der gleichen Position stehen, wenn der Splitter innerhalb des Bereichs ist. Wenn der Splitter beim Verändern der Größe außerhalb des Bereichs ist, dann springt er immer in die Mitte des Fensters.

[Volker Z.]

Hallo,

Zitat:

[...] Bei jeder Größenänderung des Fensters springt der Splitter immer in die Mitte des Fensters. Dieses finde ich einen unschönen Effekt. [...]

Sorry, da habe ich dann wohl zu viel hineininterpretiert.

Bei Deiner Lösung scheppert es aber mit einem Stackoverflow. Ich meine es müsste heißen:
if LeftClientWidth >= Panel2.Width then

Gruß