Koordinaten-Umrechnung im Mousemove

skoschke

Hallo,

ich möchte ein, mit InsertMovableImage eingefügtes Bild im Mousemove des WPRichText verschieben.

Irgendwie bekomme ich die Koordinaten dafür nicht hin, z.B. :

Das Dokument hat 3 Seiten, ich sehe momentan Seite 2 die Seitenmitte...

imgobj ist das aktivierte TWPTextObj

Code

procedure TForm1.WPRichText1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  if imgobj <> nil then
  begin
    X := MulDiv(X, 1440, Screen.PixelsPerInch);
    Y := MulDiv(Y, 1440, Screen.PixelsPerInch);
    imgobj.RelX := X;
    imgobj.RelY := Y;
  end;
end;

Alles anzeigen

Das funktioniert, solange die erste Seite ganz oben angezeigt wird, ich vermute die Scrollposition muss ebenfalls noch eingerechnet werden, aber hier fehlt mir der richtige Ansatz...

Ciao

Stefan

wpsupport

Man kann die Objekte doch ganz regulär innerhalb von WPTools mit der Maus verschieben.

Das zu berechnen ist nicht so einfach, da man ja wissen müsste wo der Anfang der Seite ist. Code dafür befindet sich in wpctrmemo.pas

skoschke

Danke,

Objekt anklicken und dann verschieben ist ja nicht das Problem...

Ich beschreibe mal was ich vorhabe:

- Benutzer klickt einen Button um ein Bild einzufügen

- es wird ein InsertMovableImage auf der gerade sichtbaren Seite oben in der sichtbaren Ecke eingefügt (ggf. eben auch auf der gerade aktiven Seite 3)

- Benutzer bewegt nun die Maus und das Bild soll dem Mauszeiger folgen, bis er dann klickt, dann steht die Position fest.

Meine Probleme:

1) wie bekomme ich die Position auf der gerade angezeigten Seite?

2) wenn ich 1) weiß wie rechne ich die neue Position anhand der x,y im Mousemove um?

Ciao

Stefan

skoschke

Nach langem Probieren gibt es nun (falls jemand das auch braucht) die Lösung:

Code

private
    { Private-Deklarationen }
    imgobj: TWPTextObj;
...

procedure TForm1.Button2Click(Sender: TObject);
var
  obj: TWPTextObj;
begin
  //erzeugen eines verschiebbaren Bildes
  obj := WPRichText1.Memo.RTFData.TextObjects.InsertMovableImage
    (WPLoadObjectFromFile(WPRichText1.Memo.RTFData,
    'c:\tmp\test_transparent.png'));
  obj.Wrap := wpwrNone;
  // erst mal unsichtbar außerhalb Sichtbereich
  // wird im Mousemove dann sichtbar
  obj.RelX := -10000;
  obj.Rely := -10000;
  imgobj := obj;
end;

procedure TForm1.WPRichText1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var
  p: TPoint;
begin
  //das im InsertMovableImage gemerkte Objekt bewegen
  if imgobj <> nil then
  begin
    getcursorpos(p); // Mausposition
    p := WPRichText1.ScreenToClient(p); //bezogen auf das Richtext
    p.X := p.X + WPRichText1.LeftOffset; //Scrollbars berücksichtigen
    p.Y := p.Y + WPRichText1.topOffset;
    p.X := MulDiv(p.X, 1440, Screen.PixelsPerInch); //in Twips umrechnen
    p.Y := MulDiv(p.Y, 1440, Screen.PixelsPerInch);
    imgobj.RelX := p.X - imgobj.Width div 2; // mittig zum Cursor
    imgobj.Rely := p.Y - imgobj.Height;
    WPRichText1.ReformatAll(false, true);
  end;
end;

procedure TForm1.WPRichText1Click(Sender: TWPCustomRtfEdit;
  PageNo, X, Y: Integer; var Ignore: Boolean);
begin
  //Merker rücksetzen, schieben beendet 
  imgobj := nil;
end;

Alles anzeigen

Ein Problem dabei bleibt aber:

Nach dem Klick bleiben die Anfasser um das Bild erhalten und beim ersten Tastendruck ist es wieder weg!

Erst wenn man wieder irgendwie in den Text klickt wird das Bild dauerhaft und die Anfasser verschwinden.

Kann man dieses per Code bewerkstelligen?

Das Setzen von ActiveParagraph hat z.B. nichts bewirkt...

Ciao

Stefan

wpsupport

Aus dem Kontext schliesse ich, Sie wollen das gerade eingefügte Objekt selektieren, sodass es der User es gleich mit der Maus verschieben kann.

Das geht so:

Code

var obj : TWPObject;
begin
  obj := WPRichText1.InsertGraphic(
      'S:\info.png', false,
      [wpobjRelativeToPage]
      );
  if obj<>nil then
  begin
     WPRichText1.InsertedObj.Wrap := wpwrNone;
     WPRichText1.SelectedObject := WPRichText1.InsertedObj;
  end;
  WPRichText1.SetFocus;
end;

Alles anzeigen

PS.: Nach einem Button Klick muss man den Fokus erst wieder an das TWPRichText geben, daher das SetFocus.

skoschke

Nein, das Textobjekt wird erzeugt, ist dann automatisch selektiert (zeigt seinen Rahmen an) und folgt dann dem Mauszeiger einfach beim Bewegen der Maus.

Bei einem Klick dann wird diesem der Focus entzogen (HideSelection) und das Bild einfügen ist erledigt.

Um das nachzustellen reichen die oben gezeigten 3 Proceduren auf einem Formular, welches ein WPRichText enthält...

Ich habe nach langem Probieren die Lösung:

WPRichText.HideSelection

manchmal hat man eben Tomaten vor den Augen!

Ciao
Stefan