Работа со стилови врз селектиран текст напишан во RichEdit компонента

Прво се подига програмскиот јазик Delphi и се прави избор на нова апликација File-NEW Application. Се поставува главно мени (Main Menu - Font ) со опции Дебели, Накосени и Подвлечени и една компонента RichEdit од палетата со компоненти Win32.

На опцијата Дебели се впишува следниот код

richedit1.SelText;
if richedit1.SelAttributes.Style=[fsBold] then                                                             //ако се дебели
    richedit1.SelAttributes.Style:=richedit1.SelAttributes.Style-[fsBold]                    //да ги направи нормални
else       
    richedit1.SelAttributes.Style:=richedit1.SelAttributes.Style+[fsBold] ;                  //ако не се дебели да ги задебели
 

 На опцијата Накосени се впишува следниот код richedit1.SelText;
 

if richedit1.SelAttributes.Style=[fsItalic] then                                                            //ако се накосени
    richedit1.SelAttributes.Style:=richedit1.SelAttributes.Style-[fsItalic]                   //да ги направи нормални
else
    richedit1.SelAttributes.Style:=richedit1.SelAttributes.Style+[fsItalic] ;                //ако не се накосени да ги накоси
 

На опцијата Подвлечени се впишува следниот код richedit1.SelText;
 

if richedit1.SelAttributes.Style=[fsUnderline] then                                                     //ако се подвлечени
    richedit1.SelAttributes.Style:=richedit1.SelAttributes.Style-[fsUnderline]            //да ги направи нормални
else
    richedit1.SelAttributes.Style:=richedit1.SelAttributes.Style+[fsUnderline];          //ако не се подвлечени да ги подвлече
 

со ова оние опции кои сте ги избрале се доделуваат само на селектираниот текст.

На опцијата Излез се впишува следниот код

form1.Close; или Application.Terminate;