Grafik: Resize mit Fangecken

[gbl]

Hallo,

weis nicht recht wie ich mich ausdrücken soll: In der IDE gibt es ja die Möglichkeit, plazierte GUI Elemente zu verschieben und zu resizen. Eine solche Komponente suche ich.

Kennt jemand eine solche VCL/LCL?


LG
Günter

[MAC]

Also das kann man eigentlich Recht einfach,Objektorientiert handeln, da man nur ein Paar MouseEvents (MouseMove,...) dafür brauch...
Da die IDE aber selbst mit FreePascal geschrieben ist wird es bestimmt auch irgendwo in deren Quellcode zu finden sein...

[aldicek]

Hallo gbl!

Kann es sein, dass du eine Lösung suchst, Nachfahren von TWinControl so zu verschieben, dass sie z.B. aneinander oder an den Rändern deines Parentforms "anklicken" (ich kenne es als Magnetfunktion von einem der letzten WinAmp-Clients)?
Wenn ja, wäre ich an einer allgemeinen Lösung auch interessiert. ;o)

Gruß
Aldi

[gbl]

Hi,

ja so in etwa. Das Andocken an Magnetlinien wäre dann der Bonus. "Jeder" GUI Editor macht das eigentlich vor. Habe allerdings kein eigenes Example gefunden. Und so fit bin ich in diesem Bereich auch nicht. MS-Visio ist auch ein gutes Beispiel für meine Frage.

Vielleicht programmiert MAC ein Quick'n Dirty Example....


LG
Günter

[Scotty]

Ich benutze in meinem Spiel ein verschiebbares und größenveränderbares Panel. Vielleicht hilft dir das...
http://scrabble.svn.sourceforge.net/vie ... xt%2Fplain" onclick="window.open(this.href);return false;

[MAC]

Quick & Dirty kommt sofort

Also ich hab nur einmal den Grobaufbau gemacht.
Im Grunde fängt deine Komponente erstmal alle OnMouseDown on MouseMove und OnMouseUp events ab (es müsste auch nur mit onMouseMove über shift gehen, aber naja...). Das Beispiel UmgehungsFunktion_OnMouseMove zeigt dann wie du die Procedure doch weiter verwenden kannst...
Verschieben funktioniert in alle richtungen, kein Bounding check oder Gridcheck oder soetwas in der Art.
Es is möglich das Panel in die Breite zu vergrößern, verkleinern, wenn man 5 picel von rand entfernt klickt und dann verschiebt...
In die Höhe im momment nicht , ist aber analog dazu...
Zum starten brauchst du nur eine leere Form und ein OnFormCreate-Ereignis...

Code: Alles auswählen

unit Unit1; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,ExtCtrls;
 
type
 
  { TForm1 }
 
  TMyPanel = class;
 
  TForm1 = class(TForm)
   procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
   MyPanel:TMyPanel;
  end;
 
  { TMyPanel }
 
  TMyPanel = class(TPanel)
  private
  mpos:TPoint;
  run:boolean;
  procedure MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  procedure MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  procedure MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
  public
  UmgehungsFunktion_OnMouseMove:TMouseMoveEvent;
  constructor Create(TheOwner: TComponent); override;
  end;
 
var
  Form1: TForm1; 
 
implementation
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
begin
MyPanel := TMyPanel.Create(Form1);
MyPanel.Parent := Form1;
end;
 
{$R *.lfm}
 
{ TMyPanel }
 
procedure TMyPanel.MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
run := True;
mpos := Point(x,y);
 
end;
 
procedure TMyPanel.MouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
run := False;
end;
 
procedure TMyPanel.MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer
 );
begin
if not run then exit;
if x < 5 then
   begin
   Width := Width + mpos.x - x;
   Left:=Left - mpos.x + x;
   end
  else
   begin
   if x > Width-5 then
      begin
      Width := Width - mpos.x + x;
      mpos.x := x;
      end
     else
      begin
      Left:=Left - mpos.x + x;
      end;
   end;
Top := Top - mpos.y + y;
if assigned(UmgehungsFunktion_OnMouseMove) then UmgehungsFunktion_OnMouseMove(Sender,Shift,x,y);
end;
 
constructor TMyPanel.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
run := False;
UmgehungsFunktion_OnMouseMove := nil;
Self.OnMouseDown:= @MouseDown;
Self.OnMouseUp:= @MouseUp;
Self.OnMouseMove:= @MouseMove;
end;
 
end.