Size: a a a

2020 March 19

ГМ

Геннадий Малинин in Delphi & Lazarus
23687s Lomanu4
Всем привет, так и не решил свою проблему до конца, дошел до того что закрашивает только ячейки с нужным мне текстом, где исправить что бы закрашивало всю строку ?
procedure TForm1.TMSFMXLiveGrid5GetCellLayout(Sender: TObject; ACol,
 ARow: Integer; ALayout: TTMSFMXGridCellLayout; ACellState: TCellState);
begin
begin
  if TMSFMXLiveGrid5.Cells[Acol, ARow] = 'Si'then
  begin
  with ALayout  do
    begin
    Fill.Color:=   $FFFB6E50;

    end;
procedure TForm1.TMSFMXLiveGrid5GetCellLayout(Sender: TObject; ACol,
 ARow: Integer; ALayout: TTMSFMXGridCellLayout; ACellState: TCellState);
begin
begin
  if TMSFMXLiveGrid5.Cells[<тут номер ячейки с текстом для проверки>, ARow] = 'Si'then
  begin
  with ALayout  do
    begin
    Fill.Color:=   $FFFB6E50;

    end;
источник

PB

Pshemko Bzdeshko in Delphi & Lazarus
научитесь уже использовать ```
источник

ГМ

Геннадий Малинин in Delphi & Lazarus
Pshemko Bzdeshko
научитесь уже использовать ```
для чего?
источник

PB

Pshemko Bzdeshko in Delphi & Lazarus
чтобы
был
читаемый
код
источник

PB

Pshemko Bzdeshko in Delphi & Lazarus
не та кавычка.. ```
источник

ГМ

Геннадий Малинин in Delphi & Lazarus
Pshemko Bzdeshko
не та кавычка.. ```
Это апостроф
источник

PB

Pshemko Bzdeshko in Delphi & Lazarus
монопенисуально
источник

ГМ

Геннадий Малинин in Delphi & Lazarus
Pshemko Bzdeshko
научитесь уже использовать ```
Автору скажи это. Я ответил как автор спросил
источник

AD

Aleksandr Duduk in Delphi & Lazarus
23687s Lomanu4
Всем привет, так и не решил свою проблему до конца, дошел до того что закрашивает только ячейки с нужным мне текстом, где исправить что бы закрашивало всю строку ?
procedure TForm1.TMSFMXLiveGrid5GetCellLayout(Sender: TObject; ACol,
 ARow: Integer; ALayout: TTMSFMXGridCellLayout; ACellState: TCellState);
begin
begin
  if TMSFMXLiveGrid5.Cells[Acol, ARow] = 'Si'then
  begin
  with ALayout  do
    begin
    Fill.Color:=   $FFFB6E50;

    end;
А известно в каких колонках должно присутствовать 'Si'?
источник

AD

Aleksandr Duduk in Delphi & Lazarus
И при каком условии вы хотитете закрашивать строки?
источник

AS

Alexey Shumkin in Delphi & Lazarus
🤦‍♂
Как можно писать программы, не дружа с логикой и алгоритмистикой?...
источник

ГМ

Геннадий Малинин in Delphi & Lazarus
Alexey Shumkin
🤦‍♂
Как можно писать программы, не дружа с логикой и алгоритмистикой?...
Ну, думаю многие не сразу понимают некоторые принципы работы. Т.е. проблема не с логикой, а с имением знаний
источник

ГМ

Геннадий Малинин in Delphi & Lazarus
Например, события. Там есть обычные события, например "клик", а есть такие, которые вызываются постоянно. Например, та же отрисовка или getdata
источник

АП

Андрей Подопригора in Delphi & Lazarus
В fmx раскраска грида отличается от vcl? Я обычно красил через событие (если память не изменяет) OnDraw что-то там, не помню)) как в DBGrid, так и в cxGrid
источник

ГМ

Геннадий Малинин in Delphi & Lazarus
Андрей Подопригора
В fmx раскраска грида отличается от vcl? Я обычно красил через событие (если память не изменяет) OnDraw что-то там, не помню)) как в DBGrid, так и в cxGrid
OnDrawCell
источник

АП

Андрей Подопригора in Delphi & Lazarus
всё, нашёл DBGrid1DrawColumnCell
источник

SB

Sergey Bodrov in Delphi & Lazarus
За каким-то немыслимым хреном сделал парсер, который из страниц DRKB3 выкидывает всю лишнюю HTML разметку и прочий мусор, а значимую разметку переводит в markdown.
источник

SB

Sergey Bodrov in Delphi & Lazarus
Примерно так:
Title: Как инициализировать BDE, если она установлена в нестандартном месте?
Author:
Source: http://www.baltsoft.com/
ID: 02492

I need to use a BDE that is placed in another directory than default. How can I do it? DbiInit(pDbiEnv) doesn't work when pDbiEnv < > nil (not default).

Answer:

<code>pDbiEnv := nil;
check(DbiInit(pDbiEnv));
</code>

or if you don't need the pointer simply

 check(DbiInit(nil));
источник

SB

Sergey Bodrov in Delphi & Lazarus
А еще переводит все в UTF-8, сключая всякие адские HTML-уникоды.
источник

SB

Sergey Bodrov in Delphi & Lazarus
Вместо 180 Мб получилось 50
источник