Текущий архив: 2005.10.02;
Скачать: CL | DM;

Вниз

qde razmestit etu funksiyu   Найти похожие ветки 

← →
amely   (2005-08-24 22:02) [0]

na proyekte Richedit ya nashol takuyu funksiyu,no koqda kopiruyu etu funksiyu na svoy proyekt viletayut oshibki,ne smotrya na to chto ya peremenuyu vse Name-i. ya sama nikoqda function-yami ne rabotala,no shas ochen nujen.vot eto funksiya

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

---

← →
Piter ©   (2005-08-24 22:15) [1]

Удалено модератором
Примечание: См. п.п. 5 и 6 правил.

---

Страницы: 1 вся ветка

Текущий архив: 2005.10.02;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.026 c