seltext in trichedit imitieren

[DrUArn]

Danke erst mal allen für die Ideen!

Habe für mich selbst noch keine Lösung gefunden - muß wohl noch etwas brüten!

Eigentlich wollte ich ja nur das Verhalten von Trichedit bei shift+ende (Markierung von selstart bis Zeilenende incl. Zeilenumbruch) ändern, so daß der Zeilenumbruch nicht mitmarkiert wird (wie in tmemo)- die Berechnugen dazu sind einfach - aber die Beeinflussung der key-Routinen nicht so.

Auch eine Änderung von key in vk_left und shift in [ssshift,ssctrl] (im trichedit wird dann bis zum Zeilenende OHNE Zeilenumbruch markiert) hilft nicht - dann wird nur Zeichenweise markiert.

Delphi-Quellcode:

  procedure keyup(var Key: Word; Shift: TShiftState);override;

procedure TRichEditTab_ua.keydown(var Key: Word; Shift: TShiftState);
begin
 case key of
 VK_END: if (shift=[ssshift]) then begin shift:=ssshift,ssctrl];key:=VK_RIGHT;end;
 end;
 inherited;
end;

Vielleicht darf man auf diese weise die Variablen nicht ändern - oder liegt's an shift - keine Variable?

MfG
Uwe

[Lannes]

hmmmm, man muss ja nicht alles verstehen

Zitat von DrUArn:

... Ich würde dieses Verhalten gerne genauso simulieren, kann mir aber keinen Algorithums vorstellen, ...

Zitat von DrUArn:

...Eigentlich wollte ich ja nur das Verhalten von Trichedit bei shift+ende (Markierung von selstart bis Zeilenende incl. Zeilenumbruch) ändern

was möchtest Du denn nun? nachbauen oder ändern?

So wird das letzte Zeichen wieder aus der Markierung herrausgenommen:

Delphi-Quellcode:

case key of
  VK_END: if ssShift in Shift then
            RichEdit.SelLength := RichEdit.SelLength -1;
  end;

(alternativ auf das erste #10 nach Selstart prüfen und entsprechend markieren)
... aber ob das dein Ziel ist

[DrUArn]

Danke Lannes,

zu Deiner Anmerkung: nachbauen wäre mir lieber - das sind eben solche Probleme, die einem nicht aus dem Kopf gehen - man möchte wissen, wie's geht!

zu Deinem Beispiel der Verkürzung von sellength um 1: geht, wenn man's in keyup unterbringt

Delphi-Quellcode:

procedure TRichEditTab_ua.keyup(var Key: Word;Shift: TShiftState);
begin
  case key of
     VK_END: if (shift=[ssshift]) then begin sellength:=SelLength-1;{key:=0;}end;
  end;

 inherited;
end;

Sieht zwar etwas lustig aus - in keydown wird ja erst die Berechnung incl. Zeilenumbruch ausgeführt - und das sieht man - und danach nehme ich wieder eine Verkürzung um 1 vor. Aber so geht's.
Gerade probiert: In keyup muß man key:=0 auch nicht mehr einfügen.

MfG
Uwe

[Lannes]

Zitat von DrUArn:

Sieht zwar etwas lustig aus - in keydown wird ja erst die Berechnung incl. Zeilenumbruch ausgeführt - und das sieht man - und danach nehme ich wieder eine Verkürzung um 1 vor.

deshalb der Alternativvorschlag:

(alternativ auf das erste #10 nach Selstart prüfen und entsprechend markieren)