Как сделать так, чтобы выполнялась определённая процедура при изменении значения Edit.Text, но только в том случае если значение отличается от бывшего там ранее текста?

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

<style type="text/css">

.css-adaptive {
display: block;
max-width: 100%;
height: auto;
}

</style>

<img src="https://programmersforum.ru/kartinka.gif" class="css-adaptive">

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

Не могу разобраться, почему нет прозрачности при отрисовке на канве.

Загружаю тайлсет 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;

Ожидается правильная отрисовка с альфа-каналом, но не тут то было. Вобщем не могу понять, что провтыкал

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

а эта запись и есть полноценный макрос. не верите? спросите у любого полноценного программиста на VBA. не нужно ее ни во что превращать, просто пользуйтесь.
ранее предложенный макрос (или запись, если хотите) скопируйте в программный модуль своего проекта

в любом своем макросе используйте так:

Sub PtnPNX
' допустим это Ваш макрос
  SetOnes ActiveSheet.Shapes.("Rectangle 3")
' все 
End Sub

как только выполнили PtnPNX — смотрите не заполнились-ли ячейки за Rectangle 3 единичками.

тема на форуме

Необходима формула для заполнения ячейки C(n) в столбце C значением
разницы между значениями в соседнем столбце B(n) и первым не нулевым значением В(n-k) в том же столбце вверх по тому же столбцу В.

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

Вложения

1-1.xls (64.0 Кб)

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

Надо рассчитать сколько прошло рабочего времени, например. 5 рабочих дней в неделе. выходные суббота и воскресенье, с 9-18 рабочее время. начали работать 09.01.2019 13:30 окончили 18.01.2019 16:40. Если такая формула ? или проще вручную рассчитывать.

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

Составить программу по выводу на экран мигающего окна, окрашенного красным цветом. Период и длительность мигания ввести с клавиатуры. Интегрированная среда программирования Tasm 5.0.
(читать всё…)

Исходные данные следующие:
Имеется таблица разных значений (много строк много столбцов), необходимо выбрать диапазон из нескольких строк (допустим 100 строчек), в этот диапазон строчек необходимо вставить после каждой строки ещё 10 новых строчек (получится 1000 строчек), при этом необходимо скопировать в эти 10 новых строчек информацию из другого диапазона 10 выбранных строчек (скопированных).
То есть выбрал 10 строчек которые надо скопировать, нажал кнопку скопировать (они поместились в буфер обмена копирования), после этого выбираю диапазон строк, в который нужно вставить эти 10 строк после каждой строчки (допустим диапазон из 100 строчек). Нажимаю на кнопку выполнить макрос и он добавляет в выбранном диапазоне после каждой строчки 10 строк и копирует в них информацию из 10 скопированных строк.
(читать всё…)

Вложения

Книга1.xlsx (10.6 Кб)

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