Vernünftiges resitzverhalten ala Winamp

[EWeiss]

Hallo
Ich möchte ein vernünftiges Resitzverhalten wie bei Winamp realisieren.
Also stepweise.
Je nach richtung x,y + 20 Pixel.

So sieht es im moment aus..

Delphi-Quellcode:

procedure Tfrm_Gen.picFormResizeMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: integer);
begin
  if FormFlag = False then
  begin
    FX := picFormResize.Left + (picFormResize.Width div 2);
    FY := picFormResize.Top + (picFormResize.Height div 2);
    AX := x;
    AY := y;
    FormFlag := True;
    FormFirst := True;
  end;
end;

Delphi-Quellcode:

procedure Tfrm_Gen.picFormResizeMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: integer);
var
  posW:  Dword;
  posH:  Dword;
  formW: Dword;
  formH: Dword;
begin

  if FormFlag = True then
  begin

    // Maus in picFormResize einfangen.
    MouseTrap(picFormResize, x, y);

    if FormFirst = True then
    begin
      posW := (FX + x) - x;
    end else
      posW := (FX + x) - AX;

    if FormFirst = True then
    begin
      posH := (FY + y) - y;
    end else
      posH := (FY + y) - AY;

    if posW < 261 then
      posW := 261;

    if posH < 99 then
      posH := 99;
    if FormFirst = True then
    begin
      FX := FX;
    end else
      FX := posW;

    if FormFirst = True then
    begin
      FY := FY;
    end else
      FY := posH;

    if FormFirst = False then
    begin
      picFormResize.Left := FX;
      picFormResize.Top := FY;
      formW := FX+14;
      formH := FY+14;
      frm_Gen.Width := formW;
      frm_Gen.Height := formH;
    end;
    // Maus wieder freigeben
    MouseTrap_Release;
    FormFirst := False;
  end;
end;

Delphi-Quellcode:

procedure Tfrm_Gen.picFormResizeMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: integer);
begin
  FormFlag := False;

end;

Delphi-Quellcode:

procedure Tfrm_Gen.MouseTrap(Sender: TObject; X, Y: integer);
var
  R:     TRECT;
  Image: TImage;
begin
  Image := (Sender as TImage);
  // Image-Koordinaten in Bildschirmkoordinaten umrechnen
  R     := Image.ClientRect;
  with Image.ClientOrigin do
    OffsetRect(R, X, Y);
  // Bewegung des Mauszeigers einschränken 
  ClipCursor(@R);

end;

Delphi-Quellcode:

procedure Tfrm_Gen.MouseTrap_Release;
begin
  ClipCursor(nil);
end;

Egal wo ich die 20 pixel addiere das resitzverhalten entspricht nicht dem von Winamp...
Wäre schön wenn jemand eine besser lösung kennen würde.

gruss Emil

[Aike]

Bin grade ein bisschen faul, jetzt noch über Code nachzudenken, aber ich stelle mir das so vor:

Du hast deine Form und vergrößerst, sagen wir mal ... in der Vertikalen nach unten. Dann speicherst du erstmal den y-Wert. Sobald die Maus 20 Pixel weiter unten/ob ist, lässt du dann ein Resize zu.

So würd's ich machen

[EWeiss]

Zitat von Aike:

Bin grade ein bisschen faul, jetzt noch über Code nachzudenken, aber ich stelle mir das so vor:

Du hast deine Form und vergrößerst, sagen wir mal ... in der Vertikalen nach unten. Dann speicherst du erstmal den y-Wert. Sobald die Maus 20 Pixel weiter unten/ob ist, lässt du dann ein Resize zu.

So würd's ich machen

Ist zwar schon alt aber gelößt habe ic hes immer noch nicht

Naja ganz so einfach ist das ja auch nicht.
Du mußt 3 Punkte dabei berücksichtigen.

x oder y und 'x plus y'

gruss Emil

[gothic_mike]

Hi,

viell. so irgendwie in der richtung:

Delphi-Quellcode:

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean);
begin
  if NewHeight > OldH then
    NewHeight := OldH + 20;

  if NewHeight < OldH then
    NewHeight := OldH - 20;

  if NewWidth > OldW then
    NewWidth := OldW + 20;

  if NewWidth < OldW then
    NewWidth := OldW - 20;


  OldW := NewWidth;
  OldH := NewHeight;
  Resize := True;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  OldH := Height;
  OldW := Width;
end;

des macht zwar nicht 100% des, was es soll, aber irgendwie is des schon in die richtung...
muss halt noch etwas verbessert werden.