Hallo,
beim Klick in eine Tabelle wird der OnChangeSelection-Event gefeuert, ich kann dann bestimmen in welcher Zeile / Spalte ich mich befinde.
Beim Ändern der Cursorposition mit den Cursortasten gibt es keinen OnChangeSelection-Event?
Ist das mit einer der WPRichText-Propertys änderbar?
Ciao
Stefan
OnChangeSelection wird mit Absicht verzögert (on idle) nach dem Ändern der Textauswahl getriggert.
Die Demo "P) Premium\TextBox" - ich hatte Ihnen diese auch per mail am 6.6. per e-mail zugeschickt - verwendet allerdings ChangeCursorPos. Diese demo bindet nicht nur Textboxen in header ein, sie implementiert auch das dynamische hervorheben der aktuellen Tabellenzeile.
Damit kann also die Tabellenzeile hervorgehoben werden ohne den Text zu verändern. Ich habe so das Gefühl, dass Sie genau das wollen.
Danke, das geht genau in die richtige Richtung!
Ciao
Stefan
Damit sollte es ganz oben sein
textobj.RelY := -WPRichText1.Header.MarginHeader;
Vielen Dank, funktioniert!
Einen letzten Wunsch hätte ich noch:
Im Textbox-Beispiel muss man doppelt klicken damit man die Textbox editieren kann.
Den relevanten Code habe ich schon ins OnClick verlegt, aber es ist immer noch so dass man erst mal auf die Textbox klicken muss, dann erscheint die Umrandung mit den Anfassern und erst bei einem erneuten Klick geht es zu editieren.
Ich hätte am liebsten, dass beim ersten Muusedown auf die Textbox der gepunktete Rahmen und der Editmodus erscheint.
Ist das machbar?
Ciao
Stefan
Mit dem event OnTextObjectMouseUp kann man das machen.
procedure TForm5.WPRichText1TextObjectMouseUp(Sender: TWPCustomRtfEdit;
pobj: TWPTextObj; obj: TWPObject; Button: TMouseButton; Shift: TShiftState; X,
Y: Integer);
begin
if (obj<>nil) and (obj.GetRTFDataBlock<>Sender.ActiveText) then
begin
obj.Edit;
end;
end;Oder wpObjectSelection in der property EditOptions deaktivieren.
Vielen herzlichen Dank!
Ciao
Stefan