| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Сохранение свойств [D5, Win95/98, NT4, Win2k]

yozhik ©   (2002-08-26 17:07:00) 

Здравствуйте уважаемые мастаки!
Подскажите каким образом можно сохранить/востановить в/из ини файл(а) следуюещие свойства:
DBGrid.Columns[I].Font
DBGrid.Columns[I].Visible
DBGrid.Columns[I].Title

Заранее благодарен

---

Fox   (2002-08-27 11:37:00) [1]

А не проще использовать методы самого DbGrid-a:
DBGrid.Columns.SaveToFile(const Filename: String)
DBGrid.Columns.LoadFromFile(const Filename: String)

---

murza   (2002-08-27 10:27:00) [2]

Господа, это же все стремируется в DFM формат.

---

yozhik   (2002-08-26 18:17:00) [3]

спасибо

---

Skier   (2002-08-26 18:07:00) [4]

>yozhik
для чтения Visible примерно так :


for i:=0 to ... do begin
with (Sender as TDbGrid).Columns[i] do begin
if CompareText(IFile.ReadString("Setting", (Sender as
TDbGrid).Name + ".Columns"+IntToStr(i)
+"].Visible", "False"), "True") then
Visible := True
else
Visible := False;
end; //with
end; //for


И проверь : совподают ли у тебя (Sender as TDbGrid).Name
в момент записи и чтения...

---

yozhik   (2002-08-26 17:55:00) [5]

примерно так:

for i:=0 to (Sender as TDbGrid).Columns.Count-1 do
begin
with (Sender as TDbGrid).Columns[i] do
begin
if Visible then
IFile.WriteString("Setting",(Sender as TDbGrid).Name+".Columns"+IntToStr(i)+"].Visible","True")
else
IFile.WriteString("Setting",(Sender as TDbGrid).Name+".Columns"+IntToStr(i)+"].Visible","False");
IFile.WriteString("Setting",(Sender as TDbGrid).Name+".Columns"+IntToStr(i)+"].FontName",Font.Name);
IFile.WriteString("Setting",(Sender as TDbGrid).Name+".Columns"+IntToStr(i)+"].FontName",IntToStr(Font.Size));
end
end;

---

Skier   (2002-08-26 17:41:00) [6]

>yozhik
Покажи сначала как ты пишешь
в ини-файл это св-во ( dbgMasterIncome.Columns[0].Visible )

---

yozhik   (2002-08-26 17:37:00) [7]

Функция для записи есть.
А вот для чтения не получается... Если подскажи пожалуйста, на строке из примера

---

Skier   (2002-08-26 17:23:00) [8]

>yozhik
Ну...ежели ты хочешь писать(читать) в ини то
тебе нужно написать функции которые "превращают" св-ва
Font, Visible, Title в строку (это для записи в файл)
И функции которые "превращают" строку в св-ва Font, Visible, Title (это для чтения из файла)

---

yozhik   (2002-08-26 17:19:00) [9]

Смотрел, но не получается считать эти свойтства
Пример из ини:
dbgMasterIncome.Columns[0].Visible=False

---

Skier   (2002-08-26 17:10:00) [10]

>yozhik
см. модуль TypInfo.pas

---

Наверх