RichEdit Zeile markieren

[Lannes]

Hallo,

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 .."

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 )

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;