функция возвращает установленные атрибуты текущего
4+GutterWid;
LeftInd->Left = // левый отступ параграфа
int((RichEditl->Paragraph->LeftIndent+
RichEditl->Paragraph->FirstIndent)*RulerAdj)-
4+GutterWid;
RightInd->Le?t = II правый отступ параграфа •" Ruler->ClientWidth-6-
int((RichEditl->Paragraph->RightIndent+GutterWid)*
RulerAdj) ;
BoldButton->Down = //
состояние кнопки "жирный" RichEditl->SelAttributes->Style.Contains(fsBold) ;
ItalicButton->Down = //состояние кнопки "курсив" RichEditl->SelAttributes->Style.Contains(fsltalic) ;
UnderlineButton->Down = //
состояние кнопки "подчерк." RichEditl->SelAttributes->Style.Contains(fsUnderline) ;
BulletsButton->Down = //
состояние кнопки "нумерация"
bool(RichEditl->Paragraph->Numbering) ;
FontSize->Text = // размер шрифта itoa(RichEditl->SelAttributes->Size, sizebuf, 10);
FontName->Text = // название шрифта RichEditl->SelAttributes->Name;
// Состояние кнопок выравнивания параграфа
switch((int)RichEditl->Paragraph->Alignment) {
case 0: LeftAlign->Down =
true; break;
case 1: RightAlign->Down =
true; break;
case 2: CenterAlign->Down =
true; break;
} }
catch (...)
{ FUpdating =
false; } //
ошибка (поймано исключение) FUpdating =
false;
}
//
функция возвращает установленные атрибуты текущего текста TTextAttributes *_
fastcall TMainForm::CurrText(void) {
return
RichEditl->SelAttributes;
}
//
функция добавляет указанный шрифт к списку имеющихся int
EnumFontsProc(TLogFontA &LogFont, TTextMetricA &,
int,
Pointer Data) { ((TStrings *)Data)->Add((AnsiString)LogFont.IfFaceName);
return 1;
}
//
функция выбирает имена имеющихся шрифтов void _fastcall
TMainForm::GetFontNames
(void) { HDC hDC = GetDC(O) ;
void * cTmp
= (void *)FontName->Items;
EnumFonts(hDC, NULL, (FONTENUMPROC) EnumFontsProc,
(long) cTmp ) ;
ReleaseDC(0,hDC) ;
FontName->Sorted =
true;
}
//
Включение имени Файла в строку заголовка приложения void _fastcall TMainForm::SetFileName(const AnsiString
Содержание Назад Вперед
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий