Forum: Programmieren allgemein
by DeddyH,
15. Jul 2011
Wenn ich keinen Denkfehler mache, nach dem Markieren
RichEdit.SelText := AnsiUpperCase(RichEdit.SelText);
Forum: Programmieren allgemein
by DeddyH,
14. Jul 2011
Versuch mal, ob es hiermit geht:
procedure {TfrmDemo.}MarkKeyword(RE: TRichEdit; const s: string;
CaseSensitive: Boolean);
var
FoundAt: LongInt;
StartPos, ToEnd: Integer;
SearchTypes: TSearchTypes;
begin
Assert(Assigned(RE));
if CaseSensitive then
Forum: Programmieren allgemein
by DeddyH,
14. Jul 2011
Hat sich eigentlich einer von Euch beiden mal FindText angeschaut, speziell die Optionen, die da geboten werden? Falls ja, wieso friemelt Ihr dann mit PosEx herum? Ich kann mein Auto auch schieben, dann bewegt es sich auch, nur ist das zum Einen im Allgemeinen langsamer als wenn ich fahren würde, zum Anderen ist das Fahren doch unbestreitbar bequemer. Aber es ist ja nicht mein Programm. Übrigens:...
Forum: Programmieren allgemein
by DeddyH,
14. Jul 2011
Nun schrei hier mal nicht rum. Zum Einen brauchst Du ja keinen FindDialog, zum Anderen musst Du halt mal schauen, wie die Typen beim JvRichEdit deklariert sind und das dann entsprechend umdeklarieren.
Forum: Programmieren allgemein
by DeddyH,
14. Jul 2011
Was verstehst Du denn nicht? Der Code ist doch sogar kommentiert.
Forum: Programmieren allgemein
by DeddyH,
14. Jul 2011
Ich habe ausnahmsweise mal einen FullQuote gemacht, damit Du mir die Stelle mit der Zeile zeigen kannst.
Forum: Programmieren allgemein
by DeddyH,
13. Jul 2011
Sry, aber ich verstehe Deinen Code nicht, zumal der mir recht umständlich aussieht. Alleine schon, was die Zeilennummer damit zu tun hat/haben soll, erschließt sich mir nicht :gruebel:. Was passiert denn bei automatischen Zeilenumbruch? Muss ich dann selbst ermitteln, wo ich anfangen will?
Forum: Programmieren allgemein
by DeddyH,
13. Jul 2011
Der Code des Buttons ist doch für Dich vollkommen irrelevant, es geht schließlich um das Suchen eines Textes und anschließendes Markieren (für das Setzen der SelAttributes) in einem RichEdit. Und dafür genügt der Code in FindDialog1Find, der muss nur noch marginal angepasst/erweitert werden.
Forum: Programmieren allgemein
by DeddyH,
13. Jul 2011
Schau Dir mal das Delphi-Beispiel zu TCustomRichEdit.FindText an, da hast Du schon die halbe Miete und musst quasi nur noch die SelAttributes setzen.