Tab halløj

>Også selvom det er flere linier vi taler om :o)

Hvad mener du helt præcist med det?
Kan du evt. give et tekst-eksempel?
Eksempel på tekst-eksempel:
----------------------------------------
    Denne linje er "tabbet ud".
Det er denne linje ikke :-)
----------------------------------------

Ja...
[Linie nr] [Tekst] - MARKERET TEKST
-------------------------------------
BLALINIE1
BLALINIE2

-- EFTER --
  BLALINIE1
  BLALINIE2

;)

Mener du at alle linjer skal "tabbes ind"?

ja

Hvis det er det som det hedder *G* :)

Prøv det her, det er ikke testet:
var
  I: Integer;
begin
  for I := 0 to SynEdit1.Lines.Count - 1 do
    SynEdit1.Lines[I] := '  ' + SynEdit1.Lines[I];
end;

Den gør det jo med alle linierne... Den skal gøre det med dem som er makeret kun :o)

Det er en fusket løsning, men det virker

procedure TForm1.Button3Click(Sender: TObject);
var
strlist : tstringlist;
i : integer;

begin

strlist := tstringlist.Create;
  strlist.Delimiter := #13;
  strlist.DelimitedText := memo1.SelText;


  for i := 0 to strlist.Count - 1 do
  begin

  strlist[i] := '  ' + strlist[i];
  end;


  memo1.SelText := strlist.Text;
  memo1.SetFocus;

    keybd_event(VK_BACK,45,KEYEVENTF_EXTENDEDKEY,0);
    keybd_event(VK_BACK,45,KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP,0);

  strlist.Free;


end;

Stoney

takker ... :)