• Сервис онлайн-записи на собственном Telegram-боте
    Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое расписание, но и напоминать клиентам о визитах тоже. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
    Для новых пользователей первый месяц бесплатно.
    Чат-бот для мастеров и специалистов, который упрощает ведение записей:
    Сам записывает клиентов и напоминает им о визите;
    Персонализирует скидки, чаевые, кэшбэк и предоплаты;
    Увеличивает доходимость и помогает больше зарабатывать;


  • Иллюстрированный самоучитель по Turbo Pascal

    Процедуры

    Procedure Line (X1, Y1, Х2, Y2: Integer) Рисует линию от точки X1, Y1 до точки Х2, Y2.

    Procedure LineRel(DX, DY: Integer) Рисует линию от текущего указателя к точке, заданной приращением координат.

    Procedure LineTo(X, Y: Integer) Рисует линию от текущего указателя к точке X, Y.

    Procedure MoveRel (DX, DY) Смещает текущий указатель к точке, заданной приращением координат.

    Procedure MoveTo(X, Y: Integer) Смещает текущий указатель к точке X, Y.

    Procedure OutText (TextString: String) Выводит текстовую строку на экран.

    Procedure OutTextXY(X, Y: Integer; TextString: String) Выводит текст в заданное место экрана.

    Procedure PieSlice(X, Y: Integer; StAngle, EndAngle, Radius: Word) Рисует и штрихует сектор окружности радиусом Radius с центром в X.Y от начального угла StAngle к конечному углу EndAngle.

    Procedure PutImage(X, Y: Integer; var BitMap; BitBlt: Word) Выводит битовый образ на экран.

    Procedure PutPixel(X, Y; Integer; Color: Word) Выводит точку цветом Color с координатами X. Y.

    Procedure Rectangle (XI, Yl, X2, Y2: Integer) Рисует прямоугольник, используя текущий цвет и тип линии.

    Procedure RestoreCRTMode Восстанавливает текстовый режим работы экран.

    Procedure Sector(X, Y: Integer; StAngle, EndAngle, XR, YR: Word) Рисует и штрихует сектор эллипса радиусами XR, YR с центром в X, Y от начального угла StAngle к конечному углу EndAngle.

    Procedure SetActivePage(Page; Word) Устанавливает активную страницу для графического вывода.

    Procedure SetAllPalette(var Palette) Изменяет все цвета палитры.

    Procedure SetAspectRatio(XAsp, YAsp: Word) Изменяет масштабный коэффициент отношения сторон графического экрана.

    Procedure SetBkColor (Color: Word) Устанавливает цвет фона.

    Procedure SetColor (Color: Word) Устанавливает основной цвет, которым будет осуществляться рисование.

    Procedure SetFillPattern (Pattern: FillPatternType; Color: Word) Устанавливает произвольный образец штриховки.

    Procedure SetFillStyle (Pattern, Color: Word) Устанавливает образец штриховки и цвет.

    Procedure SetGraphBuf Size (Size: Word) Позволяет изменить размер буфера для функций штриховки.

    Procedure SetGraphMode(Mode: Integer) Устанавливает новый графический режим и очищает экран.

    Procedure SetLineStyle(LineStyle, Pattern, Thickness: Word) Устанавливает толщину и стиль линии.

    Procedure SetPalette(ColorNum, Color: Word) Заменяет цвет палитры с номером ColorNum на цвет Color.

    Procedure SetRGBPallete(ColorNum, Red, Green, Blue: Integer) Позволяет модифицировать палитру для IBM 8514 и VGA.

    Procedure SetText Justify (Horiz, Vert: Word) Устанавливает выравнивание текста, используемое в процедурах OutText и OutTextXY.

    Procedure SetTextStyle (Font, Direction, CharSize; Word) Устанавливает текущий шрифт, стиль и размер текста.

    Procedure SetUserCharSize(MultX, DivX, MultY, DivY: Word) Изменяет пропорции шрифта.

    Procedure SetViewPort (X1, Y1, X2, Y2: Integer; ClipOn; Boolean) Устанавливает текущее окно для графического вывода.

    Procedure SetVisualPage(PageNo: Word) Устанавливает номер видимой графической страницы.

    Procedure SetWriteMode(WriteMode; Integer) Устанавливает режим вывода (копирование или XOR) для линий, рисуемых процедурами DrawPoly, Line, LineRel, LineTo, Rectangle.

    Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.