
Последние записи
- Как из ip адреса вывести последние цифры
- Вставка символа Unicode в RichEdit в Delphi 7
- Как поменять иконки все папок Windows 11 со стандартной желтой на свою?
- WinIO для чтения/записи портов I/O и физической памяти
- Delphi: Вывести N директорий в заданной (без рекурсии вложенных папок)
- Дополнительные кнопки мышки
- Курсы программистов. Стоит ли?
- Удаление одинаковых строк
- Создание потоков в процессе
- Вывод на печать графического файла

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

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
14th
Июл
Событие по изменению Edit.Text
Как сделать так, чтобы выполнялась определённая процедура при изменении значения Edit.Text, но только в том случае если значение отличается от бывшего там ранее текста?
5th
Июл
Как сделать картинку адаптивной, само растягивающейся к размеру монитора, чтобы размер баннера изменялся сам — подстраивался под дизайн сайта
<style type="text/css">
.css-adaptive {
display: block;
max-width: 100%;
height: auto;
}
</style>
<img src="https://programmersforum.ru/kartinka.gif" class="css-adaptive">
30th
Янв
Прозрачность тайлсета в TPNGImage
Не могу разобраться, почему нет прозрачности при отрисовке на канве.
Загружаю тайлсет tileset.png, в котором есть прозрачность в PNGImage с именем Tileset. Далее рисую на канве компонента PNGImage с именем Surface этой процедурой:
procedure TForm1.DrawTile(const X, Y, Index: Integer);
begin
Surface.Canvas.CopyRect(Bounds(X * TileSize, Y * TileSize, TileSize,
TileSize), Tileset.Canvas, Bounds((Index mod TilesetWidth) * TileSize,
(Index div TilesetWidth) * TileSize, TileSize, TileSize));
end;
…вот так:
procedure TForm1.FormPaint(Sender: TObject);
var
X, Y: Integer;
begin
for Y := 0 to MapHeight - 1 do
for X := 0 to MapWidth - 1 do
begin
DrawTile(X, Y, Map[lrGround][X][Y]);
DrawTile(X, Y, Map[lrObject][X][Y]);
end;
Canvas.Draw(0, 0, Surface);
end;
Ожидается правильная отрисовка с альфа-каналом, но не тут то было. Вобщем не могу понять, что провтыкал
29th
Янв
Как сделать VBA макрос в excel
а эта запись и есть полноценный макрос. не верите? спросите у любого полноценного программиста на VBA. не нужно ее ни во что превращать, просто пользуйтесь.
ранее предложенный макрос (или запись, если хотите) скопируйте в программный модуль своего проекта
в любом своем макросе используйте так:
Sub PtnPNX
' допустим это Ваш макрос
SetOnes ActiveSheet.Shapes.("Rectangle 3")
' все
End Sub
как только выполнили PtnPNX — смотрите не заполнились-ли ячейки за Rectangle 3 единичками.
28th
Янв
Поиск по столбцу 1-ого не нулевого значения (формулой в Microsoft Office Excel)
Необходима формула для заполнения ячейки C(n) в столбце C значением
разницы между значениями в соседнем столбце B(n) и первым не нулевым значением В(n-k) в том же столбце вверх по тому же столбцу В.
27th
Янв
Простановка единиц в ячейки под объектами (Microsoft Office Excel)
Но применить его для простановки единиц под простыми фигурами — что-то не получается.Подскажите — как проставить единицы — и под простыми фигурами тоже ?
(Или каким-то другим макросом проставить единицы под фигурами)
26th
Янв
Расчет затраченного времени между определенным рабочим временем (формулой в Microsoft Office Excel)
Надо рассчитать сколько прошло рабочего времени, например. 5 рабочих дней в неделе. выходные суббота и воскресенье, с 9-18 рабочее время. начали работать 09.01.2019 13:30 окончили 18.01.2019 16:40. Если такая формула ? или проще вручную рассчитывать.
25th
Янв
Мигающий экран на Assembler
Составить программу по выводу на экран мигающего окна, окрашенного красным цветом. Период и длительность мигания ввести с клавиатуры. Интегрированная среда программирования Tasm 5.0.
(читать всё…)
25th
VBA-макрос по копированию 10 строчек в выбранном диапазоне в Microsoft Office Excel
Исходные данные следующие:
Имеется таблица разных значений (много строк много столбцов), необходимо выбрать диапазон из нескольких строк (допустим 100 строчек), в этот диапазон строчек необходимо вставить после каждой строки ещё 10 новых строчек (получится 1000 строчек), при этом необходимо скопировать в эти 10 новых строчек информацию из другого диапазона 10 выбранных строчек (скопированных).
То есть выбрал 10 строчек которые надо скопировать, нажал кнопку скопировать (они поместились в буфер обмена копирования), после этого выбираю диапазон строк, в который нужно вставить эти 10 строк после каждой строчки (допустим диапазон из 100 строчек). Нажимаю на кнопку выполнить макрос и он добавляет в выбранном диапазоне после каждой строчки 10 строк и копирует в них информацию из 10 скопированных строк.
(читать всё…)
24th
Янв
Копирование только нужного диапазона в Microsoft Office Excel
Облако меток
css реестр ассемблер timer SaveToFile ShellExecute программы советы массив random word SQL MySQL pos ListView компоненты дата LoadFromFile form база данных сеть html php RichEdit indy строки Win Api tstringlist Image мысли макросы Edit ListBox office C/C++ memo графика StringGrid canvas поиск файл Pascal форма Файлы интернет excel Microsoft Office Excel winapi журнал ПРОграммист DelphiКупить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту

пеллетные котлы

Пеллетный котел Emtas

Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)