Farve linie

Jeg kender ikke SynEdit, men hvis den er ligesom TRichEdit så burde dette virke.

var
  Syn_OldLine: Integer = 0;

procedure TMainForm.SyneditSelectionChange(Sender: TObject);
var
  L, WasSel, WasSelLen: Integer;
  Edit: TSynEdit;
begin
  Edit := TSynEdit(Sender);
  L := Edit.Perform( EM_LINEFROMCHAR, 0, 0 );
  if L <> Syn_OldLine then
    with Edit do begin
      WasSel := SelStart;
      WasSelLen := SelLength;

      // Fjern fokus så der ikke kommer sorte streger
      SendMessage(Handle, WM_KILLFOCUS, 0, 0);
      SelStart := Edit.Perform(EM_LINEINDEX, L, 0);
      SelLen := Length( Lines[L] );
      SelAttributes.Color := clMaroon; // Ret dette til efter eget behov

      SelStart := Perform( EM_LINEINDEX, Syn_OldLine, 0, 0);
      SelLength := Length( Lines[Syn_OldLine] );
      SelAttributes.Color := Font.Color;

      SelStart := WasSel;
      SelLength := WasSelLen;

      if Enabled and Visible then
          SetFocus;
    end;

  Syn_OldLine := L;
end;

Jeg har ikke lige Delphi ved hånden, men jeg tror at det vil virke.

Rettelse!! Brug ikke den ovenstående kode!!

procedure TMainForm.SyneditSelectionChange(Sender: TObject);
var
  L, WasSel, WasSelLen: Integer;
  Edit: TSynEdit;
begin
  Edit := TSynEdit(Sender);
  L := Edit.Perform( EM_LINEFROMCHAR, 0, 0 );
  if L <> Syn_OldLine then
    with Edit do begin
      WasSel := SelStart;
      WasSelLen := SelLength;
      OnSelectionChange := nil;

      // Fjern fokus så der ikke kommer sorte streger
      SendMessage(Handle, WM_KILLFOCUS, 0, 0);
      SelStart := Edit.Perform(EM_LINEINDEX, L, 0);
      SelLen := Length( Lines[L] );
      SelAttributes.Color := clMaroon; // Ret dette til efter eget behov

      SelStart := Perform( EM_LINEINDEX, Syn_OldLine, 0, 0);
      SelLength := Length( Lines[Syn_OldLine] );
      SelAttributes.Color := Font.Color;

      SelStart := WasSel;
      SelLength := WasSelLen;

      OnSelectionChange := MainForm.SynEditSelectionChange;
      if Enabled and Visible then
          SetFocus;
    end;

  Syn_OldLine := L;
end;

I den anden kommer der vist en uendelig løkke.

Doh! Endnu en fejl:
  L := Edit.Perform( EM_LINEFROMCHAR, 0, 0 );
skal rettes til:
  L := Edit.Perform( EM_LINEFROMCHAR, SelStart, 0 );

Jeg er god til det med fejl i dag:
  L := Edit.Perform( EM_LINEFROMCHAR, Edit.SelStart, 0 );

Nu håber jeg ikke at der er flere fejl ;)

SynEdit er ikke som RichEdit, den er ren VCL...

Hvad er VCL?

Visual Component Library :-)

Har siddet inde på Jubii de sidste par dage sry jeg ikke svarede osv :-)

SelLength findes ikke i en synedit :)

I din SynEdits OnSpecialLineColors-event skal du skrive noget i retning af denne kode:

procedure TForm1.SynEdit1SpecialLineColors(Sender: TObject; Line: Integer;
  var Special: Boolean; var FG, BG: TColor);
begin
  if Line = SynEdit1.CaretY then
  begin
    FG := clYellow;
    BG := clRed;
  end;
end;

I din SynEdits OnStatusChange-event skal du skrive noget i retning af dette:

procedure TForm1.SynEdit1StatusChange(Sender: TObject;
  Changes: TSynStatusChanges);
begin
  if (scCaretY in Changes) then //Hvis cursoren skifter linje, skal SynEdit'en opdateres
    SynEdit1.Repaint;
end;

Og nej, SelLength findes ikke. Det gør SelStart derimod, og SelEnd. Derudover er der CaretX og CaretY :-)

Hvis der er nogen der stadigvæk tror, at SynEdit er direkte sammenlignelig med RichEdit, så vil jeg atter understrege, at det er den ikke.
Jer der ikke kender SynEdit, kan jo evt. prøve at kigge på http://synedit.sf.net, hvor i kan hente den fulde kode.
Da man ikke bare lige kan få den fulde kode til RichEdit (RichEdit er en del af Windows, og Microsoft er ikke ligefrem kendt for at lave OpenSource), er det ikke svært at regne ud, at de ikke er baseret på samme kode.

Desuden er de meget forskellige, SynEdit kan sammenlignes med Delphis editor :-)

Virker athlon! Tak skat!! :-)