Перейти к содержанию
  • Регистрация
  • 0
Дмитрий Белковский

Как перерисовать скролл?

Вопрос

Заголовки столбцов и ячейки перерисовываю в OnDrawColumnHeader и OnDrawColumnCell соответственно. А вот скроллы рисуются стандартные. Ни свойств в стилях, ни обработчиков событий для перерисовки скроллов я не нашёл. Уважаемы гуру, подскажите как это сделать?

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Рекомендуемые сообщения

  • 0

Если я правильно понял задачу, то так :

procedure TForm2.VScrollPaint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF);
begin
 Canvas.Fill.Color := TAlphaColors.Red;
 Canvas.FillRect(ARect,0,0,[],1);
end;

procedure TForm2.FormShow(Sender: TObject);
begin
 Grid1.StylesData['vscrollbar.OnPaint'] :=  TValue.From<TOnPaintEvent>(VScrollPaint);
end;

 

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.


  • Последние посетители   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу

×
×
  • Создать...