» Poradna » Programy

Delphi - RichEdit 2 fonty

Odpovědět  |  Zobrazit bez stromu  |  Upozornit redakci  |  nových odpovědí: 2/2
 |   |   |  [195.39.121.---]

Jak muzu do RichEditu vlozit 2 ruzne Fonty?
Mam 2 Edity, ktere vkladam do jednoho Richeditu. Prvni radek by mel byt klasicky treba Arial a druhy radek jinym fontem.
diky Fox

Odpovědi na otázku

 |   |   |  [82.202.5.---]

Richedit.SelAttributes
Priklad je v helpu

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |   |  [195.39.121.---]

Diky to je presne ono.
Bezi to takto:
procedure TForm1.Button1Click(Sender: TObject);
begin
  with RichEdit1.SelAttributes do
  begin
    Name := 'Carkovykod';
    Height := 30;
  end;
  RichEdit1.Lines.Add(Edit1.Text);
  with RichEdit1.SelAttributes do
  begin
        Name := 'Verdana';
        Height := 10;
  end;
  RichEdit1.Lines.Add(Edit2.Text);
end;

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Fonty



Určitě si přečtěte


Pojďme programovat elektroniku: Z čeho poskládat venkovní meteosondu, která poběží celé roky

Pojďme programovat elektroniku: Z čeho poskládat venkovní meteosondu, která poběží celé roky

** Dnes si ukážeme, z čeho postavit venkovní meteosondu ** Tak, aby fungovala celé roky ** A posílala data třeba pomocí Wi-Fi

14.  1.  2018 | Jakub Čížek | 19

Nejnovější americká výsadková loď USS Portland dostane laserovou zbraň

Nejnovější americká výsadková loď USS Portland dostane laserovou zbraň

** Právě v tomto období vstupuje do služby výsadková loď, která nese označení USS Portland (LPD-27) ** Specialisté na ní brzy přenesou laserový zbraňový systém XN-1 LaWS ** Ten dříve fungoval na výsadkové lodi třídy Austin/Trenton USS Ponce

17.  1.  2018 | Stanislav Mihulka | 5


Aktuální číslo časopisu Computer

Zachraňte nefunkční Windows

Jak nakupovat a prodávat kryptoměny

Otestovali jsme konvertibilní notebooky

Velký test 14 herních myší