Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.089 c
1-1125990566
Hereticsoul
2005-09-06 11:09
2005.10.02
Delphi 8


14-1125936646
Desdechado
2005-09-05 20:10
2005.10.02
Аккумуляторы теряют емкость?


1-1125990091
Monk
2005-09-06 11:01
2005.10.02
Двойное срабатывание события onMouseWheel


3-1124518722
Kinda
2005-08-20 10:18
2005.10.02
Восстановление удаленных записей


1-1126129760
312Kbps
2005-09-08 01:49
2005.10.02
SetWallpaper - помогите вставить картинку !!!