RichEdit Zeile markieren

[AnyKey]

Hi,

ich will/muss ein RichEdit so benutzen, dass es vom Prinzip her wie eine ListBox ist, also dass ich eine Zeile anklicken kann, die dann in einer bestimmten Farbe hinterlegt wird, außerdem soll die Zeile unterstrichen sein wenn ich mit der Maus darüber fahre. Es soll also später wie eine art Tabelle aussehen. Ist das möglich im RichEdit Spalten einzufügen? Und vorallem wie mache ich das mit der "Hintergrund" Farbe beim anklicken einer Zeile?

Das ganze muss deswegen ein Richedit sein, weil ich in jeder "Spalte" den Text in einer anderen Farbe darstellen muss, wie das geht weiß ich schon.

Ich hoffe ihr könnt mir bei den anderen beiden Sachen helfen!

Danke schon mal!!

Gruß
AnyKey

[himitsu]

nimm ine ListBox und schau dir mal alles im Zusammenhang mit OwnerDraw/CustomDraw an,
(also im OI und der OH mal nach diesem Wort ausschau halten und dann findet sich bestimmt was dazu hier im Forum und in der OH)

da kannst/mußt du die Items selber zeichnen und kannst die Farbe für jedes Item ändern
(man kann praktisch alles ändern, auch Schriftart oder man zeichnet war ganz Anderes )

[AnyKey]

Also soll ich lieber ne listbox nehmen statt ein RichEdit??? Im Zusammenhang mit Richedit finde ich das OwnerDraw nicht...

Das Problem dabei ist dass ich ein RichEdit nehmen muss.... ich hab da garkeine andere Wahl, so lauten halt leider die Vorgaben...

Um das ganze mal ein bisschen zu erklären, es soll eine Art Editor bei dem ganzen rauskommen. Mit diesem Editor sollen Dateien, bzw. eine xml Datei, die Werte einer Datenbanktabelle enthält, geöffnet und in dem RichEdit angezeigt werden. Per Syntaxhighlighting sollen die einzelnen "Spalten" andersfarbig markiert werden und wenn ich eine Zeile im Richedit anzeige soll diese Zeile markiert werden (Hintergrundfarbe, also wie wenn man in einer Listbox eine Zeile markiert) und die Daten daraus in dynamisch erzeugte felder zur Bearbeitung eingefügt werden. Irgendwie muss das doch gehen dass man eine angeklickte Zeile markieren kann...

Gruß
AnyKey

[Matze]

Hallo,

wenn du Spalten benötigst, ist eine ListView u.U. besser geeignet.
Beispiele und eine Demo zu OnCustomDraw findest du bsp. auf delphidabbler.com.

Grüße, Matze

[AnyKey]

Hm...

Erst mal Danke für eure Antworten!

Das geht schon in die richtige richtung, allerdings soll dieses Projekt halt mit einer RichEdit Komponente realisiert werden... aber dazu finde ich halt einfach nichts... wie mann zum Beispiel eine Zeile markiert.

Gruß
AnyKey

[Lannes]

Hallo,

wenn die absolute Vorgabe ein RichEdit ist, dann wünsch ich Dir schon mal viel Spaß bei der Umsetzung der Anforderungen.

Eine angeklickte Zeile im RichEdit farblich zu unterlegen ist möglich, auch den nicht beschrifteten Bereich.
OnDraw etc. gibt es beim RichEdit nicht, derartiges muss man mit SelAttributes, ParaGraph, TCharFormat, TParaFormat etc. erledigen.

Deine gesammte Beschreibung der Anforderungen liefert noch keinen Grund ein RichEdit zu benutzen.

Wenn ich mir die Anforderungen so durchlese,
- Spalte andere Farbe
- Zeile markieren
- soll also später wie eine Art Tabelle aussehen
- dynamisch erzeugte Felder zur Bearbeitung
...
denke ich das dafür ein StringGrid/DrawGrid besser geeignet ist.

[himitsu]

Ob man eine ganze Zeile über die volle Breite markieren kann, weiß ich nicht,
aber den Hintergrund hinter dem Text/den Zeichen sollte man umfärben können.

Bezüglich des Unterstreichen, wirst du wohl OnMouseMove nutzen und den Text unter dem Mauszeiger raussuchen müssen, dann noch den Zeilen Anfang und das Zeilenende suchen, die Zeile markieren (SelStart/SelLength) und unterstreichen (natürlich vorher die alte Markierung bzw. die alte unterstrichene Zeile suchen und das unterstrichen entfernen).

Aber das alles läßt sich mit Sicherheit wesendlich einfach mit einer ListBox/ListView realisieren lassen.

[AnyKey]

Ich persönlich würde ja auch eher zur einfacheren Methode tendieren :)

Aber wie gesagt vorgabe ist halt ein RichEdit zu benutzen...

Hat denn einer von euch vielleicht mal ein stücken Beispielcode für mich, mit dem man eine zeile beim Anklicken markieren kann? So wie ich das bisher versucht habe (ändert auch nur die Schriftfarbe, nicht die Hintergrundfarbe) funktioniert das nicht wirklich.

Wäre echt nett von euch ;)

Gruß
AnyKey

[Lannes]

Hallo,

Zitat:

Zitat von AnyKey

Ich persönlich würde ja auch eher zur einfacheren Methode tendieren :)

Aber wie gesagt vorgabe ist halt ein RichEdit zu benutzen...

Dann diskutier doch mal mit dem/r Vorgeber/in: "Aber das dauert ca. 10 mal so lange, bis ich das Programm fertig habe .."
:mrgreen:

Zitat:

Zitat von AnyKey

Hat denn einer von euch vielleicht mal ein stücken Beispielcode für mich, mit dem man eine zeile beim Anklicken markieren kann? So wie ich das bisher versucht habe (ändert auch nur die Schriftfarbe, nicht die Hintergrundfarbe) funktioniert das nicht wirklich.

Die hintergrundfarbe des Textes kannst Du so ändern: ...change the Background Color in TRichEdit for the selected characters?

Bei einer kompletten Zeile wird es wesentlich schwieriger, der folgende Code beinhaltet noch Fehler, ist ein Versuch aus einem meiner Programme, den ich dann aber abgebrochen habe.(rate mal welche Komponente ich dann genommen habe :wink: )

Das grundsätzliche Markieren funktioniert aber:

Delphi-Quellcode:

function TForm1.SelectLine(Memo:TRichEdit; L: integer;BgrColor,TxtColor: TColor): integer;
var  Text : array [0..4095] of char;
     s : string;
     R : TRect;
     hMemo : THandle;
     WLine, HLine : integer;
     tm : TTEXTMETRIC;
begin
  hMemo := Memo.Handle;
  Word((@Text)^) := SizeOf(Text);
  SetString(s,Text,SendMessage(hMemo,EM_GETLINE,L,Longint(@Text)));
  SendMessage(hMemo,EM_GETRECT,0,Longint(@R));
  WLine := R.Right-R.Left+1;
  with TControlCanvas.Create do
    try
    Control := Memo;
    Font := Memo.Font;
    GetTextMetrics(Handle,tm);
    HLine := tm.tmHeight + tm.tmExternalLeading;
    Brush.Color := BgrColor;
    FillRect(Rect(0,L*HLine,WLine+1,(L+1)*HLine+1));
    SetBkMode(Handle,TRANSPARENT);
    SetTextColor(Handle,TxtColor);
    TextOut(1,L*HLine+1,s);
    finally
      Free;
      end;
end;

function TForm1.UnselectLine(Memo:TRichEdit; L:integer):integer;
var
  Text:array [0..4095] of char;
  s:string;
  R:TRect;
  hMemo:THandle;
  WLine,HLine:integer;
  tm:TTEXTMETRIC;
begin  
  hMemo:=Memo.Handle;
  Word((@Text)^) := SizeOf(Text);
  SetString(s, Text, SendMessage(hMemo, EM_GETLINE, L,Longint(@Text)));
  SendMessage(hMemo,EM_GETRECT,0,Longint(@R));
  WLine:=R.Right-R.Left+1;
  with TControlCanvas.Create do
  try
    Control := Memo;
    Font := Memo.Font;
    GetTextMetrics (Handle, tm);
    HLine := tm.tmHeight + tm.tmExternalLeading;
    Brush.Color:=Memo.Color;
    FillRect(Rect(0,L*HLine,WLine+1,(L+1)*HLine+1));
    SetBkMode(Handle,TRANSPARENT);
    SetTextColor(Handle,Font.Color);
    TextOut(1,L*HLine+1,s);
  finally
    Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  SelectLine(RichEdit1,1,clNavy,clWhite);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin  
  UnselectLine(RichEdit1,1);
end;

[AnyKey]

Ok...

Danke für deine Antwort Lannes, hat mir sehr geholfen, ich kann jetzt zumindest den Hintergrund des Textes der da steht einfärben, nur halt nicht die Hintergrundfarbe der ganzen Zeile...
Aber ich bin schon ein ganzes stück weiter!

óÒ die andere Sache sieht wirklich sehr kompliziert aus, nur um eine Textzeile einzufärben die man selektiert hat... Ich denke fürs erste wird mir das aber reichen was ich jetzt hab!

Danke auch noch mal an alle anderen!

Edit: Mir ist da grade noch was eingefallen, wisst ihr zufällig auch wie ich den blinkenden Textcursor wegbekomme? den brauche ich
ja nicht

Gruß
AnyKey

[himitsu]

Delphi-Quellcode:

HideCaret(RichEdit1.Handle);

[AnyKey]

Hi, da bin ich nochmal!

Hab da noch zwei Fragen...

Also, das mit dem Markieren funktioniert super dank der Funktionen von Lannes. Das Problem ist jetzt nur, dass der Text formatiert wird, also ich nehme in dem Text ein Syntaxhighlighting vor, das mir danach dann verloren geht... wie kann ich das umgehen??

Die zweite Frage hat eigentlich nicht direkt etwas damit zu tun, wie kann ich es hinbekommen dass er mir beide Scrollbars anzeigt in dem Richedit? Ich bekomme nur die Vertikale angezeigt, obwohl der Text sehr lang ist. WordWrap steht auf False, damit der Text nicht umgebrochen wird und ScrollBars steht auf ssBoth, also rein von der Theorie her müsste das doch tun?!?!?! óÒ

Gruß
AnyKey

[Alaitoc]

Hi,
mal ne Frage wieso muss es denn genau RichEdit sein?
Ich würde wirklich versuchen die Vorgaben in dem Sinne dementsprechend vll. abzuändern, wenn das mit dem Kunden möglich ist?
Zum Thema Syntaxhighlighting wäre nämlich SynEdit sicherlich eine gute Wahl, da gibt es einige vorgefertigte Highlighter und es ist auch ohne Probleme möglich Zeilen zu markieren. (Ich hab damit in kürzester Zeit einen MSXML-Editor mit Syntaxhighlighting, Validierungsfehlermarkierung, etc... programmiert).
Im Endeffekt ist es eine Erweiterung des RichEdits und SynEdit ist auch durchaus für kommerzielle Produkte zu gebrauchen.

http://synedit.sourceforge.net/

Es würde dir zumindest viel Arbeit sparen :wink:

MfG Alaitoc

[AnyKey]

Hi,

also wie gesagt, ich persönlich würde auch den einfacheren weg bevorzugen, denn man muss das Rad nich immer neu erfinden, vorallem nich als Anwendungsentwickler ;) außerdem muss man ja bekanntlich nicht alles wissen, sondern nur wo es steht.

Also Kunde ist eigentlich ein Anderer Anwendungsentwickler bei mir in der Firma, der will einen Editor haben, um Logfiles unserer Anwendungen die beim Kunden liegen besser und schneller analysieren zu können. Naja und meine Vorgaben bezüglich komponenten sind halt leider fix, hab auch schon nachgefragt ob das nich auch anders geht, aber da es auch als normaler Editor einsetzbar sein soll muss ich das RichEdit nehmen...
und wie gesagt, das mit dem Markieren funktioniert ja soweit, bis auf die sache, dass er mir die Formatierungen vom Syntaxhighlighting verwirft... naja und dass er hinter jeden String zwei Steuerzeichen anhängt... (is mir grad noch aufgefallen)

Wäre also echt super wenn ihr mir da ein bisschen helfen könntet ;)

Gruß
AnyKey

[Alaitoc]

Naja da er ein Anwendungsentwickler ist sollte er es wohl am ehesten verstehen aber naja egal :wink:
Ich selbst habe zwar auch mit RichEdit begonnen, habe es aber schnell wieder verworfen da ich ebenso nervige Probleme dabei hatte und SynEdit im Endeffekt nur noch das Syntaxhighlighting unterstützt und noch einige zusätzliche Optionen dazukommen und es halt keinerlei Lizenzprobleme gibt.
Helfen kann ich dir in dem Fall leider nicht, da ich mir das erst selbst alles aufbauen müsste und leider nicht dafür die Zeit aufbringen kann...bei SynEdit hätte ich es halt direkt zur Hand gehabt mit allem drum und dran ^^

MfG Alaitoc

[AnyKey]

Naja trotzdem danke für deine Hilfe ;)
Ich bin ja schon froh das es wenigstens in die richtige Richtung geht :D

Die Fragen stehen für alle anderen aber noch :) also wenn euch was einfällt, bin für jede Hilfe dankbar ;)

[AnyKey]

Will mir denn wirklich niemand helfen??? :(

Diese Fragen stehen noch aus:

Also, das mit dem Markieren funktioniert super dank der Funktionen von Lannes. Das Problem ist jetzt nur, dass der Text formatiert wird, also ich nehme in dem Text ein Syntaxhighlighting vor, das mir danach dann verloren geht... wie kann ich das umgehen?? Außerdem werden am ende der Zeile immer Steuerzeichen angezeigt... wie bekomm ich die weg??

Die zweite Frage hat eigentlich nicht direkt etwas damit zu tun, wie kann ich es hinbekommen dass er mir beide Scrollbars anzeigt in dem Richedit? Ich bekomme nur die Vertikale angezeigt, obwohl der Text sehr lang ist. WordWrap steht auf False, damit der Text nicht umgebrochen wird und ScrollBars steht auf ssBoth, also rein von der Theorie her müsste das doch tun?!?!?! óÒ

Edit: Mir ist grad aufgefallen das dass mit dem Markieren der Zeile wohl doch nicht so super funktioniert wie ich dachte... wenn ich weiter nach unten scrolle und dort klicke erscheint die Markierung entweder an der falschen Stelle oder garnicht.... :(

Gruß
AnyKey

[Lannes]

Hallo,

Zitat:

Zitat von AnyKey

Also, das mit dem Markieren funktioniert super dank der Funktionen von Lannes. Das Problem ist jetzt nur, dass der Text formatiert wird, also ich nehme in dem Text ein Syntaxhighlighting vor, das mir danach dann verloren geht... wie kann ich das umgehen??

Nicht umgehen, nach dem Aufheben der Markierung die Zeile wieder formatieren.

Zitat:

Zitat von AnyKey

Außerdem werden am ende der Zeile immer Steuerzeichen angezeigt... wie bekomm ich die weg??
...
Edit: Mir ist grad aufgefallen das dass mit dem Markieren der Zeile wohl doch nicht so super funktioniert wie ich dachte... wenn ich weiter nach unten scrolle und dort klicke erscheint die Markierung entweder an der falschen Stelle oder garnicht....

ich weiß nicht ob Du den Satz gelesen hast, deshalb wiederhole ich ihn noch mal:

Zitat:

Zitat von Lannes

... Bei einer kompletten Zeile wird es wesentlich schwieriger, der folgende Code beinhaltet noch Fehler, ist ein Versuch aus einem meiner Programme, den ich dann aber abgebrochen habe.
...
Das grundsätzliche Markieren funktioniert aber...

Ich hab den Versuch damals abgebrochen und werde ihn auch nicht fortsetzen :?

Zitat:

Zitat von AnyKey

...
der will einen Editor haben, um Logfiles unserer Anwendungen die beim Kunden liegen besser und schneller analysieren zu können. Naja und meine Vorgaben bezüglich komponenten sind halt leider fix, hab auch schon nachgefragt ob das nich auch anders geht, aber da es auch als normaler Editor einsetzbar sein soll muss ich das RichEdit nehmen...

was hindert dich daran in dem Programm bei normaler Editor-Benutzung das Richedit einzusetzen und zur Analyse der Log-Files auf die andere komponente umzuschalten?

Zitat:

Zitat von AnyKey

Will mir denn wirklich niemand helfen??? :(

doch, denke ich schon, dafür ist es aber erforderlich viel Zeit zu investieren, obwohl man weiß das es mit einer anderen Komponente (SynEdit, ListBox, StringGrid etc.) wesentlich einfacher ist.

[AnyKey]

Hm...

Danke für deine Antwort!
Joa an den Satz hatte ich nicht mehr gedacht ;) mittlerweile bin ich eh am überlegen ob ich das mit dem Zeile markieren nicht lieber weglassen sollte... Schätze mal zu dem Schluss bist du auch gekommen da du das Projekt nicht weiter führst :)

Naja was mich hindert? die "Auftragsgeber"... Die wollen das nunmal so... wegen Lerneffekt und so und damit ich halt sehr viel an dem Projekt selber machen muss... Is als so ne Art vorbereitung für die Abschlussprüfung nächstes Jahr gedacht, da muss ich ja auch ein Projekt machen und das ist schon mal ne Übung dafür....

Bis jetzt siehts ja auch ganz gut aus, bis auf die paar fehler.. :) aber das wird noch.... hoff ich mal :D

Also das mit der Scrollbar hat sich erledigt... aus irgendeinem Grund zeigt er sie plötzlich doch an... :gruebel:

Hab also erst mal keine Fragen mehr ;) falls doch werde ich mich melden :)

Noch mal danke für eure Hilfe ;)

Gruß
AnyKey