1 (edited by sibprogsistem 2020-07-21 14:01:32)

Topic: Таблица цвета

создал таблицу цвета

не могу понять как отключить цвет выделения строки  и цвет при смене фокуса...

http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&item=6874&download=0

Post's attachments

Attachment icon Безымянный.png 4.33 kb, 107 downloads since 2020-07-21 

2 (edited by k245 2020-07-26 07:28:03)

Re: Таблица цвета

procedure Form1_OnShow (Sender: TObject; Action: string);
begin
  Form1.TableGrid1.AppearanceOptions := aoDontFillCells + aoHideFocus;
end;

http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&item=6881&download=0

Post's attachments

Attachment icon Параметры внешнего вида.png 53.19 kb, 113 downloads since 2020-07-26 

Визуальное программирование: блог и телеграм-канал.

3 (edited by sibprogsistem 2020-07-26 13:38:50)

Re: Таблица цвета

k245 wrote:
procedure Form1_OnShow (Sender: TObject; Action: string);
begin
  Form1.TableGrid1.AppearanceOptions := aoDontFillCells + aoHideFocus;
end;

так не получилось полностью таблицы закрашивает, наверное из-за того, что у меня рабочие формы parent.mainFrorm

но я сделал...
отключил goSelectFullRow
и добавил такой код

procedure frmSettingQuestion_tgColorBack_OnCellClick (Sender: TObject; ACol, ARow: Integer);
begin
  frmSettingQuestion.tgColorBack.InactiveSelectionColor:= frmSettingQuestion.tgColorBack.Cell[Acol,Arow ].Color;
end;