Форум: "Базы";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];
ВнизЛамерский вопрос про DbGrid Найти похожие ветки
← →
Quest (2002-02-13 12:20) [8]Сохраняю исключительно в ini файле, для того чтобы легко можно было лекго сохранять и переносить настройки ..
Сохранить:
Uses IniFiles;
...
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
If MessageDLG("Желаете выйти из программы ?"+
"",mtConfirmation,[mbYes,mbNo],0) = mrYes Then Begin
With TiniFile.Create(CHangeFileExt(ExtractFilename(Application.ExeName),".INI")) DO
Try
// сохранение размеров и местоположения главного окошка
WriteInteger("Position", "Left",Left);
WriteInteger("Position", "Top",Top);
WriteInteger("Size", "Width",Width);
WriteInteger("Size", "Height",Height);
// сохранение размеров столцов DBGrid
WriteInteger("DBGrid1", "Width1",DBGrid1.Columns[0].Width );
WriteInteger("DBGrid1", "Width2",DBGrid1.Columns[1].Width );
WriteInteger("DBGrid1", "Width3",DBGrid1.Columns[2].Width );
Finally
Free;
End;
CanClose := True;
End
Else
CanClose := False;
End;
Установить:
procedure TForm1.FormCreate(Sender: TObject);
begin
With TiniFile.Create(CHangeFileExt(ExtractFilename(Application.Exename),".INI")) DO
Try
// установка размеров и местоположения главного окошка
Left := ReadInteger("Position", "Left", 171);
Top := ReadInteger("Position", "Top", 61);
Width := ReadInteger("Size", "Width", 511);
Height := ReadInteger("Size", "Height", 400);
// установка размеров столцов DBGrid
DBGrid1.Columns[0].Width:=ReadInteger("DBGrid1", "Width1",80 );
DBGrid1.Columns[1].Width:=ReadInteger("DBGrid1", "Width2",80 );
DBGrid1.Columns[2].Width:=ReadInteger("DBGrid1", "Width3",80 );
Finally
Free;
End;
End;
... разумеется можно автоматизировать эти процедуры и в цикле перебирать существующие TDBGRID, определяя количество столбцов и их размеры.
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c