| 199 |
Label17: TLabel; |
Label17: TLabel; |
| 200 |
MaxRecordCountEdit: TEdit; |
MaxRecordCountEdit: TEdit; |
| 201 |
Label18: TLabel; |
Label18: TLabel; |
| 202 |
|
UnFocusedBoldCheckBox: TCheckBox; |
| 203 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 204 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 205 |
procedure ApplyButtonClick(Sender: TObject); |
procedure ApplyButtonClick(Sender: TObject); |
| 591 |
OddResNumCheckBox.Checked := GikoSys.Setting.UseOddColorOddResNum; |
OddResNumCheckBox.Checked := GikoSys.Setting.UseOddColorOddResNum; |
| 592 |
OddResNumColorBox.Selected := GikoSys.Setting.OddColor; |
OddResNumColorBox.Selected := GikoSys.Setting.OddColor; |
| 593 |
OddResNumColorBox.Enabled := OddResNumCheckBox.Checked; |
OddResNumColorBox.Enabled := OddResNumCheckBox.Checked; |
| 594 |
|
UnFocusedBoldCheckBox.Checked := GikoSys.Setting.UnFocusedBold; |
| 595 |
|
UnFocusedBoldCheckBox.Enabled := OddResNumCheckBox.Checked; |
| 596 |
|
|
| 597 |
//ブラウザポップアップフォント |
//ブラウザポップアップフォント |
| 598 |
HintMemo.Font.Name := GikoSys.Setting.HintFontName; |
HintMemo.Font.Name := GikoSys.Setting.HintFontName; |
| 898 |
GikoSys.Setting.ListBackColor := ListMemo.Color; |
GikoSys.Setting.ListBackColor := ListMemo.Color; |
| 899 |
GikoSys.Setting.UseOddColorOddResNum := OddResNumCheckBox.Checked; |
GikoSys.Setting.UseOddColorOddResNum := OddResNumCheckBox.Checked; |
| 900 |
GikoSys.Setting.OddColor := OddResNumColorBox.Selected; |
GikoSys.Setting.OddColor := OddResNumColorBox.Selected; |
| 901 |
|
GikoSys.Setting.UnFocusedBold := (UnFocusedBoldCheckBox.Enabled) and |
| 902 |
|
(UnFocusedBoldCheckBox.Checked); |
| 903 |
|
|
| 904 |
GikoSys.Setting.HintFontName := HintMemo.Font.Name; |
GikoSys.Setting.HintFontName := HintMemo.Font.Name; |
| 905 |
GikoSys.Setting.HintFontSize := HintMemo.Font.Size; |
GikoSys.Setting.HintFontSize := HintMemo.Font.Size; |
| 1183 |
|
|
| 1184 |
//GikoForm.ListView.Color := GikoSys.Setting.ListBackColor; |
//GikoForm.ListView.Color := GikoSys.Setting.ListBackColor; |
| 1185 |
GikoForm.ListViewBackGroundColor := GikoSys.Setting.ListBackColor; |
GikoForm.ListViewBackGroundColor := GikoSys.Setting.ListBackColor; |
| 1186 |
GikoForm.UseOddResOddColor := GikoSys.Setting.UseOddColorOddResNum; |
GikoForm.UseOddResOddColor := GikoSys.Setting.UseOddColorOddResNum; |
| 1187 |
GikoForm.OddColor := GikoSys.Setting.OddColor; |
GikoForm.OddColor := GikoSys.Setting.OddColor; |
| 1188 |
|
GikoSys.Setting.UnFocusedBold := (UnFocusedBoldCheckBox.Enabled) and |
| 1189 |
|
(UnFocusedBoldCheckBox.Checked); |
| 1190 |
|
|
| 1191 |
GikoForm.BrowserTab.Font.Name := GikoSys.Setting.BrowserTabFontName; |
GikoForm.BrowserTab.Font.Name := GikoSys.Setting.BrowserTabFontName; |
| 1192 |
GikoForm.BrowserTab.Font.Size := GikoSys.Setting.BrowserTabFontSize; |
GikoForm.BrowserTab.Font.Size := GikoSys.Setting.BrowserTabFontSize; |
| 1627 |
procedure TOptionDialog.OddResNumCheckBoxClick(Sender: TObject); |
procedure TOptionDialog.OddResNumCheckBoxClick(Sender: TObject); |
| 1628 |
begin |
begin |
| 1629 |
OddResNumColorBox.Enabled := OddResNumCheckBox.Checked; |
OddResNumColorBox.Enabled := OddResNumCheckBox.Checked; |
| 1630 |
|
UnFocusedBoldCheckBox.Enabled := OddResNumCheckBox.Checked; |
| 1631 |
end; |
end; |
| 1632 |
|
|
| 1633 |
procedure TOptionDialog.ResRangeHoldCheckBoxClick(Sender: TObject); |
procedure TOptionDialog.ResRangeHoldCheckBoxClick(Sender: TObject); |