Павел Караваев

За прозрачность отвечает свойство Opacity. А фоновый цвет, хмм... Ну можно поставить прозрачность и за таблицей поставить какой-нибудь Rectangle, закрасив его нужным Вам цветом.

Добрый вечер, форумчане! Возможно ли менять ширину разделительных линий в StringGrid'е, гугол мне с этим не помог. Мне необходимо каждую пятую вертикальную и каждую пятую горизонтальную линию чуть шире остальных.(Delphi 10.2, Windows)

1)Среда - Delphi 10.2, ОС - Windows и Android от 4.2.2 (сейчас под винду). 2)Кривенький код: //заполнение таблицы procedure TForm1.ZapolnenieSG; var i,j:integer; begin zoom:=20; SG.RowCount:=n; for i := 0 to m-1 do begin SG.AddObject(TStringColumn.Create(nil)); SG.ColumnByIndex(i).Width:=zoom; end; SG.RowHeight:=zoom; for i := 0 to m-1 do for j := 0 to n-1 do begin SG.Cells[j,i]:=inttostr(ImMas[i,j]); end; end; //собственно, сама закраска procedure TForm1.SGDrawColumnCell(Sender: TObject; const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF; const Row: Integer; const Value: TValue; const State: TGridDrawStates); var aTextRect: TRectF; aTextLayout: TTextLayout; begin aTextRect := Bounds; aTextRect.Right := Round(aTextRect.Right) + 1; aTextRect.Bottom := Round(aTextRect.Bottom) - 1; Canvas.FillRect(aTextRect, 0, 0, AllCorners, 1); if value.tostring = '1' then Canvas.ClearRect(aTextRect, TAlphaColorRec.White) else Canvas.ClearRect(aTextRect, TAlphaColorRec.Black); end;

Люди добрые, помогите) Я не понимаю, как закрасить ячейки в зависимости от информации в данной ячейке. Если в ячейке 1, то нужно покрасить белым, если 0, то чёрным. Имеющиеся на форуме ответы не помогают, ячейки не красятся=(