Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

27th
Ноя

Градиент в Javascript: градиент текста

Решил попробовать градиент текста.. Вроде текст выводит, но буквы пустые с окантовкой, не залиты градиентом. Как их залить градиентом чтобы внутри букв не была пустота?

Код:


<!DOCTYPE html>
<html>
    <head>
        <meta charset="utf-8">
		<style>
  .teststyle{
      padding: 5px;
	  box-shadow: 20px 20px 20px gray;
	  border:8px dashed brown;
	  border-radius: 50px; 
  }
</style>
        <title>Canvas в HTML5</title>
    </head>
    <body onload='draw()'>
<canvas class='teststyle' id='canvas' width='800' height='200'></canvas>

        <script>
var c=document.getElementById("canvas");
var ctx=c.getContext("2d");

ctx.font="20px Georgia";
ctx.strokeText("Hello World!",10,50);

ctx.font="80px bold Verdana";

// Создаем градиент
var gradient=ctx.createLinearGradient(0,0,c.width,0);
gradient.addColorStop("0","magenta");
gradient.addColorStop("0.5","blue");
gradient.addColorStop("1.0","red");

// Заполним градиентом
ctx.strokeStyle=gradient;

//Отступ слева, отступ сверху
ctx.strokeText("Добро пожаловать!",10,150);
  
        </script>
    </body>
</html>

Миниатюры

Нажмите на изображение для увеличения Название: Снимок.JPG Просмотров: 2 Размер: 39.4 Кб ID: 94952

(читать всё…)

Добавлено в JavaScript. Дата Ноябрь 27th, 2018

26th
Ноя

Поиск и переименование файлов

В каталоге имеются файлы двух типов:
1. file.html
2. file.html.tmp
Необходимо у всех файлов с «.tmp» удалить это окончание, т.е. найти их и переименовать.

(читать всё…)

Добавлено в си шарп. Дата Ноябрь 26th, 2018

24th
Ноя

Простое представление (решение на MSSQL)

Нужно чтобы представление:
Отображало количество арендованных жилых и нежилых объектов недвижимости физическими и юридическими лицами каждый месяц текущего года.

(читать всё…)

Добавлено в sql. Дата Ноябрь 24th, 2018

23rd
Ноя

Поменять в Делфи-программе курсор мыши (SetCursor)

Задача такая: по кнопке нужно изменить курсор, курсор я уже заготовил, проблема его поменять на 10 винде. Я пишу setcursor(cur), и по нажатию на заветную кнопень, менее секунды появляется мой курсор и снова ставит обратно как было, объясните почему он так делает?
вот код как я это реализую

Код:


procedure TForm1.Button1Click(Sender: TObject);
Var
  Cur: HICON;
begin
  Cur := LoadCursorFromFile(PWideChar(ExtractFilePath(Application.ExeName) +
    '1.cur'));
  SetCursor(Cur);
end;

(читать всё…)

Добавлено в Delphi. Дата Ноябрь 23rd, 2018

22nd
Ноя

Разрезать JPEG на 12 равных частей

Может ли кто-то помочь с кодом? Знаю что это делается как-то через CopyRect, но как именно равные части получить не соображу.

(читать всё…)

Добавлено в Delphi. Дата Ноябрь 22nd, 2018

21st
Ноя

Datetostr в Windows 10 выводит день недели

Есть программа и пользователи Windows 10 (не все, зависимости пока не нашел) сталкиваются с множественными ошибками в работе этой программы. Опытным путем выяснилось, что при инструкции записи в базу данных и даже просто отображения текущий даты с помощью «DateToStr(now)» результат получается не совсем ожидаемым. А именно, к примеру: «Пт 12.01.00». Соответственно, при попытке обратного преобразования «StrToDate» возникает ошибка: «Пт 12.01.00 is not a valid date».

Может, кто сталкивался с подобным и знает как можно с этим бороться? Не хотелось бы пилить костыль преобразования строки в нужную дату путем удаления лишних «Пт «, «Чт » и так далее.

(читать всё…)

Добавлено в Delphi. Дата Ноябрь 21st, 2018

20th
Ноя

Использование OpenCL в Delphi-коде под Win64

Для ускорения расчётов в программе, написанной на Delphi XE2 (…XE6), ранее использовались потоки (объект TThread) на CPU. Сейчас возникла идея использовать возможности GPU. Простой, как казалось, путь — подключить модули (заголовочные файлы к OpenCL.dll по сути) — и использовать возможности OpenCL от Khronos Groupe.

Работает всё это, но…только при компиляции дельфового проекта под Win32. А мне нужны большие массивы, динамические: компиляция всей научной программы под Win64 просто необходима (используем иногда до 12 Гбайт оперативки CPU).

При компиляции под Win32 работает, а под Win64 — нет!!

(читать всё…)

Добавлено в Delphi. Дата Ноябрь 20th, 2018

18th
Ноя

Копирование данных в Excel «отталкиваясь» от последней заполненой строки

Есть данные (для примера в столбцах A:G) и нужно скопировать данные одной строки и вставить в определенную-другую строку этого же листа в диапазон например H:N или O:U и тд.
Трудность для меня заключается в том что строки каждый день добавляются и для работы макросу нужно «отталкиваться» от последней строки с данными (снизу).

(читать всё…)

Добавлено в VBA. Дата Ноябрь 18th, 2018

17th
Ноя

Вставка данных в Excel после последней заполненной ячейки

Необходимо в первом столбце «A» программно кодом найти последнюю ячейку с заполненными данными (после которой по столбцу вообще нет никаких данных) и в последующей пустой ячейке крайне левого столбца «A» выполнить только код ActiveSheet.Paste — код по вставке данных.

(читать всё…)

Добавлено в VBA. Дата Ноябрь 17th, 2018

16th
Ноя

Нарисовать синусоиду или огибающую на PaintBbox с использованием BASS.DLL

Загружаю файл в bass c синусом 1 кгц
мне нужно нарисовать синусоиду или огибающую на paintbox , не могу найти ,как сделать это на bass.dll , есть примеры с WAV форматом , через звуковую карту непосредственно , а мне так не надо.Типа этого.Спасибо.

Изображения