KMemo vet maken van tekst vanaf cursor positie

[Dubbeld]

Hallo,

Ik ben bezig om met KMemo een tekstverwerker te maken. In onderstaand fragment kan de tekst Normaal of Vet worden weergegeven.
Alleen de gehele tekst regel wordt Vet en niet vanaf de cursor positie. Hoe is dit te verhelpen?

M.G. Frans

PROCEDURE TForm1.ToggleBox1Change(Sender: TObject);
Var
   TB: TKMemoTextBlock;
begin
  TB := TKMemoTextBlock.Create;
  If ToggleBox1.Checked = True then
    TB.TextStyle.Font.Style := TB.TextStyle.Font.Style + [fsBold]
  else
    TB.TextStyle.Font.Style := TB.TextStyle.Font.Style - [fsBold];
  KMemo1.SelectionTextStyle.Font := TB.TextStyle.Font;
  TB.Free;
end;

[MaartenW]

Het is al verbazend dat het werkt zoals je beschrijft. Waarom?
Je definieert een blok TB, wat wordt gecreeerd, maar nergens aan wordt opgehangen. Weet het programma zo wat de omvang van het blok is? Blijkbaar is de default de gehele tekst.
Dus: definieer het begin en het eind van het blok TB.

Succes! Ik ben benieuwd naar je terugkoppeling ...

[Dubbeld]

Hallo,

Met de volgende procedure:
1. het is mogelijk om een gesecteerde tekst [fsBold] te maken.
2. het is niet mogelijk om aan het einde van de regel tekst
in te voeren welke [fsBold] is.
3. cursor ergens in de tekst zetten (niet geselecteerd) heeft
tot gevolg dat alles na de cursor [fsBold] wordt.

Hoe kan dit worden opgelost zodat de punten 2 en 3 worden opgelost.
H.G. Frans

PROCEDURE TForm1.SpeedButton1Click(Sender: TObject);
VAR
  TextStyle: TKMemoTextStyle;

BEGIN
  TextStyle := TKMemoTextStyle.Create;
  TRY
    TextStyle.Font.Style := [fsBold];
    TextStyle.Font.Color := clRed;
    TextStyle.Font.Size := 20;
    KMemo1.SelectionTextStyle := TextStyle;
  FINALLY
    TextStyle.Free;
  END;
END;