Криво работает ColorBox

← →
sloug © (2004-12-18 18:57) [0]

Добрый вечер! Дело такое, сделал свойства в программе, чтобы можно было менять цвет компонентов (или элементов компонентов). Значения записываю в inifile. И делаю чтобы при активации формы, на форме свойств, в ColorBox-ах отображались цвета соответствующих им компонентов. Пишу все одинаково, но в последних двух ColorBox-ах выставляется "левый" цвет. Почему так происходит не могу понять. Может есть ограничения на кол-во компонентов ?

← →
AlterEgo of WondeRu © (2004-12-18 19:04) [1]

а причем тут Парадокс?
да и код покажи!

← →
Yanis © (2004-12-18 19:18) [2]

Телепаты в отпуске. Код давай(те).

← →
sloug © (2004-12-18 22:28) [3]

Сначала при сохранении:
procedure TForm4.BitBtn1Click(Sender: TObject);
begin
Options:=TiniFile.Create(Path+"Options.ini");
Options.WriteInteger("MainForm", "FormColor", Form1.Color);
Options.WriteInteger("MainForm", "BitBtn1TColor", Form1.BitBtn1.Font.Color);
Options.WriteInteger("MainForm", "BitBtn2TColor", Form1.BitBtn2.Font.Color);
Options.WriteInteger("MainForm", "DBGridColor", Form1.DBGrid1.Color);
Options.WriteInteger("MainForm", "DBGridTColor", Form1.DBGrid1.Font.Color);
Options.WriteInteger("MainForm", "DBGridColTColor1", Form1.DBGrid1.Columns.Items[0].Title.Font.Color);
Options.WriteInteger("MainForm", "DBGridColTColor2", Form1.DBGrid1.Columns.Items[1].Title.Font.Color);
Options.WriteInteger("MainForm", "DBGridColTColor3", Form1.DBGrid1.Columns.Items[2].Title.Font.Color);
Options.WriteInteger("MainForm", "DBGridColTColor4", Form1.DBGrid1.Columns.Items[3].Title.Font.Color);
Options.WriteInteger("MainForm", "DBGridColTColor5", Form1.DBGrid1.Columns.Items[4].Title.Font.Color);
Options.WriteInteger("MainForm", "DBGridColTColor6", Form1.DBGrid1.Columns.Items[5].Title.Font.Color);
Options.WriteInteger("MainForm", "DBGridColTColor7", Form1.DBGrid1.Columns.Items[6].Title.Font.Color);
Options.WriteInteger("MainForm", "DBGridColTColor8", Form1.DBGrid1.Columns.Items[7].Title.Font.Color);
Options.WriteInteger("MainForm", "DBGirdColColor", Form1.DBGrid1.FixedColor);
Options.WriteInteger("MainForm", "DBRichEditColor", Form1.DBRichEdit1.Color);
Options.WriteString("MainForm", "BitBtn1T", Form1.BitBtn1.Font.Name);
Options.WriteString("MainForm", "BitBtn2T", Form1.BitBtn2.Font.Name);
Options.WriteString("MainForm", "DBGridT", Form1.DBGrid1.Font.Name);
Options.WriteString("MainForm", "DBGridColT1", Form1.DBGrid1.Columns.Items[0].Title.Font.Name);
Options.WriteString("MainForm", "DBGridColT2", Form1.DBGrid1.Columns.Items[1].Title.Font.Name);
Options.WriteString("MainForm", "DBGridColT3", Form1.DBGrid1.Columns.Items[2].Title.Font.Name);
Options.WriteString("MainForm", "DBGridColT4", Form1.DBGrid1.Columns.Items[3].Title.Font.Name);
Options.WriteString("MainForm", "DBGridColT5", Form1.DBGrid1.Columns.Items[4].Title.Font.Name);
Options.WriteString("MainForm", "DBGridColT6", Form1.DBGrid1.Columns.Items[5].Title.Font.Name);
Options.WriteString("MainForm", "DBGridColT7", Form1.DBGrid1.Columns.Items[6].Title.Font.Name);
Options.WriteString("MainForm", "DBGridColT8", Form1.DBGrid1.Columns.Items[7].Title.Font.Name);
Options.Free;
close
end;
А потом при активации формы:
procedure TForm1.FormActivate(Sender: TObject);
begin
Options:= TIniFile.Create(Path+"Options.ini");
Form1.Color:=Options.ReadInteger("MainForm", "FormColor", 0);
Form4.ColorBox1.Selected:=Options.ReadInteger("MainForm", "FormColor", 0);
Form1.BitBtn1.Font.Color:=Options.ReadInteger("MainForm", "BitBtn1TColor", 0);
Form4.ColorBox2.Selected:=Options.ReadInteger("MainForm", "BitBtn1TColor", 0);
Form1.BitBtn2.Font.Color:=Options.ReadInteger("MainForm", "BitBtn2TColor", 0);
Form4.ColorBox3.Selected:=Options.ReadInteger("MainForm", "BitBtn2TColor", 0);
Form1.DBGrid1.Color:=Options.ReadInteger("MainForm", "DBGridColor", 0);
Form4.ColorBox4.Selected:=Options.ReadInteger("MainForm", "DBGridColor", 0);
Form1.DBGrid1.Font.Color:=Options.ReadInteger("MainForm", "DBGridTColor", 0);
Form4.ColorBox5.Selected:=Options.ReadInteger("MainForm", "DBGridTColor", 0);
Form1.DBGrid1.Columns.Items[0].Title.Font.Color:=Options.ReadInteger("MainForm", "DBGridColTColor1", 0);
Form4.ColorBox6.Selected:=Options.ReadInteger("MainForm", "DBGridColTColor1", 0);
Form1.DBGrid1.Columns.Items[1].Title.Font.Color:=Options.ReadInteger("MainForm", "DBGridColTColor2", 0);
Form1.DBGrid1.Columns.Items[2].Title.Font.Color:=Options.ReadInteger("MainForm", "DBGridColTColor3", 0);
Form1.DBGrid1.Columns.Items[3].Title.Font.Color:=Options.ReadInteger("MainForm", "DBGridColTColor4", 0);
Form1.DBGrid1.Columns.Items[4].Title.Font.Color:=Options.ReadInteger("MainForm", "DBGridColTColor5", 0);
Form1.DBGrid1.Columns.Items[5].Title.Font.Color:=Options.ReadInteger("MainForm", "DBGridColTColor6", 0);
Form1.DBGrid1.Columns.Items[6].Title.Font.Color:=Options.ReadInteger("MainForm", "DBGridColTColor7", 0);
Form1.DBGrid1.Columns.Items[7].Title.Font.Color:=Options.ReadInteger("MainForm", "DBGridColTColor8", 0);
Form1.DBGrid1.FixedColor:=Options.ReadInteger("MainForm", "DBGirdColColor", 0);
Form4.ColorBox7.Selected:=Options.ReadInteger("MainForm", "DBGridColColor", 0);
Form1.DBRichEdit1.Color:=Options.ReadInteger("MainForm", "DBRichEditColor", 0);
Form4.ColorBox8.Selected:=Options.ReadInteger("MainForm", "DBRichEditColor", 0);
Form1.BitBtn1.Font.Name:=Options.ReadString("MainForm", "BitBtn1T", Name);
Form1.BitBtn2.Font.Name:=Options.ReadString("MainForm", "BitBtn2T", Name);
Form1.DBGrid1.Font.Name:=Options.ReadString("MainForm", "DBGridT", Name);
Form1.DBGrid1.Columns.Items[0].Title.Font.Name:=Options.ReadString("MainForm", "DBGridColT1", Name);
Form1.DBGrid1.Columns.Items[1].Title.Font.Name:=Options.ReadString("MainForm", "DBGridColT2", Name);
Form1.DBGrid1.Columns.Items[2].Title.Font.Name:=Options.ReadString("MainForm", "DBGridColT3", Name);
Form1.DBGrid1.Columns.Items[3].Title.Font.Name:=Options.ReadString("MainForm", "DBGridColT4", Name);
Form1.DBGrid1.Columns.Items[4].Title.Font.Name:=Options.ReadString("MainForm", "DBGridColT5", Name);
Form1.DBGrid1.Columns.Items[5].Title.Font.Name:=Options.ReadString("MainForm", "DBGridColT6", Name);
Form1.DBGrid1.Columns.Items[6].Title.Font.Name:=Options.ReadString("MainForm", "DBGridColT7", Name);
Form1.DBGrid1.Columns.Items[7].Title.Font.Name:=Options.ReadString("MainForm", "DBGridColT8", Name);
Options.Free;
end;
Вот.

← →
Просто Джо © (2004-12-18 23:03) [4]

Мама родная :)

По сабжу:

В TColorBox.Style попробуй включить cbCustomColor. Поковыряйся в общем со Style.

> [3] sloug © (18.12.04 22:28)

> Сначала при сохранении:
> ...

var I: Byte; begin with Form1, TIniFile.Create(Path+"Options.ini") do try WriteInteger("MainForm", "FormColor", Color); WriteInteger("MainForm", "BitBtn1TColor", BitBtn1.Font.Color); WriteInteger("MainForm", "BitBtn2TColor", BitBtn2.Font.Color); WriteInteger("MainForm", "DBGridColor", DBGrid1.Color); WriteInteger("MainForm", "DBGridTColor", DBGrid1.Font.Color); for I := 1 to 8 do WriteInteger("MainForm", Format("DBGridColTColor%d", [I]), DBGrid1.Columns.Items[I - 1].Title.Font.Color); WriteInteger("MainForm", "DBGirdColColor", DBGrid1.FixedColor); WriteInteger("MainForm", "DBRichEditColor", DBRichEdit1.Color); WriteString("MainForm", "BitBtn1T", BitBtn1.Font.Name); WriteString("MainForm", "BitBtn2T", BitBtn2.Font.Name); WriteString("MainForm", "DBGridT", DBGrid1.Font.Name); for I := 1 to 8 do WriteString("MainForm", Format("DBGridColT%d", [I]), DBGrid1.Columns.Items[I - 1].Title.Font.Name) finally Free end end.

Тебе не кажется, что если написать хотя бы так, то читать будет легче? :-)

Я написал нормально. Отступал от края, но почему-то отписалось так.

Криво работает ColorBox Найти похожие ветки