qde razmestit etu funksiyu
amely © (2005-08-24 22:02:00)
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:00) [1]
Удалено модератором
Примечание:
См. п.п. 5 и 6 правил.
Наверх 
ЧАТ |
Орешник |
|
