Перейти к содержанию

Botov Nikita

Пользователи
  • Активность

    2
  • Зарегистрирован

  • Посещение

Информация о Botov Nikita

  • Звание
    Новичок
  1. Отвечу сам на свой вопрос: if Sender is TImage then with TImage(Sender).Bitmap.Canvas do if BeginScene then try ClearRect(TRectF.Create(x-10, y-10, x+10, y),1); finally EndScene; end; Единственное, стирает прямоугольной формой, как сделать круглой не нашел. Тему можно закрывать
  2. Добрый день Уважаемые! Подскажите каким образом можно реализовать функцию ластика в XE 10.3? Например на форме лежит 2 TImage один над другим, и когда мышкой проводим по верхней картинке, остается "след" и видно нижнюю картинку? С Уважением!
×
×
  • Создать...