Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Selection Color von TEdit ändern (https://www.delphipraxis.net/162021-selection-color-von-tedit-aendern.html)

cookie22 2. Aug 2011 13:41

Selection Color von TEdit ändern
 
Hallo,

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

Hab da leider nichts gefunden.

Gruß,
Cookie

martin_ 2. Aug 2011 13:54

AW: Selection Color von TEdit ändern
 
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 2. Aug 2011 14:00

AW: Selection Color von TEdit ändern
 
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 2. Aug 2011 14:21

AW: Selection Color von TEdit ändern
 
Ich arbeite im Moment mit Delphi 2005, da hat TEdit kein Mouseleave event.

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

himitsu 2. Aug 2011 14:25

AW: Selection Color von TEdit ändern
 
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 2. Aug 2011 14:30

AW: Selection Color von TEdit ändern
 
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 2. Aug 2011 14:43

AW: Selection Color von TEdit ändern
 
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 2. Aug 2011 14:47

AW: Selection Color von TEdit ändern
 
Jepp, die gibt es immer noch (LMD-Tools SE).


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:08 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz