26 Reply by pavlenko.vladimir.v (edited by pavlenko.vladimir.v 2023-10-24 13:34:12)

  • From: Нефтеюганск
  • Registered: 2022-06-03
  • Posts: 455

Re: цвет в место иконок в выподающем меню грида

sparrow wrote:
 
  Form1.TableGrid1.dbPopupMenu.Items[5].Bitmap.height := 16;
  Form1.TableGrid1.dbPopupMenu.Items[5].Bitmap.width := 16;
  Form1.TableGrid1.dbPopupMenu.Items[5].bitmap.Canvas.Pen.Color:=$000080FF;
  Form1.TableGrid1.dbPopupMenu.Items[5].bitmap.Canvas.Brush.Color:=$000080FF;
  Form1.TableGrid1.dbPopupMenu.Items[5].bitmap.Canvas.roundrect(1,3,16,14,2,2);

Прикол! У меня так не работало   
Оказывается Items не раскрашивался до

if (sID >= 0) then
  begin
    if (MouseRight) then
    begin
      if (SQLExecute('SELECT IFNULL(read,0) FROM books WHERE id=' + IntToStr(frmMain.tgListBooks.dbIndexToID(sID))) = '0') then
          frmMain.tgListBooks.dbPopupMenu.Items[3].Checked := False else
          frmMain.tgListBooks.dbPopupMenu.Items[3].Checked := True;
      if (SQLExecute('SELECT IFNULL(favorites,0) FROM books WHERE id=' + IntToStr(frmMain.tgListBooks.dbIndexToID(sID))) = '0') then
          frmMain.tgListBooks.dbPopupMenu.Items[2].Checked := False else
          frmMain.tgListBooks.dbPopupMenu.Items[2].Checked := True;
    end;

а после прекрасно все работает
может это связано с событием OnMouseDown ????
Вот только части меню стали светлыми.
https://myvisualdatabase.com/forum/misc.php?action=pun_attachment&item=9995&download=0

Post's attachments

Attachment icon 2023-10-24_18-31-38.png 18.14 kb, 15 downloads since 2023-10-24 

27 Reply by sparrow (edited by sparrow 2023-10-24 15:32:38)

  • From: Рідна МАТИ, UKRAINE
  • Registered: 2018-06-02
  • Posts: 895

Re: цвет в место иконок в выподающем меню грида

проверил закрашивание до чека и после в событии OnMouseDown
Раскрашивается  в обоих случаях.

Если возникает белая рамка переставьте
Form1.TableGrid1.dbPopupMenu.Items[5].bitmap.Canvas.Pen.Color:=$000080FF;
на первое место до определения размеров.

  • From: Белгород
  • Registered: 2018-12-03
  • Posts: 657

Re: цвет в место иконок в выподающем меню грида

А эта настройка обязательно должна быть в меню "списка книг"..?

Системы безопасности в Белгороде

vovka3003's Website

  • From: Нефтеюганск
  • Registered: 2022-06-03
  • Posts: 455

Re: цвет в место иконок в выподающем меню грида

vovka3003 wrote:

А эта настройка обязательно должна быть в меню "списка книг"..?

я в начале эту настройку в выборе темы делал, но она мне там не понравилась

  • From: Нефтеюганск
  • Registered: 2022-06-03
  • Posts: 455

Re: цвет в место иконок в выподающем меню грида

sparrow wrote:

проверил закрашивание до чека и после в событии OnMouseDown
Раскрашивается  в обоих случаях.

Если возникает белая рамка переставьте
Form1.TableGrid1.dbPopupMenu.Items[5].bitmap.Canvas.Pen.Color:=$000080FF;
на первое место до определения размеров.

А у меня только после, значит где-то косяк..

31 Reply by pavlenko.vladimir.v (edited by pavlenko.vladimir.v 2023-10-25 07:02:35)

  • From: Нефтеюганск
  • Registered: 2022-06-03
  • Posts: 455

Re: цвет в место иконок в выподающем меню грида

Переработал, уже на много лучше
https://myvisualdatabase.com/forum/misc.php?action=pun_attachment&item=9998&download=0

Post's attachments

Attachment icon 2023-10-25_05-40-15.png 21.35 kb, 16 downloads since 2023-10-25