Formateret tekst (haster lidt)

Det klart nemmeste er at vælge teksten og så formatere det valgte tekst ...

Jens B

!!!!!!!!

har du også en løsning til hvordan man kan gøre den ordentligt via en kommando??

Du kan se det hele i deomos/RichEdit det er et eks. hvor du kan se hvordan du gør, du skal havde fat i SelAttributes eller noget i den stil, kan ikke lige huske præcis hvad den hed.

/Martin

procedure TFrmMain.Addtext(text: string; color: integer);
begin
  if mymemo.lines.Count>300 then begin
    mymemo.lines.delete(0);
  end;
  mymemo.selstart:=length(mymemo.text);
  mymemo.selattributes.Color:=color;
  mymemo.lines.Add(\'[\'+copy(timetostr(Time),0,5)+\'] \'+text);
end;

Noget lign. ovenstående plejer jeg at gøre.

/_DJ_

har prøvet med:

function TForm1.CurrText: TTextAttributes;
begin
  if Richedit1.SelLength > 0 then Result := Richedit1.SelAttributes
  else Result := Richedit1.DefAttributes;
end;

procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  selpos: Integer;
begin
  if Key = VK_Return then
  begin
    billede := \'11\';
    kommando.text := richedit1.Lines[Richedit1.Lines.Count - 1];
    Kommando.CharCase := ecUpperCase;
    SelPos := Pos(\'(\', kommando.Text);
    if selpos > 0 then
    begin

    end
    else
    begin
      if Kommando.text = \'HJÆLP\' then
      begin

      end
      else
      begin
        CurrText.Style := CurrText.Style + [fsItalic];
        Richedit1.lines.Add(\'Fejl i kommando\');
        CurrText.Style := CurrText.Style - [fsItalic];

      end;
    end;
  end;
end;

men så er der ikke noget formateret tekst

dj>> Lidt et hack, men det virker ....

Jens B

with richedit1 do
begin
  selstart := x; //positionen hvor din selected text skal begynde
  sellength := length(tekst); //længden af den ønskede selected text
  selattributes.color := clred;
end;

ZeroHero

dj> hvordan stopper man så farven igen efter indsættelse

dj>

Gemmer den gamle farve først :

procedure TFrmMain.Addtext(text: string; color: integer);
var
  OldColor : TColor;
begin
  if mymemo.lines.Count>300 then
    mymemo.lines.delete(0);

  mymemo.selstart:=length(mymemo.text);
  OldColor :=  mymemo.selattributes.Color;
  mymemo.selattributes.Color:=color;
  mymemo.lines.Add(\'[\'+copy(timetostr(Time),0,5)+\'] \'+text);
  mymemo.selattributes.Color:=OldColor;
end;

Jens B

og kan du også give nogle eks. på hvis jeg nu vil have teksten fed kursiv eller understreget. En anden størrelse eller som punktliste???

with richedit1 do
begin
  selstart := x; //positionen hvor din selected text skal begynde
  sellength := length(tekst); //længden af den ønskede selected text
  selattributes.color := clred; //rød tekst
  selattributes.style := [fsbold]; //fed tekst
  selattributes.style := [fsitalic]; //kursiv tekst
  selattributes.size := x; //Størrelse på tekst
end;

zerohero >>
  Etv.

selattributes.style := selattributes.style + [fsbold, fsitalic ];

eller bare

selattributes.style :=  [fsbold, fsitalic];

Jens B

tak men hvad med punktopstilling?

kig på RichEdit1.Paragraph ...

cautoo  >> Lige et spørgsmål : Har du ikke instaleret de demod der fulgte med til din Delphi ?

Jens B

Punktopstilling!!! det tror jeg ikke du kan gøre på via selattributes...

ZeroHero

Borrisholt>> Jeg mangler din hjælp... Kan du huske det vi snakkede om over telefonen? Kig lige på mit spørgsmål \"wm_paint\"...

borrisholt>> Joda, men jeg synes ikk jeg kunne få:

Richedit1.selattributes.Paragraph.Numbering til at virke!!!

Borrisholt>> http://www.eksperten.dk/spm/89404

cautoo >> Nu har jeg D6 instaleret på mit d drev, men du må selv rette til i forhold til din instalation ...

Her ligger der et godt eksempel på hvordan man bruger en richEdit ...
D:\\PROGRAM FILES\\BORLAND\\Delphi6\\Demos\\RichEdit

ellers er der jo altid F1 (du ved hjælpen)

Gør som jeg sagde : brug RichEdit1.Paragraph IKKE Richedit1.selattributes.Paragraph.Numbering

Jens B

den er da ikk som mulighed på listen

og den vil heller ikke kompilere det

nåh sorry dumfejl tak for hjælpen

Takker :)

Skal lige siges at min løsning er mest anvendelig hvis det er en log af en eller anden slags man laver, f.eks. til at vise status i en FTP Client, IRC Client eller lign. Hvis det er til tekstbehandling ville jeg nok ikke anvende min løsning.

/_DJ_

dj>> så er det jo heldigt at jeg skal bruge det til hvis brugeren skriver en eller anden kommando så svarer den med forskellige muligheder for hvad der kan være galt :-)

:)