Størrelsen

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

  CurrText.Size := StrToInt(FontSize.Text);

det samme med bold og italic :

procedure TMainForm.BoldButtonClick(Sender: TObject);
begin
  if BoldButton.Down then
    CurrText.Style := CurrText.Style + [fsBold]
  else
    CurrText.Style := CurrText.Style - [fsBold];
end;

procedure TMainForm.ItalicButtonClick(Sender: TObject);
begin
  if ItalicButton.Down then
    CurrText.Style := CurrText.Style + [fsItalic]
  else
    CurrText.Style := CurrText.Style - [fsItalic];
end;

Jens B

align og ForntName på samme måde :

procedure TMainForm.AlignButtonClick(Sender: TObject);
begin
  Editor.Paragraph.Alignment := TAlignment(TControl(Sender).Tag);
end;

procedure TMainForm.FontNameChange(Sender: TObject);
begin
  CurrText.Name := FontName.Items[FontName.ItemIndex];
end;

underline og bullets :

procedure TMainForm.UnderlineButtonClick(Sender: TObject);
begin
  if UnderlineButton.Down then
    CurrText.Style := CurrText.Style + [fsUnderline]
  else
    CurrText.Style := CurrText.Style - [fsUnderline];
end;

procedure TMainForm.BulletsButtonClick(Sender: TObject);
begin
  Editor.Paragraph.Numbering := TNumberingStyle(BulletsButton.Down);
end;

har du helt smaderet Borlands projekt ?

jens B

Den er ikke så glad for CurrText. Skal der ikke noget op i uses?

Åbenbart. :-(

CurrText er en metode på din form :

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


Jens B

Hvad skal jeg så gøre ved den fejl?

implm CurrText.

Jens B

Undskyld hvis jeg er til besvær men jeg fatter ikke lige det med implm CurrText. Der er foresten 20 points ekstra for alle de andre funktioner.

Gå op i Public delen af din form

indsæt en ny linje : function CurrText: TTextAttributes;

tryk [shift] + [ctrl] + c

skriv :

  if Richedit1.SelLength > 0 then
    Result := Richedit1.SelAttributes
  else
    Result := Richedit1.DefAttributes;

Hvis det ikke virker er det fordi di Richedit ikke hedder Richedit1

Jens B

Nu virker det så nu er der visk kun lige den sidste fejl der skal opklares.

I denne linie: CurrText.Size := StrToInt(FontSize.Text); brokker den sig over: FontSize Nu er jeg ovså lidt i tvivl om hvor den linie skal stå, men er det ikke i onclick for FlatSpinEditInteger?

onchange selvfølgelig

Der skal selvfølgelig bruuge din FlatSpinEditInteger

Jens B

jeg har fundet ud af det nu. Men det er jo kun det der er markeret som ændre sig. Det skal være sådan at det der er foran markøren også bliver den størrelse.

i UnderlineButton.Down er der problemmer med Down