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

made in programmersforum 8

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

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

28th
Ноя

Вынести часть текста из многострочной ячейки по условию (Excel)

Как вынести часть текста из многострочной ячейки по условию? Наборка текста постоянно меняется. Никак не могу придумать такое условие.
Excel 2016.

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

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

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