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 правил.

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