function GetVersionBuild: Integer;
// \83X\83L\83\93\82ð\93Ç\82Ý\8d\9e\82Ý\81A\92l\82ð\92u\8a·\82·\82é
- function LoadFromSkin( fileName: string; ThreadItem: TThreadItem; sTitle: string; SizeByte: Integer ): string;
+ function LoadFromSkin( fileName: string; ThreadItem: TThreadItem; SizeByte: Integer ): string;
// \83\8c\83X\82Ì\92l\82ð\92u\8a·\82·\82é
function SkinedRes( skin: string; Res: TResRec; No: string ): string;
Giko, RoundData;
const
- BOARD_FILE_NAME = 'board.2ch';
- CUSTOMBOARD_FILE_NAME = 'custom.2ch';
- KEY_SETTING_FILE_NAME = 'key.ini';
- TEMP_FOLDER = 'Temp';
- OUTBOX_FILE_NAME = 'outbox.ini';
- SENT_FILE_NAME = 'sent.ini';
- CONFIG_DIR_NAME = 'config';
- CSS_DIR_NAME = 'css';
- SKIN_DIR_NAME = 'skin';
- SKIN_HEADER_FILE_NAME = 'Header.html';
- SKIN_FOOTER_FILE_NAME = 'Footer.html';
- SKIN_NEWRES_FILE_NAME = 'NewRes.html';
- SKIN_RES_FILE_NAME = 'Res.html';
- SKIN_BOOKMARK_FILE_NAME = 'Bookmark.html';
- SKIN_NEWMARK_FILE_NAME = 'Newmark.html';
FOLDER_INDEX_VERSION = '1.01';
USER_AGENT = 'Monazilla';
APP_NAME = 'gikoNavi';
*************************************************************************)
function TGikoSys.GetBoardFileName: string;
begin
- Result := GetAppDir + CONFIG_DIR_NAME + '\' + BOARD_FILE_NAME;
+ Result := Setting.GetBoardFileName;
end;
(*************************************************************************
*************************************************************************)
function TGikoSys.GetCustomBoardFileName: string;
begin
- Result := GetAppDir + CONFIG_DIR_NAME + '\' + CUSTOMBOARD_FILE_NAME;
+ Result := Setting.GetCustomBoardFileName;
end;
(*************************************************************************
*************************************************************************)
function TGikoSys.GetHtmlTempFileName: string;
begin
- Result := TEMP_FOLDER;
+ Result := Setting.GetHtmlTempFileName;
end;
*************************************************************************)
function TGikoSys.GetAppDir: string;
begin
- Result := ExtractFilePath(Application.ExeName);
+ Result := Setting.GetAppDir;
end;
(*************************************************************************
*************************************************************************)
function TGikoSys.GetTempFolder: string;
begin
- Result := GetAppDir + TEMP_FOLDER;
+ Result := Setting.GetTempFolder;
end;
(*************************************************************************
*************************************************************************)
function TGikoSys.GetSentFileName: string;
begin
- Result := GetAppDir + SENT_FILE_NAME;
+ Result := Setting.GetSentFileName;
end;
(*************************************************************************
*************************************************************************)
function TGikoSys.GetOutBoxFileName: string;
begin
- Result := GetAppDir + OUTBOX_FILE_NAME;
+ Result := Setting.GetOutBoxFileName;
end;
(*************************************************************************
*************************************************************************)
function TGikoSys.GetConfigDir: string;
begin
- Result := IncludeTrailingPathDelimiter(GetAppDir + CONFIG_DIR_NAME);
+ Result := Setting.GetConfigDir;
end;
function TGikoSys.GetStyleSheetDir: string;
begin
- Result := IncludeTrailingPathDelimiter(GetConfigDir + CSS_DIR_NAME);
+ Result := Setting.GetStyleSheetDir;
end;
function TGikoSys.GetSkinDir: string;
begin
- Result := IncludeTrailingPathDelimiter(GetConfigDir + SKIN_DIR_NAME);
+ Result := Setting.GetSkinDir;
end;
function TGikoSys.GetSkinHeaderFileName: string;
begin
- Result := Setting.CSSFileName + SKIN_HEADER_FILE_NAME;
+ Result := Setting.GetSkinHeaderFileName;
end;
function TGikoSys.GetSkinFooterFileName: string;
begin
- Result := Setting.CSSFileName + SKIN_FOOTER_FILE_NAME;
+ Result := Setting.GetSkinFooterFileName;
end;
function TGikoSys.GetSkinNewResFileName: string;
begin
- Result := Setting.CSSFileName + SKIN_NEWRES_FILE_NAME;
+ Result := Setting.GetSkinNewResFileName;
end;
function TGikoSys.GetSkinResFileName: string;
begin
- Result := Setting.CSSFileName + SKIN_RES_FILE_NAME;
+ Result := Setting.GetSkinResFileName;
end;
function TGikoSys.GetSkinBookmarkFileName: string;
begin
- Result := Setting.CSSFileName + SKIN_BOOKMARK_FILE_NAME;
+ Result := Setting.GetSkinBookmarkFileName;
end;
function TGikoSys.GetSkinNewmarkFileName: string;
begin
- Result := Setting.CSSFileName + SKIN_NEWMARK_FILE_NAME;
+ Result := Setting.GetSkinNewmarkFileName;
end;
(*************************************************************************
function TGikoSys.LoadFromSkin(
fileName: string;
ThreadItem: TThreadItem;
- sTitle: string;
SizeByte: Integer
): string;
var
except end;
Skin.Text := StringReplace( Skin.Text, '<BOARDNAME/>', ThreadItem.ParentBoard.Title, [rfReplaceAll] );
Skin.Text := StringReplace( Skin.Text, '<BOARDURL/>', ThreadItem.ParentBoard.URL, [rfReplaceAll] );
- Skin.Text := StringReplace( Skin.Text, '<THREADNAME/>', sTitle, [rfReplaceAll] );
+ Skin.Text := StringReplace( Skin.Text, '<THREADNAME/>', ThreadItem.Title, [rfReplaceAll] );
Skin.Text := StringReplace( Skin.Text, '<SKINPATH/>', Setting.CSSFileName, [rfReplaceAll] );
Skin.Text := StringReplace( Skin.Text, '<GETRESCOUNT/>', IntToStr( ThreadItem.NewReceive - 1 ), [rfReplaceAll] );
Skin.Text := StringReplace( Skin.Text, '<NEWRESCOUNT/>', IntToStr( ThreadItem.NewResCount ), [rfReplaceAll] );
except end;
Skin.Text := StringReplace( Skin.Text, '&BOARDNAME', ThreadItem.ParentBoard.Title, [rfReplaceAll] );
Skin.Text := StringReplace( Skin.Text, '&BOARDURL', ThreadItem.ParentBoard.URL, [rfReplaceAll] );
- Skin.Text := StringReplace( Skin.Text, '&THREADNAME', sTitle, [rfReplaceAll] );
+ Skin.Text := StringReplace( Skin.Text, '&THREADNAME', ThreadItem.Title, [rfReplaceAll] );
Skin.Text := StringReplace( Skin.Text, '&SKINPATH', Setting.CSSFileName, [rfReplaceAll] );
Skin.Text := StringReplace( Skin.Text, '&GETRESCOUNT', IntToStr( ThreadItem.NewReceive - 1 ), [rfReplaceAll] );
Skin.Text := StringReplace( Skin.Text, '&NEWRESCOUNT', IntToStr( ThreadItem.NewResCount ), [rfReplaceAll] );
function LoadSkin( fileName: string ): string;
begin
- Result := LoadFromSkin( fileName, ThreadItem, sTitle, SizeByte );
+ Result := LoadFromSkin( fileName, ThreadItem, SizeByte );
end;
function ReplaceRes( skin: string ): string;
begin
end;
CSSFileName := GetStyleSheetDir + Setting.CSSFileName;
- if GikoSys.Setting.UseCSS and
- (Pos(GetSkinDir, Setting.CSSFileName) > 0) and
- FileExists( GetSkinHeaderFileName ) then begin
+ if GikoSys.Setting.UseSkin then begin
// \83X\83L\83\93\8eg\97p
// \83X\83L\83\93\82Ì\90Ý\92è
try
SaveList.Add('<a name="new"></a>');
SaveList.Add('<table width="100%" bgcolor="#3333CC" cellpadding="0" cellspacing="1"><tr><td align="center" bgcolor="#6666FF" valign="middle"><font size="-1" color="#ffffff"><b>\90V\92\85\83\8c\83X ' + FormatDateTime('yyyy/mm/dd(ddd) hh:mm', ThreadItem.RoundDate) + '</b></font></td></tr></table>');
SaveList.Add('<dl>');
- end;
+ end;
Res := DivideStrLine(ReadList[i]);
Res.FBody := ConvRes(Res.FBody, ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), 'bbs', 'key', 'st', 'to', 'nofirst', 'true');
if Res.FType = glt2chOld then begin
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
ComCtrls, StdCtrls, ExtCtrls, Dialogs, FileCtrl, MMSystem,
GikoSystem, GikoUtil, Buttons, UrlMon, Menus, ImgList, OleCtrls,
- SHDocVw_TLB, BoardGroup;
+ SHDocVw_TLB, BoardGroup;
type
TOptionDialog = class(TForm)
OptionTab: TPageControl;
ConnectSheet: TTabSheet;
Font1Sheet: TTabSheet;
- ApplyButton: TButton;
+ ApplyButton: TButton;
FontDialog: TFontDialog;
ColorDialog: TColorDialog;
- ReadProxyGroupBox: TGroupBox;
- ReadAddressLabel: TLabel;
+ ReadProxyGroupBox: TGroupBox;
+ ReadAddressLabel: TLabel;
ReadPortLabel: TLabel;
- ReadProxyCheck: TCheckBox;
- ReadProxyAddressEdit: TEdit;
- ReadPortEdit: TEdit;
- ReadProxyUserIDEdit: TEdit;
- ReadProxyPasswordEdit: TEdit;
+ ReadProxyCheck: TCheckBox;
+ ReadProxyAddressEdit: TEdit;
+ ReadPortEdit: TEdit;
+ ReadProxyUserIDEdit: TEdit;
+ ReadProxyPasswordEdit: TEdit;
ReadUserIDLabel: TLabel;
ReadPasswordLabel: TLabel;
FolderSheet: TTabSheet;
- FolderGroupBox: TGroupBox;
+ FolderGroupBox: TGroupBox;
LogFolderEdit: TEdit;
- LogFolderButton: TButton;
- Label1: TLabel;
+ LogFolderButton: TButton;
+ Label1: TLabel;
Label2: TLabel;
- ThreadSheet: TTabSheet;
- SoundSheet: TTabSheet;
- SoundEventGroupBox: TGroupBox;
+ ThreadSheet: TTabSheet;
+ SoundSheet: TTabSheet;
+ SoundEventGroupBox: TGroupBox;
SoundListView: TListView;
- SoundReferButton: TButton;
- SoundFileEdit: TEdit;
- OpenDialog: TOpenDialog;
- WriteProxyGroupBox: TGroupBox;
- WriteAddressLabel: TLabel;
- WritePortLabel: TLabel;
- WriteUserIDLabel: TLabel;
- WritePasswordLabel: TLabel;
- WriteProxyCheck: TCheckBox;
- WriteProxyAddressEdit: TEdit;
- WritePortEdit: TEdit;
- WriteProxyUserIDEdit: TEdit;
- WriteProxyPasswordEdit: TEdit;
- BoardSheet: TTabSheet;
- GroupBox4: TGroupBox;
- Label13: TLabel;
- UserIDSheet: TTabSheet;
+ SoundReferButton: TButton;
+ SoundFileEdit: TEdit;
+ OpenDialog: TOpenDialog;
+ WriteProxyGroupBox: TGroupBox;
+ WriteAddressLabel: TLabel;
+ WritePortLabel: TLabel;
+ WriteUserIDLabel: TLabel;
+ WritePasswordLabel: TLabel;
+ WriteProxyCheck: TCheckBox;
+ WriteProxyAddressEdit: TEdit;
+ WritePortEdit: TEdit;
+ WriteProxyUserIDEdit: TEdit;
+ WriteProxyPasswordEdit: TEdit;
+ BoardSheet: TTabSheet;
+ GroupBox4: TGroupBox;
+ Label13: TLabel;
+ UserIDSheet: TTabSheet;
GroupBox3: TGroupBox;
- Label9: TLabel;
+ Label9: TLabel;
Label10: TLabel;
- UserIDEdit: TEdit;
- PasswordEdit: TEdit;
- SoundPlayButton: TBitBtn;
+ UserIDEdit: TEdit;
+ PasswordEdit: TEdit;
+ SoundPlayButton: TBitBtn;
AutoLoginCheckBox: TCheckBox;
- Tora3URLLabel: TLabel;
- Label12: TLabel;
- Label5: TLabel;
- GroupBox5: TGroupBox;
- ComboBox1: TComboBox;
- Label6: TLabel;
- Label7: TLabel;
- Label8: TLabel;
- ComboBox2: TComboBox;
- ComboBox3: TComboBox;
- Label4: TLabel;
- Edit1: TEdit;
- Button1: TButton;
- CabinetFontBotton: TButton;
- CabinetColorBotton: TButton;
- CabinetDefaultButton: TButton;
- CabinetMemo: TMemo;
- ListMemo: TMemo;
- ListFontBotton: TButton;
- ListColorBotton: TButton;
- ListDefaultBotton: TButton;
- HintFontButton: TButton;
- HintBackButton: TButton;
- HintDefaultButton: TButton;
- HintMemo: TMemo;
+ Tora3URLLabel: TLabel;
+ Label12: TLabel;
+ Label5: TLabel;
+ GroupBox5: TGroupBox;
+ ComboBox1: TComboBox;
+ Label6: TLabel;
+ Label7: TLabel;
+ Label8: TLabel;
+ ComboBox2: TComboBox;
+ ComboBox3: TComboBox;
+ Label4: TLabel;
+ Edit1: TEdit;
+ Button1: TButton;
+ CabinetFontBotton: TButton;
+ CabinetColorBotton: TButton;
+ CabinetDefaultButton: TButton;
+ CabinetMemo: TMemo;
+ ListMemo: TMemo;
+ ListFontBotton: TButton;
+ ListColorBotton: TButton;
+ ListDefaultBotton: TButton;
+ HintFontButton: TButton;
+ HintBackButton: TButton;
+ HintDefaultButton: TButton;
+ HintMemo: TMemo;
EditorMemo: TMemo;
- EditorFontBotton: TButton;
- EditorColorBotton: TButton;
- EditorDefaultBotton: TButton;
+ EditorFontBotton: TButton;
+ EditorColorBotton: TButton;
+ EditorDefaultBotton: TButton;
BrowserTabMemo: TMemo;
- BruwserTabFontButton: TButton;
- BrowserTabDefaultButton: TButton;
- Bevel1: TBevel;
- Bevel2: TBevel;
- GroupBox1: TGroupBox;
- GroupBox2: TGroupBox;
- URLAppCheckBox: TCheckBox;
- AppFolderLabel: TLabel;
- AppFolderEdit: TEdit;
- AppFolderButton: TButton;
- OpenMailerCheckBox: TCheckBox;
- TabSheet1: TTabSheet;
- PopupPositionRadioGroup: TRadioGroup;
- TabAddRadioGroup: TRadioGroup;
- TabSheet2: TTabSheet;
- GroupBox7: TGroupBox;
- URLDisplayCheckBox: TCheckBox;
- Label3: TLabel;
- Label11: TLabel;
- TabStopAddressBarCheckBox: TCheckBox;
- AddressHistoryCountEdit: TEdit;
- LinkAddCheckBox: TCheckBox;
- GroupBox8: TGroupBox;
- PreviewVisibleCheckBox: TCheckBox;
- PreviewSizeComboBox: TComboBox;
- Label14: TLabel;
- Label15: TLabel;
- PreviewWaitEdit: TEdit;
- Label16: TLabel;
- ShowMailCheckBox: TCheckBox;
- TabSheet3: TTabSheet;
- GroupBox9: TGroupBox;
- ThreadListIconCheckBox: TCheckBox;
- GroupBox6: TGroupBox;
- LogDeleteMessageCheckBox: TCheckBox;
- GroupBox10: TGroupBox;
- UnActivePopupCheckBox: TCheckBox;
- GroupBox11: TGroupBox;
- RecvBufferSize: TEdit;
- Label17: TLabel;
- ProxyProtocolCheckBox: TCheckBox;
- ProtocolCheckBox: TCheckBox;
- Label18: TLabel;
- Label19: TLabel;
- Bevel5: TBevel;
- Label20: TLabel;
- Label21: TLabel;
- Label22: TLabel;
- Label23: TLabel;
- CSSTabSheet: TTabSheet;
- lblSFont: TLabel;
- GroupBox12: TGroupBox;
- CSSCheckBox: TCheckBox;
- CSSListLabel: TLabel;
- CSSListView: TListView;
- GroupBox13: TGroupBox;
- PostTimeCheckBox: TCheckBox;
- Label24: TLabel;
- Label25: TLabel;
- PostTimeEdit: TEdit;
- PostTimeLabel: TLabel;
- Label27: TLabel;
- PutPostTimeRadioButton: TRadioButton;
- BackPostTimeRadioButton: TRadioButton;
- ResPopupBoldCheckBox: TCheckBox;
- NGwordSheet: TTabSheet;
- GroupBox14: TGroupBox;
- RloCheckBox: TCheckBox;
- ReplaceulCheckBox: TCheckBox;
- PopUpAbonCheckBox: TCheckBox;
- CSSBrowser: TWebBrowser;
- CSSFontCheckBox: TCheckBox;
- CSSBackColorCheckBox: TCheckBox;
- CSSFontButton: TButton;
- CSSBackColorButton: TButton;
- ShowNGLineCheckBox: TCheckBox;
- AddResAnchorCheckBox: TCheckBox;
- OnlyAHundredResCheckBox: TCheckBox;
- BoardURLComboBox: TComboBox;
- AddURLButton: TButton;
- RemoveURLButton: TButton;
- GroupBox15: TGroupBox;
- ShowDialogForEndCheckBox: TCheckBox;
+ BruwserTabFontButton: TButton;
+ BrowserTabDefaultButton: TButton;
+ Bevel1: TBevel;
+ Bevel2: TBevel;
+ GroupBox1: TGroupBox;
+ GroupBox2: TGroupBox;
+ URLAppCheckBox: TCheckBox;
+ AppFolderLabel: TLabel;
+ AppFolderEdit: TEdit;
+ AppFolderButton: TButton;
+ OpenMailerCheckBox: TCheckBox;
+ TabSheet1: TTabSheet;
+ PopupPositionRadioGroup: TRadioGroup;
+ TabAddRadioGroup: TRadioGroup;
+ TabSheet2: TTabSheet;
+ GroupBox7: TGroupBox;
+ URLDisplayCheckBox: TCheckBox;
+ Label3: TLabel;
+ Label11: TLabel;
+ TabStopAddressBarCheckBox: TCheckBox;
+ AddressHistoryCountEdit: TEdit;
+ LinkAddCheckBox: TCheckBox;
+ GroupBox8: TGroupBox;
+ PreviewVisibleCheckBox: TCheckBox;
+ PreviewSizeComboBox: TComboBox;
+ Label14: TLabel;
+ Label15: TLabel;
+ PreviewWaitEdit: TEdit;
+ Label16: TLabel;
+ ShowMailCheckBox: TCheckBox;
+ TabSheet3: TTabSheet;
+ GroupBox9: TGroupBox;
+ ThreadListIconCheckBox: TCheckBox;
+ GroupBox6: TGroupBox;
+ LogDeleteMessageCheckBox: TCheckBox;
+ GroupBox10: TGroupBox;
+ UnActivePopupCheckBox: TCheckBox;
+ GroupBox11: TGroupBox;
+ RecvBufferSize: TEdit;
+ Label17: TLabel;
+ ProxyProtocolCheckBox: TCheckBox;
+ ProtocolCheckBox: TCheckBox;
+ Label18: TLabel;
+ Label19: TLabel;
+ Bevel5: TBevel;
+ Label20: TLabel;
+ Label21: TLabel;
+ Label22: TLabel;
+ Label23: TLabel;
+ CSSTabSheet: TTabSheet;
+ lblSFont: TLabel;
+ GroupBox12: TGroupBox;
+ CSSCheckBox: TCheckBox;
+ CSSListLabel: TLabel;
+ CSSListView: TListView;
+ GroupBox13: TGroupBox;
+ PostTimeCheckBox: TCheckBox;
+ Label24: TLabel;
+ Label25: TLabel;
+ PostTimeEdit: TEdit;
+ PostTimeLabel: TLabel;
+ Label27: TLabel;
+ PutPostTimeRadioButton: TRadioButton;
+ BackPostTimeRadioButton: TRadioButton;
+ ResPopupBoldCheckBox: TCheckBox;
+ NGwordSheet: TTabSheet;
+ GroupBox14: TGroupBox;
+ RloCheckBox: TCheckBox;
+ ReplaceulCheckBox: TCheckBox;
+ PopUpAbonCheckBox: TCheckBox;
+ CSSBrowser: TWebBrowser;
+ CSSFontCheckBox: TCheckBox;
+ CSSBackColorCheckBox: TCheckBox;
+ CSSFontButton: TButton;
+ CSSBackColorButton: TButton;
+ ShowNGLineCheckBox: TCheckBox;
+ AddResAnchorCheckBox: TCheckBox;
+ OnlyAHundredResCheckBox: TCheckBox;
+ BoardURLComboBox: TComboBox;
+ AddURLButton: TButton;
+ RemoveURLButton: TButton;
+ GroupBox15: TGroupBox;
+ ShowDialogForEndCheckBox: TCheckBox;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure ApplyButtonClick(Sender: TObject);
procedure SoundReferButtonClick(Sender: TObject);
procedure SoundPlayButtonClick(Sender: TObject);
procedure SoundListViewChanging(Sender: TObject; Item: TListItem;
- Change: TItemChange; var AllowChange: Boolean);
+ Change: TItemChange; var AllowChange: Boolean);
procedure SoundFileEditChange(Sender: TObject);
procedure OptionTabChange(Sender: TObject);
procedure AppFolderButtonClick(Sender: TObject);
procedure URLAppCheckBoxClick(Sender: TObject);
procedure BruwserTabFontButtonClick(Sender: TObject);
procedure BrowserTabDefaultButtonClick(Sender: TObject);
- procedure AddressHistoryCountEditExit(Sender: TObject);
- procedure PreviewWaitEditExit(Sender: TObject);
+ procedure AddressHistoryCountEditExit(Sender: TObject);
+ procedure PreviewWaitEditExit(Sender: TObject);
procedure RecvBufferSizeExit(Sender: TObject);
- procedure CSSCheckBoxClick(Sender: TObject);
- procedure PostTimeEditExit(Sender: TObject);
- procedure PostTimeCheckBoxClick(Sender: TObject);
- procedure CSSFontButtonClick(Sender: TObject);
- procedure CSSBackColorButtonClick(Sender: TObject);
- procedure CSSFontCheckBoxClick(Sender: TObject);
- procedure CSSBackColorCheckBoxClick(Sender: TObject);
- procedure CSSListViewChange(Sender: TObject; Item: TListItem;
- Change: TItemChange);
- procedure AddURLButtonClick(Sender: TObject);
- procedure RemoveURLButtonClick(Sender: TObject);
+ procedure CSSCheckBoxClick(Sender: TObject);
+ procedure PostTimeEditExit(Sender: TObject);
+ procedure PostTimeCheckBoxClick(Sender: TObject);
+ procedure CSSFontButtonClick(Sender: TObject);
+ procedure CSSBackColorButtonClick(Sender: TObject);
+ procedure CSSFontCheckBoxClick(Sender: TObject);
+ procedure CSSBackColorCheckBoxClick(Sender: TObject);
+ procedure CSSListViewChange(Sender: TObject; Item: TListItem;
+ Change: TItemChange);
+ procedure AddURLButtonClick(Sender: TObject);
+ procedure RemoveURLButtonClick(Sender: TObject);
private
{ Private \90é\8c¾ }
FClose: Boolean;
- FCSSFont: TFont;
- FCSSBackColor: TColor;
+ FCSSFont: TFont;
+ FCSSBackColor: TColor;
function GetMemoText(font: TFont; text: string): string;
// function GetFontText(Font: TFont; Text: string): string;
procedure SetValue;
function CheckFolder: Boolean;
procedure SetAbonpropertys;
procedure CSSSetContent(Content: string);
- procedure CSSPreview;
+ procedure CSSPreview;
public
{ Public \90é\8c¾ }
end;
CSSCheckBoxClick(Sender);
PostTimeCheckBoxClick(Sender);
- if OptionTab.PageCount > GikoSys.Setting.OptionDialogTabIndex then begin
- OptionTab.ActivePageIndex := GikoSys.Setting.OptionDialogTabIndex;
+ if OptionTab.PageCount > GikoSys.Setting.OptionDialogTabIndex then begin
+ OptionTab.ActivePageIndex := GikoSys.Setting.OptionDialogTabIndex;
OptionTabChange( nil );
- end;
-
+ end;
+
end;
procedure TOptionDialog.FormDestroy(Sender: TObject);
end;
SaveSetting;
SettingApply;
- SetAbonpropertys;
+ SetAbonpropertys;
end;
procedure TOptionDialog.ApplyButtonClick(Sender: TObject);
end;
SaveSetting;
SettingApply;
- SetAbonpropertys;
+ SetAbonpropertys;
FClose := False;
end;
EditorMemo.Color := GikoSys.Setting.EditorBackColor;
//CSS\95\\8e¦
CSSCheckBox.Checked := GikoSys.Setting.UseCSS;
- FCSSFont := TFont.Create;
- if (GikoSys.Setting.BrowserFontName <> '') or
- (GikoSys.Setting.BrowserFontSize <> 0) or
- (GikoSys.Setting.BrowserFontBold <> 0) or
- (GikoSys.Setting.BrowserFontItalic <> 0) or
- (GikoSys.Setting.BrowserFontColor <> -1 ) then begin
- CSSFontCheckBox.Checked := True;
-
- FCSSFont.Name := GikoSys.Setting.BrowserFontName;
- FCSSFont.Size := GikoSys.Setting.BrowserFontSize;
- FCSSFont.Style := [];
- if GikoSys.Setting.BrowserFontBold = 1 then
- FCSSFont.Style := FCSSFont.Style + [fsBold];
- if GikoSys.Setting.BrowserFontItalic = 1 then
- FCSSFont.Style := FCSSFont.Style + [fsItalic];
- i := GikoSys.Setting.BrowserFontColor;
- i := (i shr 16) or (i and $ff00) or ((i and $ff) shl 16);
- FCSSFont.Color := i;
- end;
- if GikoSys.Setting.BrowserBackColor <> -1 then begin
- CSSBackColorCheckBox.Checked := True;
+ FCSSFont := TFont.Create;
+ if (GikoSys.Setting.BrowserFontName <> '') or
+ (GikoSys.Setting.BrowserFontSize <> 0) or
+ (GikoSys.Setting.BrowserFontBold <> 0) or
+ (GikoSys.Setting.BrowserFontItalic <> 0) or
+ (GikoSys.Setting.BrowserFontColor <> -1 ) then begin
+ CSSFontCheckBox.Checked := True;
+
+ FCSSFont.Name := GikoSys.Setting.BrowserFontName;
+ FCSSFont.Size := GikoSys.Setting.BrowserFontSize;
+ FCSSFont.Style := [];
+ if GikoSys.Setting.BrowserFontBold = 1 then
+ FCSSFont.Style := FCSSFont.Style + [fsBold];
+ if GikoSys.Setting.BrowserFontItalic = 1 then
+ FCSSFont.Style := FCSSFont.Style + [fsItalic];
+ i := GikoSys.Setting.BrowserFontColor;
+ i := (i shr 16) or (i and $ff00) or ((i and $ff) shl 16);
+ FCSSFont.Color := i;
+ end;
+ if GikoSys.Setting.BrowserBackColor <> -1 then begin
+ CSSBackColorCheckBox.Checked := True;
- i := GikoSys.Setting.BrowserBackColor;
- i := (i shr 16) or (i and $ff00) or ((i and $ff) shl 16);
- FCSSBackColor := i;
- end;
+ i := GikoSys.Setting.BrowserBackColor;
+ i := (i shr 16) or (i and $ff00) or ((i and $ff) shl 16);
+ FCSSBackColor := i;
+ end;
//
//\83X\83^\83C\83\8b\83V\81[\83g\83t\83@\83C\83\8b\96¼\88ê\97\97
FileList := TStringList.Create;
try
GikoSys.GetDirectoryList(GikoSys.GetSkinDir, '*', FileList, False);
- Idx := Length(GikoSys.GetSkinDir);
+ Idx := Length(GikoSys.GetSkinDir);
FileList.Sort;
for i := 0 to FileList.Count - 1 do begin
//s := ExtractFileName(FileList[i]);
Item := CSSListView.Items.Add;
- Item.Data := PChar( FileList[i] );
+ Item.Data := PChar( FileList[i] );
Item.Caption := Copy( FileList[i], Idx + 1, Length(FileList[i]) );
if LowerCase(FileList[i]) = LowerCase(GikoSys.Setting.CSSFileName) then
Item.Selected := True;
end;
finally
- // Item.Data \82É\83|\83C\83\93\83^\93Ë\82Á\8d\9e\82ñ\82Å\82é\82©\82ç\8aJ\95ú\82Å\82«\82È\82¢\82æ\82§\81`
+ // Item.Data \82É\83|\83C\83\93\83^\93Ë\82Á\8d\9e\82ñ\82Å\82é\82©\82ç\8aJ\95ú\82Å\82«\82È\82¢\82æ\82§\81`
//FileList.Free;
end;
//Mail\97\93\95\\8e¦
ShowMailCheckBox.Checked := GikoSys.Setting.ShowMail;
- OnlyAHundredResCheckBox.Checked := GikoSYs.Setting.OnlyAHundredRes;
+ OnlyAHundredResCheckBox.Checked := GikoSYs.Setting.OnlyAHundredRes;
//\83^\83u\92Ç\89Á\88Ê\92u
TabAddRadioGroup.ItemIndex := Ord(GikoSys.Setting.BrowserTabAppend);
//\94Â\8dX\90VURL
//BoardURL2chEdit.Text := GikoSys.Setting.BoardURL2ch;
- BoardURLComboBox.Clear;
- BoardURLComboBox.Items.AddStrings(GikoSys.Setting.BoardURLs);
- try
- BoardURLComboBox.ItemIndex := GikoSys.Setting.BoardURLSelected - 1;
- except
- BoardURLComboBox.ItemIndex := 0;
- end;
+ BoardURLComboBox.Clear;
+ BoardURLComboBox.Items.AddStrings(GikoSys.Setting.BoardURLs);
+ try
+ BoardURLComboBox.ItemIndex := GikoSys.Setting.BoardURLSelected - 1;
+ except
+ BoardURLComboBox.ItemIndex := 0;
+ end;
//\94F\8fØ
UserIDEdit.Text := GikoSys.Setting.UserID;
PasswordEdit.Text := GikoSys.Setting.Password;
//\83\8d\83O\8dí\8f\9c\8e\9e\83\81\83b\83Z\81[\83W
LogDeleteMessageCheckBox.Checked := GikoSys.Setting.DeleteMsg;
- //\8fI\97¹\8e\9e\8am\94F\83_\83C\83A\83\8d\83O
- ShowDialogForEndCheckBox.Checked := GikoSys.Setting.ShowDialogForEnd;
+ //\8fI\97¹\8e\9e\8am\94F\83_\83C\83A\83\8d\83O
+ ShowDialogForEndCheckBox.Checked := GikoSys.Setting.ShowDialogForEnd;
//\83|\83b\83v\83A\83b\83v\88Ê\92u
case GikoSys.Setting.PopupPosition of
PutPostTimeRadioButton.Checked := True
else
BackPostTimeRadioButton.Checked := True;
- //\82 \82Ú\81`\82ñ
- RloCheckBox.Checked := GikoSys.Setting.AbonDeleterlo;
- ReplaceulCheckBox.Checked := GikoSys.Setting.AbonReplaceul;
- PopUpAbonCheckBox.Checked := GikoSys.Setting.PopUpAbon;
- ShowNGLineCheckBox.Checked := GikoSys.Setting.ShowNGLinesNum;
- AddResAnchorCheckBox.Checked := GikoSys.Setting.AddResAnchor;
+ //\82 \82Ú\81`\82ñ
+ RloCheckBox.Checked := GikoSys.Setting.AbonDeleterlo;
+ ReplaceulCheckBox.Checked := GikoSys.Setting.AbonReplaceul;
+ PopUpAbonCheckBox.Checked := GikoSys.Setting.PopUpAbon;
+ ShowNGLineCheckBox.Checked := GikoSys.Setting.ShowNGLinesNum;
+ AddResAnchorCheckBox.Checked := GikoSys.Setting.AddResAnchor;
end;
//\83v\83\8d\83L\83V\90Ú\91±HTTP1.1\8eg\97p
Gikosys.Setting.ProxyProtocol := ProxyProtocolCheckBox.Checked;
- GikoSys.Setting.OptionDialogTabIndex := OptionTab.TabIndex;
+ GikoSys.Setting.OptionDialogTabIndex := OptionTab.TabIndex;
GikoSys.Setting.ReadProxy := ReadProxyCheck.Checked;
GikoSys.Setting.ReadProxyAddress := ReadProxyAddressEdit.Text;
GikoSys.Setting.CSSFileName := 'default.css';
if CSSListView.Items.Count > 0 then begin
try
- if CSSListView.Items[CSSListView.ItemIndex].Data <> nil then
+ if CSSListView.Items[CSSListView.ItemIndex].Data <> nil then
GikoSys.Setting.CSSFileName := string( CSSListView.Items[CSSListView.ItemIndex].data )
- else
+ else
GikoSys.Setting.CSSFileName := CSSListView.Items[CSSListView.ItemIndex].Caption + '.css';
except
end;
end;
- // CSS \82Ì\83t\83H\83\93\83g\8ew\92è
- if CSSFontCheckBox.Checked then begin
- GikoSys.Setting.BrowserFontName := FCSSFont.Name;
- GikoSys.Setting.BrowserFontSize := FCSSFont.Size;
- if fsBold in FCSSFont.Style then
- GikoSys.Setting.BrowserFontBold := 1
- else
- GikoSys.Setting.BrowserFontBold := -1;
- if fsItalic in FCSSFont.Style then
- GikoSys.Setting.BrowserFontItalic := 1
- else
- GikoSys.Setting.BrowserFontItalic := -1;
- i := ColorToRGB( FCSSFont.Color );
- GikoSys.Setting.BrowserFontColor := (i shr 16) or (i and $ff00) or ((i and $ff) shl 16);
- end else begin
- GikoSys.Setting.BrowserFontName := '';
- GikoSys.Setting.BrowserFontSize := 0;
- GikoSys.Setting.BrowserFontBold := 0;
- GikoSys.Setting.BrowserFontItalic := 0;
- GikoSys.Setting.BrowserFontColor := -1;
- end;
- if CSSBackColorCheckBox.Checked then begin
- i := ColorToRGB( FCSSBackColor );
- GikoSys.Setting.BrowserBackColor := (i shr 16) or (i and $ff00) or ((i and $ff) shl 16);
- end else begin
- GikoSys.Setting.BrowserBackColor := -1;
- end;
+ // CSS \82Ì\83t\83H\83\93\83g\8ew\92è
+ if CSSFontCheckBox.Checked then begin
+ GikoSys.Setting.BrowserFontName := FCSSFont.Name;
+ GikoSys.Setting.BrowserFontSize := FCSSFont.Size;
+ if fsBold in FCSSFont.Style then
+ GikoSys.Setting.BrowserFontBold := 1
+ else
+ GikoSys.Setting.BrowserFontBold := -1;
+ if fsItalic in FCSSFont.Style then
+ GikoSys.Setting.BrowserFontItalic := 1
+ else
+ GikoSys.Setting.BrowserFontItalic := -1;
+ i := ColorToRGB( FCSSFont.Color );
+ GikoSys.Setting.BrowserFontColor := (i shr 16) or (i and $ff00) or ((i and $ff) shl 16);
+ end else begin
+ GikoSys.Setting.BrowserFontName := '';
+ GikoSys.Setting.BrowserFontSize := 0;
+ GikoSys.Setting.BrowserFontBold := 0;
+ GikoSys.Setting.BrowserFontItalic := 0;
+ GikoSys.Setting.BrowserFontColor := -1;
+ end;
+ if CSSBackColorCheckBox.Checked then begin
+ i := ColorToRGB( FCSSBackColor );
+ GikoSys.Setting.BrowserBackColor := (i shr 16) or (i and $ff00) or ((i and $ff) shl 16);
+ end else begin
+ GikoSys.Setting.BrowserBackColor := -1;
+ end;
//Mail\97\93\95\\8e¦
GikoSys.Setting.ShowMail := ShowMailCheckBox.Checked;
- //\8dÅ\90V100\83\8c\83X\95\\8e¦
- GikoSYs.Setting.OnlyAHundredRes := OnlyAHundredResCheckBox.Checked;
+ //\8dÅ\90V100\83\8c\83X\95\\8e¦
+ GikoSYs.Setting.OnlyAHundredRes := OnlyAHundredResCheckBox.Checked;
GikoSys.Setting.BrowserTabAppend := TGikoTabAppend(TabAddRadioGroup.ItemIndex);
// GikoSys.Setting.BoardURL2ch := BoardURL2chEdit.Text;
- GikoSys.Setting.BoardURLs.Clear;
- GikoSys.Setting.BoardURLs.AddStrings(BoardURLComboBox.Items);
- GikoSys.Setting.BoardURLSelected := BoardURLComboBox.ItemIndex + 1;
+ GikoSys.Setting.BoardURLs.Clear;
+ GikoSys.Setting.BoardURLs.AddStrings(BoardURLComboBox.Items);
+ GikoSys.Setting.BoardURLSelected := BoardURLComboBox.ItemIndex + 1;
GikoSys.Setting.UserID := UserIDEdit.Text;
GikoSys.Setting.Password := PasswordEdit.Text;
GikoSys.Setting.AutoLogin := AutoLoginCheckBox.Checked;
GikoSys.Setting.OpenMailer := OpenMailerCheckBox.Checked;
GikoSys.Setting.DeleteMsg := LogDeleteMessageCheckBox.Checked;
- //\8fI\97¹\8e\9e\8am\94F\83_\83C\83A\83\8d\83O
- GikoSys.Setting.ShowDialogForEnd := ShowDialogForEndCheckBox.Checked;
+ //\8fI\97¹\8e\9e\8am\94F\83_\83C\83A\83\8d\83O
+ GikoSys.Setting.ShowDialogForEnd := ShowDialogForEndCheckBox.Checked;
//\83|\83b\83v\83A\83b\83v\88Ê\92u
case PopupPositionRadioGroup.ItemIndex of
GikoSys.Setting.WriteSystemSettingFile;
- GikoSys.Setting.WriteBoardURLSettingFile;
+ GikoSys.Setting.WriteBoardURLSettingFile;
// GikoForm.SetBrowserTabState;
if LogFolderEdit.Text <> '' then begin
GikoSys.Setting.AbonReplaceul := ReplaceulCheckBox.Checked;
GikoSys.Setting.PopUpAbon := PopUpAbonCheckBox.Checked;
GikoSys.Setting.ShowNGLinesNum := ShowNGLineCheckBox.Checked;
- GikoSys.Setting.AddResAnchor := AddResAnchorCheckBox.Checked;
+ GikoSys.Setting.AddResAnchor := AddResAnchorCheckBox.Checked;
end;
procedure TOptionDialog.SettingApply;
var
i: Integer;
- ThreadItem: TThreadItem;
+ ThreadItem: TThreadItem;
begin
GikoForm.TreeView.Items.BeginUpdate;
- GikoForm.FavoriteTreeView.Items.BeginUpdate;
+ GikoForm.FavoriteTreeView.Items.BeginUpdate;
GikoForm.ListView.Items.BeginUpdate;
try
GikoForm.TreeView.Font.Name := GikoSys.Setting.CabinetFontName;
finally
GikoForm.TreeView.Items.EndUpdate;
- GikoForm.FavoriteTreeView.Items.EndUpdate;
+ GikoForm.FavoriteTreeView.Items.EndUpdate;
GikoForm.ListView.Items.EndUpdate;
end;
end;
GikoForm.AddressComboBox.TabStop := GikoSys.Setting.AddressBarTabStop;
- // \83X\83\8c\83b\83h\82Ì\83\8a\83t\83\8c\83b\83V\83\85
- ThreadItem := GikoForm.GetActiveContent;
- if ThreadItem <> nil then
- GikoForm.SetContent( ThreadItem );
+ // \83X\83\8c\83b\83h\82Ì\83\8a\83t\83\8c\83b\83V\83\85
+ ThreadItem := GikoForm.GetActiveContent;
+ if ThreadItem <> nil then
+ GikoForm.SetContent( ThreadItem );
end;
procedure TOptionDialog.ReadProxyCheckClick(Sender: TObject);
end;
procedure TOptionDialog.SoundListViewChanging(Sender: TObject;
- Item: TListItem; Change: TItemChange; var AllowChange: Boolean);
+ Item: TListItem; Change: TItemChange; var AllowChange: Boolean);
begin
if Item.SubItems.Count > 0 then
SoundFileEdit.Text := Item.SubItems[0];
begin
sndPlaySound(nil, SND_ASYNC);
- if OptionTab.ActivePage = CSSTabSheet then
- CSSPreview;
+ if OptionTab.ActivePage = CSSTabSheet then
+ CSSPreview;
end;
procedure TOptionDialog.AppFolderButtonClick(Sender: TObject);
end;
procedure TOptionDialog.SetAbonpropertys;
begin
- //\82 \82Ú\81`\82ñ
- GikoSys.FAbon.Deleterlo := RloCheckBox.Checked;
- GikoSys.FAbon.Replaceul := ReplaceulCheckBox.Checked;
- GikoSys.FAbon.AbonPopupRes := PopUpAbonCheckBox.Checked;
+ //\82 \82Ú\81`\82ñ
+ GikoSys.FAbon.Deleterlo := RloCheckBox.Checked;
+ GikoSys.FAbon.Replaceul := ReplaceulCheckBox.Checked;
+ GikoSys.FAbon.AbonPopupRes := PopUpAbonCheckBox.Checked;
GikoSys.FAbon.ReturnNGwordLineNum := ShowNGLineCheckBox.Checked;
- GikoSys.FAbon.SetNGResAnchor := AddResAnchorCheckBox.Checked;
+ GikoSys.FAbon.SetNGResAnchor := AddResAnchorCheckBox.Checked;
end;
procedure TOptionDialog.CSSFontButtonClick(Sender: TObject);
begin
FontDialog.Font.Assign(FCSSFont);
if FontDialog.Execute then begin
FontDialog.Font.Style := FontDialog.Font.Style - [fsUnderline] - [fsStrikeout];
- FCSSFont := FontDialog.Font;
+ FCSSFont := FontDialog.Font;
end;
- CSSPreview;
+ CSSPreview;
end;
ColorDialog.Color := FCSSBackColor;
if ColorDialog.Execute then begin
- FCSSBackColor := ColorDialog.Color;
+ FCSSBackColor := ColorDialog.Color;
end;
- CSSPreview;
+ CSSPreview;
end;
begin
CSSFontButton.Enabled := CSSFontCheckBox.Checked;
- CSSPreview;
+ CSSPreview;
end;
begin
CSSBackColorButton.Enabled := CSSBackColorCheckBox.Checked;
- CSSPreview;
+ CSSPreview;
end;
if CSSBrowser.Document <> nil then begin
doc := CSSBrowser.Document;
doc.open;
- doc.Clear;
+ doc.Clear;
doc.charset := 'Shift_JIS';
doc.Write(Content);
doc.Close;
- end;
+ end;
end;
procedure TOptionDialog.CSSPreview;
Board: TBoard;
ThreadItem: TThreadItem;
html: string;
- sTitle: string;
- Res: array [0..1] of TResRec;
- UserOptionalStyle: string;
- i: Integer;
- fileName: string;
+ Res: array [0..1] of TResRec;
+ UserOptionalStyle: string;
+ i: Integer;
+ fileName: string;
begin
fileName := GikoSys.Setting.CSSFileName;
GikoSys.Setting.CSSFileName := string( CSSListView.Items[CSSListView.ItemIndex].data )
else
GikoSys.Setting.CSSFileName := CSSListView.Items[CSSListView.ItemIndex].Caption + '.css';
- end;
+ end;
except
end;
end;
- Board := TBoard.Create;
+ Board := TBoard.Create;
ThreadItem := TThreadItem.Create;
- try
- Board.URL := 'about://sample/';
- Board.Title := '\83T\83\93\83v\83\8b\94Â';
- ThreadItem.ParentBoard := Board;
- ThreadItem.AllResCount := High( Res );
- ThreadItem.NewResCount := 1;
- ThreadItem.NewReceive := 2;
-
- sTitle := '\83T\83\93\83v\83\8b\83v\83\8c\83r\83\85\81[';
-
- Res[0].FName := '\96¼\96³\82µ\82³\82ñ';
- Res[0].FMailTo := 'sage';
- Res[0].FDateTime := 'ID:Sample';
- Res[0].FBody := 'CSS \82Æ\83X\83L\83\93\82Ì\83T\83\93\83v\83\8b';
- Res[1].FName := '\96¼\96³\82µ\82³\82ñ';
- Res[1].FMailTo := 'age';
- Res[1].FDateTime := 'ID:Sample';
- Res[1].FBody := '\83I\83}\83G\83\82\83i\81[';
-
- // \83t\83H\83\93\83g\82â\83T\83C\83Y\82Ì\90Ý\92è
- if CSSFontCheckBox.Checked then begin
- i := ColorToRGB( FCSSFont.Color );
- i := (i shr 16) or (i and $ff00) or ((i and $ff) shl 16);
-
- UserOptionalStyle := UserOptionalStyle +
- 'font-family:"' + FCSSFont.Name + '";' +
- 'font-size:' + IntToStr( FCSSFont.Size ) + 'pt;' +
- 'color:#' + IntToHex( i, 6 ) + ';';
- if fsBold in FCSSFont.Style then
- UserOptionalStyle := UserOptionalStyle + 'font-weight:bold;'
- else
- UserOptionalStyle := UserOptionalStyle + 'font-weight:normal;';
- if fsItalic in FCSSFont.Style then
- UserOptionalStyle := UserOptionalStyle + 'font-style:italic;'
- else
- UserOptionalStyle := UserOptionalStyle + 'font-style:normal;';
- end;
- if CSSBackColorCheckBox.Checked then begin
- i := ColorToRGB( FCSSBackColor );
- i := (i shr 16) or (i and $ff00) or ((i and $ff) shl 16);
-
- UserOptionalStyle := UserOptionalStyle +
- 'background-color:#' + IntToHex( i, 6 ) + ';';
- end;
-
- if FileExists( GikoSys.GetSkinHeaderFileName ) then begin
- html :=
- GikoSys.LoadFromSkin( GikoSys.GetSkinHeaderFileName, ThreadItem, sTitle, 0 ) +
- '<a name="top"></a>' +
- GikoSys.SkinedRes( GikoSYs.LoadFromSkin( GikoSys.GetSkinResFileName, ThreadItem, sTitle, 0 ), Res[0], '1' ) +
- GikoSys.SkinedRes( GikoSYs.LoadFromSkin( GikoSys.GetSkinNewResFileName, ThreadItem, sTitle, 0 ), Res[1], '2' ) +
- '<a name="bottom"></a>' +
- GikoSys.LoadFromSkin( GikoSys.GetSkinFooterFileName, ThreadItem, sTitle, 0 );
-
- html := StringReplace( html, '</head>',
- '<style type="text/css">body {' + UserOptionalStyle + '}</style></head>', [rfReplaceAll] );
- end else begin
- html :=
- '<html><head>' +
- '<meta http-equiv="Content-type" content="text/html; charset=Shift_JIS">' +
- '<title>' + sTitle + '</title>' +
- '<link rel="stylesheet" href="' + GikoSys.GetStyleSheetDir + GikoSys.Setting.CSSFileName + '" type="text/css">' +
- '<style type="text/css">body {' + UserOptionalStyle + '}</style>' +
- '</head><body>' +
- '<div class="title">' + sTitle + '</div>';
-
- for i := 0 to High( Res ) do
- begin
- html := html +
- '<div class="header"><span class="no">' + IntToStr( i + 1 ) + '</span>' +
- '<span class="name_label"> \96¼\91O\81F </span>' +
- '<a class="name_mail" href="mailto:' + Res[i].FMailTo + '">' +
- '<b>' + Res[i].FName + '</b></a><span class="mail"> [' + Res[i].FMailTo + ']</span>' +
- '<span class="date_label"> \93\8a\8de\93ú\81F</span>' +
- '<span class="date"> ' + Res[i].FDateTime+ '</span></div>' +
- '<div class="mes">' + Res[i].FBody + ' </div>';
- end;
-
- html := html + '</body></html>';
- end;
-
- try
- CSSSetContent( html );
- except
- end;
-
- finally
- ThreadItem.Free;
- Board.Free;
- GikoSys.Setting.CSSFileName := fileName;
- end;
+ try
+ Board.URL := 'about://sample/';
+ Board.Title := '\83T\83\93\83v\83\8b\94Â';
+ ThreadItem.ParentBoard := Board;
+ ThreadItem.AllResCount := High( Res );
+ ThreadItem.NewResCount := 1;
+ ThreadItem.NewReceive := 2;
+ ThreadItem.Title := '\83T\83\93\83v\83\8b\83v\83\8c\83r\83\85\81[';
+
+ Res[0].FName := '\96¼\96³\82µ\82³\82ñ';
+ Res[0].FMailTo := 'sage';
+ Res[0].FDateTime := 'ID:Sample';
+ Res[0].FBody := 'CSS \82Æ\83X\83L\83\93\82Ì\83T\83\93\83v\83\8b';
+ Res[1].FName := '\96¼\96³\82µ\82³\82ñ';
+ Res[1].FMailTo := 'age';
+ Res[1].FDateTime := 'ID:Sample';
+ Res[1].FBody := '\83I\83}\83G\83\82\83i\81[';
+
+ // \83t\83H\83\93\83g\82â\83T\83C\83Y\82Ì\90Ý\92è
+ if CSSFontCheckBox.Checked then begin
+ i := ColorToRGB( FCSSFont.Color );
+ i := (i shr 16) or (i and $ff00) or ((i and $ff) shl 16);
+
+ UserOptionalStyle := UserOptionalStyle +
+ 'font-family:"' + FCSSFont.Name + '";' +
+ 'font-size:' + IntToStr( FCSSFont.Size ) + 'pt;' +
+ 'color:#' + IntToHex( i, 6 ) + ';';
+ if fsBold in FCSSFont.Style then
+ UserOptionalStyle := UserOptionalStyle + 'font-weight:bold;'
+ else
+ UserOptionalStyle := UserOptionalStyle + 'font-weight:normal;';
+ if fsItalic in FCSSFont.Style then
+ UserOptionalStyle := UserOptionalStyle + 'font-style:italic;'
+ else
+ UserOptionalStyle := UserOptionalStyle + 'font-style:normal;';
+ end;
+ if CSSBackColorCheckBox.Checked then begin
+ i := ColorToRGB( FCSSBackColor );
+ i := (i shr 16) or (i and $ff00) or ((i and $ff) shl 16);
+
+ UserOptionalStyle := UserOptionalStyle +
+ 'background-color:#' + IntToHex( i, 6 ) + ';';
+ end;
+
+ if FileExists( GikoSys.GetSkinHeaderFileName ) then begin
+ html :=
+ GikoSys.LoadFromSkin( GikoSys.GetSkinHeaderFileName, ThreadItem, 0 ) +
+ '<a name="top"></a>' +
+ GikoSys.SkinedRes( GikoSYs.LoadFromSkin( GikoSys.GetSkinResFileName, ThreadItem, 0 ), Res[0], '1' ) +
+ GikoSys.SkinedRes( GikoSYs.LoadFromSkin( GikoSys.GetSkinNewResFileName, ThreadItem, 0 ), Res[1], '2' ) +
+ '<a name="bottom"></a>' +
+ GikoSys.LoadFromSkin( GikoSys.GetSkinFooterFileName, ThreadItem, 0 );
+
+ html := StringReplace( html, '</head>',
+ '<style type="text/css">body {' + UserOptionalStyle + '}</style></head>', [rfReplaceAll] );
+ end else begin
+ html :=
+ '<html><head>' +
+ '<meta http-equiv="Content-type" content="text/html; charset=Shift_JIS">' +
+ '<title>' + ThreadItem.Title + '</title>' +
+ '<link rel="stylesheet" href="' + GikoSys.GetStyleSheetDir + GikoSys.Setting.CSSFileName + '" type="text/css">' +
+ '<style type="text/css">body {' + UserOptionalStyle + '}</style>' +
+ '</head><body>' +
+ '<div class="title">' + ThreadItem.Title + '</div>';
+
+ for i := 0 to High( Res ) do
+ begin
+ html := html +
+ '<div class="header"><span class="no">' + IntToStr( i + 1 ) + '</span>' +
+ '<span class="name_label"> \96¼\91O\81F </span>' +
+ '<a class="name_mail" href="mailto:' + Res[i].FMailTo + '">' +
+ '<b>' + Res[i].FName + '</b></a><span class="mail"> [' + Res[i].FMailTo + ']</span>' +
+ '<span class="date_label"> \93\8a\8de\93ú\81F</span>' +
+ '<span class="date"> ' + Res[i].FDateTime+ '</span></div>' +
+ '<div class="mes">' + Res[i].FBody + ' </div>';
+ end;
+
+ html := html + '</body></html>';
+ end;
+
+ try
+ CSSSetContent( html );
+ except
+ end;
+
+ finally
+ ThreadItem.Free;
+ Board.Free;
+ GikoSys.Setting.CSSFileName := fileName;
+ end;
end;
procedure TOptionDialog.CSSListViewChange(Sender: TObject; Item: TListItem;
- Change: TItemChange);
+ Change: TItemChange);
begin
if OptionTab.ActivePage = CSSTabSheet then
procedure TOptionDialog.AddURLButtonClick(Sender: TObject);
begin
BoardURLComboBox.Items.Append(BoardURLComboBox.Text);
- BoardURLComboBox.ItemIndex := BoardURLComboBox.Items.Count - 1;
+ BoardURLComboBox.ItemIndex := BoardURLComboBox.Items.Count - 1;
end;
procedure TOptionDialog.RemoveURLButtonClick(Sender: TObject);
OSDN Git Service
