Как в Excel сделать так, чтобы при нажатии на ячейку менялось цифровое значение? Есть пронумерованное поле из 16 ячеек (1, 2, 3…16), необходимо, чтобы при нажатии любой ячейки, например, 3, вместо значения 3 появлялось любое другое значение от 1 до 9.

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

Есть файл во много раз больший оперативной памяти. Собираюсь реализовать алгоритм, который загружает часть файла, помещающуюся в оперативную память и там обрабатывает. Как сделать это с максимальной эффективностью по времени на C++ под Windows? Mapping файла на оперативную память? Если так. То как определить размер куска, который поместится в оперативную память?

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

Как сделать так, чтобы выполнялась определённая процедура при изменении значения 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.
(читать всё…)