• Registered: 2018-03-04
  • Posts: 377

Topic: Подскажите, что не так с оформлением Grid

Вроде настроек не крутил а вид без рамки, подскажите, как вернуть рамку...

Post's attachments

Attachment icon Безымянный.png 973 b, 149 downloads since 2020-11-08 

  • Registered: 2018-03-04
  • Posts: 377

Re: Подскажите, что не так с оформлением Grid

Да, а еще, как можно запретить изменять ширину столбцов. А то прога, иногда подглючивает, и вместо курсора мыши показывает значек изменения ширины столбцов...

  • Registered: 2018-02-02
  • Posts: 139

Re: Подскажите, что не так с оформлением Grid

vit007, рамка для таблицы

Form1.TableGrid1.BorderStyle:=bsSingle;

Запретить изменение таблицы можно выставив галку в Свойствах ReadOnly -> True


или делать автоматический подбор ширины колонок http://myvisualdatabase.com/doc_ru/proc … FitMo.html

Yana

4 Reply by vit007 (edited by vit007 2020-11-09 07:34:12)

  • Registered: 2018-03-04
  • Posts: 377

Re: Подскажите, что не так с оформлением Grid

Не спасает, т.е. bsSingle не рисует рамку, наверно потому что использую EnableVisualStyle := False,
т.к. в 10ке нелепо смотрится Grid. Остается Panel подрисовать снизу.

ReadOnly -> True не дает должного эффекта, как меняется ширина столбцов так и меняется...

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

Re: Подскажите, что не так с оформлением Grid

var i:integer;
...
    with  Form1.TableGrid1 do
    begin
     for i:=0 to Columns.Count-1 do
        begin
            Columns[i].Options :=
            Columns[i].Options +
            coFixedSize;
        end;
    end;
Системы безопасности в Белгороде

vovka3003's Website