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
Code:
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;
Bookmarks