Pomocy!! [ RichEdit.SelAttributes ]

0

Co tutaj jest źle?????????

procedure TForm2.DsFancyButton4Click(Sender: TObject);
begin
if RichEdit1.SelAttributes.Style = [fsBold] then
begin
RichEdit1.SelAttributes.Style := RichEdit1.SelAttributes.Style - [fsBold]
else
RichEdit1.SelAttributes.Style := RichEdit1.SelAttributes.Style + [fsBold]
end;

0

przede wszystkim brakuje END przed ELSE. Jesli piszesz begin to o end musisz pamietac.--Pozdrawiam {hello}
Tomasz K.

0

procedure TForm1.txt_attr;
begin
richedit1.SelAttributes.Size := strtoint(fontsize.text);
richedit1.SelAttributes.name := fontname.text;
end;

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

a teraz w twoim buttonie

txt_attr;
if fsBold in Richedit1.SelAttributes.Style then
begin
CurrText.Style := CurrText.Style - [fsBold];
Richedit1.SetFocus;
end else
begin
CurrText.Style := CurrText.Style + [fsBold];
Richedit1.SetFocus;
end;

1 użytkowników online, w tym zalogowanych: 0, gości: 1