|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Сохранение размера столбцов в DBGrid
Не могу разобраться с сохранением размеров столбцов, нашел на этом сайте код но не могу разобраться в нем. Помогите кто знает!!!
|
#2
|
||||
|
||||
В uses добавь inifiles
сохраняет размеры Код:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); var Ini: Tinifile; begin Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'MyIni.ini'); Ini.WriteInteger('Size', 'Width0', DBGrid1.Columns[0].width); Ini.WriteInteger('Size', 'Width1', DBGrid1.Columns[1].width); Ini.WriteInteger('Size', 'Width2', DBGrid1.Columns[2].width); Ini.Free; end; считывает размеры Код:
procedure TForm1.FormCreate(Sender: TObject); var Ini: Tinifile; begin Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'MyIni.ini'); DBGrid1.Columns[0].width:=ini.ReadInteger('Size', 'width0',60 ); DBGrid1.Columns[1].width:=ini.ReadInteger('Size', 'width1',50 ); DBGrid1.Columns[2].width:=ini.ReadInteger('Size', 'width2',50 ); Ini.Free; end; |
#3
|
||||
|
||||
Цитата:
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |