Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Криво работает ColorBox [D7, Paradox]

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

sloug (2004-12-19 10:24:00) [1]
Я написал нормально. Отступал от края, но почему-то отписалось так.

begin...end (2004-12-19 10:15:00) [2]
> [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.

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

Просто Джо (2004-12-18 23:03:00) [3]
Мама родная :)

По сабжу:

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

sloug (2004-12-18 22:28:00) [4]
Сначала при сохранении:
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;
Вот.

Yanis (2004-12-18 19:18:00) [5]
Телепаты в отпуске. Код давай(те).

AlterEgo of WondeRu (2004-12-18 19:04:00) [6]
а причем тут Парадокс?
да и код покажи!

Наверх

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