Перейти к содержанию
  • Регистрация

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. Botov Nikita

    "Ластик" для TImage

    Добрый день Уважаемые! Подскажите каким образом можно реализовать функцию ластика в XE 10.3? Например на форме лежит 2 TImage один над другим, и когда мышкой проводим по верхней картинке, остается "след" и видно нижнюю картинку? С Уважением!
×
×
  • Создать...