Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Option.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.7 by yoffy, Wed Sep 24 14:03:08 2003 UTC revision 1.8 by yoffy, Fri Sep 26 06:27:09 2003 UTC
# Line 5  interface Line 5  interface
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)
# Line 162  type Line 163  type
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);
# Line 203  type Line 209  type
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;
# Line 1066  begin Line 1076  begin
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    

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26