DBGrid и *.ini файл

[Voldemort93]

Доброго времени суток.
Подскажите, пожалуйста, имеется таблица с данными. при выборе строки необходимо менять ее цвет.
сделал так:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if CheckBox1.Checked=true then begin
with  DBGrid1.Canvas do begin
Brush.Color:=clGreen;
Font.Color:=clWhite;
FillRect(Rect);
TextOut(Rect.Left+2,Rect.Top+2,Column.Field.Text);
end;
end;
end;

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

[Sciv]

Непонятно, при чем тут ini-файл... Если сохранять цвета строка - тогда для работы с ini используется тип TIniFiles модуля IniFiles. Объявляете Переменную типа

IFile: TIniFiles;

далее создаете экземпляр

IFile:=TIniFiles.Create(<имя ini-файла, можно с полным путем>);

В этой структуре: <имя ini-файла, можно с полным путем> я обычно делаю так:

ExtractFileDir(Application.ExeName) +'\config.ini' - если файл лежит в той же папке, где exe-шник программы.

А далее можете читать и писать в файл секциями, например логическое значение:

b:=IFile.ReadBool(<ИмяСекции>, <Имя Переменной>, <Значение по дефолту, если переменная неопределена>);

IFile.WriteBool(<Имя секции>,<имя переменной>, b);


ну и так далее... Там не очень много функций, в этом типе

[Sciv]

Сорри, недочитал исходный пост - абзац про FormStorage прошел мимо глаз

Если через FS делать - там есть StoredProps, попробуйте в него вписать свойство DBGrid.Columns. В IniFileName указываете имя ini-файла, а в IniSection - секцию в нем. Чтобы сохранение происходило при закрытии - Active:=true.

Да, чуть не забыл - сохранятся только те свойства, которые Published. Ваши Columns от ДБГрида в них как-раз входят.

Вот так как-то, если теоретически. Практически я им пользовался в более простых случаях, чем сохранение цветов отдельных строк, поэтому не скажу, сработает или нет - проверяйте.

[Voldemort93]

Сообщение от Sciv

Сорри, недочитал исходный пост - абзац про FormStorage прошел мимо глаз

Если через FS делать - там есть StoredProps, попробуйте в него вписать свойство DBGrid.Columns. В IniFileName указываете имя ini-файла, а в IniSection - секцию в нем. Чтобы сохранение происходило при закрытии - Active:=true.

Да, чуть не забыл - сохранятся только те свойства, которые Published. Ваши Columns от ДБГрида в них как-раз входят.

Вот так как-то, если теоретически. Практически я им пользовался в более простых случаях, чем сохранение цветов отдельных строк, поэтому не скажу, сработает или нет - проверяйте.

Этот способ не сработал... свойства Columns сохраняются, но назад не восстанавливаются...

Непонятно, при чем тут ini-файл... Если сохранять цвета строка - тогда для работы с ini используется тип TIniFiles модуля IniFiles. Объявляете Переменную типа

IFile: TIniFiles;

далее создаете экземпляр

IFile:=TIniFiles.Create(<имя ini-файла, можно с полным путем>);

В этой структуре: <имя ini-файла, можно с полным путем> я обычно делаю так:

ExtractFileDir(Application.ExeName) +'\config.ini' - если файл лежит в той же папке, где exe-шник программы.

А далее можете читать и писать в файл секциями, например логическое значение:

b:=IFile.ReadBool(<ИмяСекции>, <Имя Переменной>, <Значение по дефолту, если переменная неопределена>);

IFile.WriteBool(<Имя секции>,<имя переменной>, b);


ну и так далее... Там не очень много функций, в этом типе

касательно этого способа - если фиксировать цвет строки ДБГрида должно получится что-то типа такого:

procedure TForm1.SaveIni;
 var
 Options: TIniFile;
 begin
 Options:= TIniFile.create('D:\MyIni.ini');
 Options.WriteInteger('Colors','DBGrid1', Integer(DBGrid1.Canvas.Brush.Color));
 Options.free;
 end;

procedure TForm1.LoadIni;
 var
 Options: TIniFile;
 begin
 Options:= TIniFile.create('D:\MyIni.ini');
 I:=Options.ReadInteger('Colors','DBGrid1', Integer(DBGrid1.Canvas.Brush.Color));
 Options.free;
 end;

если да, то тоже не получается.
Может еще какие-то варианты?

[Sciv]

Для того, чтоб получилось, нужно DBGrid построчно перебирать. В цикле если строка выделена, записывать в ини (как раз как у Вас). А так - она только из первой строчки канвас берет. Чтоб пройти по строкам DBGrid, есть три варианта:

1. Пройти не по ДБГриду, а по DataSource; поскольку Грид с ним связан - строки в нем будут меняться;
2. Написать свой класс - наследник от ДБГрида для доступа к protected-свойству Row;
3. Использовать стороннюю библиотек компонент (например, EhLib), где уже есть доступ к свойству Row (и еще куча нужных фишек).

НО! чем больше база, тем дольше будет сохранение ini-файла (пока по всей таблице пройдет и найдет выделенные строки).

Поэтому не думаю, что данный вариант приемлем.

[Аватар]

Если база одно пользовательская - прямо в одном из полей записи таблицы можно держать признак для раскраски. Если многопользовательская - сделать отдельную таблицу и хранить в ней идентификаторы нужных записей и пользователей. Оптимальней не придумать

[Sciv]

В общем, единственный вариант (имеется в виду исходя из исходной задачи, потому что способ Аватара действительно оптимальней и мне нравится больше), приходящий на ум - это отслеживать процесс выделения строк в реальном времени. Например:

Объявляем переменную sel: string, в ней (через разделитель, например, ';', будем хранить номера выделенных строк). Инициализируем где-нибудь в начале программы

sel:=options.ReadString('COLOR','GR EEN',';'); //Секция COLOR, параметр GREEN содержит номера строк зеленого цвета, по умолчанию равен ';'


При выделении в процедуру обработки добавляем:

if СТРОКА_ВЫДЕЛЕНА then //СТРОКА_ВЫДЕЛЕНА - логическая переменная, определяющая состояние строки
sel:=sel+intToStr(номер строки)+';'
else begin
p:=pos(';'+IntToStr(НомерСтроки)+'; ',sel); //p - целое для определения позиции подстроки в строке
if p<>0 then Delete(sel,p,length(IntToStr(НомерС троки))+1);
end;

При выходе из программы сохраняем строку в ини:

options.WriteString('COLOR','GREEN' ,sel);

[Voldemort93]

Для того, чтоб получилось, нужно DBGrid построчно перебирать. В цикле если строка выделена, записывать в ини (как раз как у Вас). А так - она только из первой строчки канвас берет. Чтоб пройти по строкам DBGrid, есть три варианта: ...

Буду пробовать, Спасибо.

[Voldemort93]

Сообщение от Sciv

В общем, единственный вариант, приходящий на ум - это отслеживать процесс выделения строк в реальном времени. Например:

Объявляем переменную sel: string, в ней (через разделитель, например, ';', будем хранить номера выделенных строк). Инициализируем где-нибудь в начале программы

sel:=options.ReadString('COLOR','GR EEN',';'); //Секция COLOR, параметр GREEN содержит номера строк зеленого цвета, по умолчанию равен ';'


При выделении в процедуру обработки добавляем:

if СТРОКА_ВЫДЕЛЕНА then //СТРОКА_ВЫДЕЛЕНА - логическая переменная, определяющая состояние строки
sel:=sel+intToStr(номер строки)+';'
else begin
p:=pos(';'+IntToStr(НомерСтроки)+'; ',sel); //p - целое для определения позиции подстроки в строке
if p<>0 then Delete(sel,p,length(IntToStr(НомерС троки))+1);
end;

При выходе из программы сохраняем строку в ини:

options.WriteString('COLOR','GREEN' ,sel);

Спасибо, сейчас попробую использовать данный способ)