Selection Color von TEdit ändern

[cookie22]

Hallo,

ist es irgendwie möglich die Farbe von einem TEdit zu ändern?

Hab da leider nichts gefunden.

Gruß,
Cookie

[martin_]

Hi,
ich hab das nur kopiert:

Download the LMD components (torry.net ???) ...
Here you have the TLMDEdit (tabstrib "LMD Edit"), which can do what you want ...

[MGC]

Hallo Cookie,

einfach den Wert von TEdit.Brush.Color verändern.

Habe mal kurz hier ein Edit erstellt und in der Mousmove-Eigenschaft die Markierfarbe auf rot gesetzt.

Code:

procedure TForm1.Edit1MouseLeave(Sender: TObject);
Var i: Integer;
begin
  For i:=self.Edit1.SelStart to self.Edit1.SelLength do
  begin
    self.Edit1.Brush.Color := clRed;
  end;
end;

Muss natürlich noch ausgearbeitet werden, dient nur als kleines Beispiel.

Grüße,
Marc

[EDIT] aber nicht vergessen den Brush.Color wieder auf deine eigentliche Farbe zu setzen, nachdem der Markiervorgang beendet ist.
Weiterhin muss noch berücksichtigt werden ob man mit der Maus von links nach rechts oder von rechts nach links markiert. Ausserdem muss noch das Entfernen der Markierung, sowie das manuelle Markieren mittels Tastatur berücksichtigt werden. Ist nur mal ein Schnellbeispiel gewesen.

[cookie22]

Ich arbeite im Moment mit Delphi 2005, da hat TEdit kein Mouseleave event.

Färbt das nicht außerdem das ganze Editfeld?

[himitsu]

Nee, die Farbe wird halt von Windows so vorgegeben.

Einzige Lösung: Das Edit selber zeichen.
Oder, falls das möglich ist, den Editinhalt selber zeichnen.


Andernfalls halt eine Femdkomponente suchen, welche für dich zeichnet (eventuell SynEdit? )

[cookie22]

Das habe ich mir schon gedacht.

Kennt jemand eine Edit Kompo die das kann? ElPack kostet 150€, das ist etwas viel für so ein Feature.

[Steku]

Hatte LMD früher neben all den normalen Paketen nicht auch
eine Freeware Sammlung mit im Angebot?
Da waren immer auch eine ganze Menge "Standard"-Kompos
dabei die einige Features mehr hatten als die
Onboard-Komponenten....

Gruß,
Steku

[DeddyH]

Jepp, die gibt es immer noch (LMD-Tools SE).