| 5 |
uses |
uses |
| 6 |
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, |
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, |
| 7 |
ComCtrls, StdCtrls, ExtCtrls, Dialogs, FileCtrl, MMSystem, |
ComCtrls, StdCtrls, ExtCtrls, Dialogs, FileCtrl, MMSystem, |
| 8 |
GikoSystem, GikoUtil, Buttons, UrlMon, Menus, ImgList; |
GikoSystem, GikoUtil, Buttons, UrlMon, Menus, ImgList, OleCtrls, |
| 9 |
|
SHDocVw_TLB; |
| 10 |
|
|
| 11 |
type |
type |
| 12 |
TOptionDialog = class(TForm) |
TOptionDialog = class(TForm) |
| 163 |
RloCheckBox: TCheckBox; |
RloCheckBox: TCheckBox; |
| 164 |
ReplaceulCheckBox: TCheckBox; |
ReplaceulCheckBox: TCheckBox; |
| 165 |
PopUpAbonCheckBox: TCheckBox; |
PopUpAbonCheckBox: TCheckBox; |
| 166 |
|
CSSWebBrowser: TWebBrowser; |
| 167 |
|
CSSFontCheckBox: TCheckBox; |
| 168 |
|
CSSBackColorCheckBox: TCheckBox; |
| 169 |
|
CSSFontButton: TButton; |
| 170 |
|
CSSBackColorButton: TButton; |
| 171 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 172 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 173 |
procedure ApplyButtonClick(Sender: TObject); |
procedure ApplyButtonClick(Sender: TObject); |
| 209 |
procedure CSSCheckBoxClick(Sender: TObject); |
procedure CSSCheckBoxClick(Sender: TObject); |
| 210 |
procedure PostTimeEditExit(Sender: TObject); |
procedure PostTimeEditExit(Sender: TObject); |
| 211 |
procedure PostTimeCheckBoxClick(Sender: TObject); |
procedure PostTimeCheckBoxClick(Sender: TObject); |
| 212 |
|
procedure CSSFontButtonClick(Sender: TObject); |
| 213 |
|
procedure CSSBackColorButtonClick(Sender: TObject); |
| 214 |
|
procedure CSSFontCheckBoxClick(Sender: TObject); |
| 215 |
|
procedure CSSBackColorCheckBoxClick(Sender: TObject); |
| 216 |
private |
private |
| 217 |
{ Private 宣言 } |
{ Private 宣言 } |
| 218 |
FClose: Boolean; |
FClose: Boolean; |
| 1076 |
GikoSys.FAbon.AbonPopupRes := PopUpAbonCheckBox.Checked; |
GikoSys.FAbon.AbonPopupRes := PopUpAbonCheckBox.Checked; |
| 1077 |
|
|
| 1078 |
end; |
end; |
| 1079 |
|
procedure TOptionDialog.CSSFontButtonClick(Sender: TObject); |
| 1080 |
|
begin |
| 1081 |
|
|
| 1082 |
|
FontDialog.Options := [fdAnsiOnly, fdEffects]; |
| 1083 |
|
FontDialog.Font.Assign(CabinetMemo.Font); |
| 1084 |
|
if FontDialog.Execute then begin |
| 1085 |
|
FontDialog.Font.Style := FontDialog.Font.Style - [fsUnderline] - [fsStrikeout]; |
| 1086 |
|
{ |
| 1087 |
|
CabinetMemo.Font.Assign(FontDialog.Font); |
| 1088 |
|
CabinetMemo.Text := GetMemoText(CabinetMemo.Font, MEMO_CABINET); |
| 1089 |
|
CabinetMemo.Font.Charset := SHIFTJIS_CHARSET; |
| 1090 |
|
} |
| 1091 |
|
end; |
| 1092 |
|
|
| 1093 |
|
end; |
| 1094 |
|
|
| 1095 |
|
procedure TOptionDialog.CSSBackColorButtonClick(Sender: TObject); |
| 1096 |
|
begin |
| 1097 |
|
|
| 1098 |
|
ColorDialog.Color := CabinetMemo.Color; |
| 1099 |
|
if ColorDialog.Execute then begin |
| 1100 |
|
//CabinetMemo.Color := ColorDialog.Color; |
| 1101 |
|
end; |
| 1102 |
|
|
| 1103 |
|
end; |
| 1104 |
|
|
| 1105 |
|
procedure TOptionDialog.CSSFontCheckBoxClick(Sender: TObject); |
| 1106 |
|
begin |
| 1107 |
|
|
| 1108 |
|
CSSFontButton.Enabled := CSSFontCheckBox.Checked; |
| 1109 |
|
|
| 1110 |
|
end; |
| 1111 |
|
|
| 1112 |
|
procedure TOptionDialog.CSSBackColorCheckBoxClick(Sender: TObject); |
| 1113 |
|
begin |
| 1114 |
|
|
| 1115 |
|
CSSBackColorButton.Enabled := CSSBackColorCheckBox.Checked; |
| 1116 |
|
|
| 1117 |
|
end; |
| 1118 |
|
|
| 1119 |
end. |
end. |
| 1120 |
|
|