RichEdit, tab, tabulator

Prøv at indsætte nedenstående i linien efter Setfocus:

Editor.Paragraph.Tabcount:=2;

Hej nca.

Det er prøvet, men virker heller ikke, problemmet er at der bliver sat en tab men i position 0, ??
Min kode ser nu således ud

procedure TTabFrm.Button1Click(Sender: TObject);
Var X,I: LongInt;
begin
  ShowMessage(IntToStr(Trunc((StrToFloat(Edit1.text)*72/ 2.54))));
    with PrintFrm.RichEdit1 do begin
      Paragraph.Tab[Paragraph.TabCount]:= Trunc((StrToFloat(Edit1.text)*72/ 2.54));
      Listbox1.Clear;
      for I:=0 to Paragraph.TabCount-1 do
        ListBox1.Items.Add(Format('%8.2f cm.', [(Paragraph.Tab[I]/ 72)*2.54]));
    end;
end;

Jeg har brugt Showmessage for at se hvilken position tab (i pixel) skulle blive sat i

Er du opmærksom på at Paragraph.Tab starter med 0?
Hvis jeg skriver nedenstående kode:

  Editor.SetFocus;
  Editor.Paragraph.Tabcount:=1;
  Editor.Paragraph.Tab[0] := 100;
  Editor.SelText := #9;
  ShowMessage(IntToStr(Editor.Paragraph.TabCount));

så sættes der en tabulator ved 100.
Sletter jeg linien med Tabcount, bliver der sat en standard tabulator.

nca

Du har ganske ret min løsning ligger i dit svar.

Takker mange gange


Finn

Hej igen

Der var jeg lidt hurtig, koden virker hvis jeg ønsker at sætte en tab, men hvis jeg forsøger at sætte flere tabs, sætter den position på de andre til 0.

Jeg bruger flg. kode da jeg har lavet en dialogbox til at sætte tabs, lidt(meget) som word.
Listbox1 viser alle tabs, og i edit1 angiver jeg en afstand i cm.

procedure TTabFrm.Button1Click(Sender: TObject);
Var X,I: LongInt;
begin
    with PrintFrm.RichEdit1 do begin
      SetFocus;
      Paragraph.Tabcount:=Paragraph.Tabcount+1;
      Paragraph.Tab[0] := Trunc((StrToFloat(Edit1.text)*72/ 2.54));
      ShowMessage(IntToStr(Paragraph.TabCount));
      Listbox1.Clear;
      for I:=0 to Paragraph.TabCount-1 do
        ListBox1.Items.Add(Format('%8.2f cm.', [(Paragraph.Tab[I]/ 72)*2.54]));
    end;
end;

Du skal sætte værdien af TabCount til det antal tab's du sætter, så tror jeg det virker.

Du har ganske ret, det virker for mig nu .