svn/view/ProgramInfoTabDlg.pas

unit ProgramInfoTabDlg;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ComCtrls, ExtCtrls,
  ShellAPI,
  RegularExpressions,Dialogs;

type
  TProgramInfoDlg = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    PageControl1: TPageControl;
    LiveTabSheet: TTabSheet;
    CommunityTabSheet: TTabSheet;
    UserTabSheet: TTabSheet;
    OKBtn: TButton;
    LiveOwnerLabel: TLabel;
    LiveGBox: TGroupBox;
    Memo1: TMemo;
    InfoLabel: TLabel;
    LiveAudienceLabel: TLabel;
    LiveCommentLabel: TLabel;
    LiveStartTimeLabel: TLabel;
    LiveOpenTimeLabel: TLabel;
    UserNameLabel: TLabel;
    UserIDLabel: TLabel;
    UserSexLabel: TLabel;
    UserBirthdayLabel: TLabel;
    CommunityAudienceLabel: TLabel;
    CommunityStatusLabel: TLabel;
    IsCommunityMemberLabel: TLabel;
    CommunityNameLabel: TLabel;
    CommunityLevelLabel: TLabel;
    CommunityOpenDayLabel: TLabel;
    CommunityOwnerNameLabel: TLabel;
    CommunityGBox: TGroupBox;
    UserLocationLabel: TLabel;
    LiveURLLabel: TLinkLabel;
    UserGBox: TGroupBox;
    UserStampLabel: TLabel;
    UserNicorareLabel: TLabel;
    UserFavLabel: TLabel;
    CommunityMemberLabel: TLabel;
    CommunityMemo: TMemo;
    UserMemo: TMemo;
    LiveTitleLE: TLabeledEdit;
    LiveTagsLE: TLabeledEdit;
    CommunityTagsLE: TLabeledEdit;
    REGButton: TButton;
    CommunityIDLabel: TLinkLabel;
    UserIsDeadLabel: TLabel;
    procedure LiveURLLabelLinkClick(Sender: TObject; const Link: string;
      LinkType: TSysLinkType);
    procedure OKBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure REGButtonClick(Sender: TObject);
    procedure ReSetting(Sender: TObject);
    procedure SettingChannelTab(Sender: TObject);
    procedure SetLiveURL(URL: string);
    function SetCommunityIdURL(coNum: string): string;
    procedure CommunityIDLabelLinkClick(Sender: TObject;
      const Link: string; LinkType: TSysLinkType);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);

  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  ProgramInfoDlg: TProgramInfoDlg;

implementation

uses NicoVitanD_pas;

{$R *.dfm}

procedure TProgramInfoDlg.CommunityIDLabelLinkClick(Sender: TObject;
  const Link: string; LinkType: TSysLinkType);
begin
  ShellExecute(Self.Handle,PChar('Open'),PChar(Link),nil,nil,SW_SHOWNORMAL);
end;

procedure TProgramInfoDlg.FormActivate(Sender: TObject);
begin
  PageControl1.ActivePageIndex := 0; // 必ずProgramInfoDlgが表示されたときには 番組情報タブ が表示されるようにする
end;

procedure TProgramInfoDlg.FormCreate(Sender: TObject);
begin
  ReSetting(Sender);
  KeyPreview := True;
end;

procedure TProgramInfoDlg.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=VK_ESCAPE then ProgramInfoDlg.Close;
end;

procedure TProgramInfoDlg.OKBtnClick(Sender: TObject);
begin
  Close;
end;

procedure TProgramInfoDlg.REGButtonClick(Sender: TObject);
//var
//  StartTime:string;
//  tempStr : string;
begin
{$IFDEF DEBUG}
  SetLiveURL('lv601217');
  SetCommunityIdURL('co601217');
{$ENDIF}
end;

procedure TProgramInfoDlg.ReSetting(Sender: TObject);
begin
  InfoLabel.Visible := False;

  // 番組情報 タブ リセット
  LiveTitleLE.Text := '';
  LiveOwnerLabel.Caption    := '放送主名： ';
  LiveAudienceLabel.Caption := '総来場者数：  ';
  LiveCommentLabel.Caption  := '総コメント数： ';
  LiveOpenTimeLabel.Caption := '放送開場日時： ';
  LiveStartTimeLabel.Caption:= '放送開始日時： ';
  SetLiveURL('');
  LiveTagsLE.Text  := '';
  Memo1.Clear;

  // コミュニティ タブ リセット
  CommunityTabSheet.Caption    := 'コミュニティ';
  CommunityNameLabel.Caption   := 'コミュニティ名： ';
  CommunityStatusLabel.Caption := 'コミュニティステータス： '; // クローズ or オープン or 削除
  CommunityLevelLabel.Caption  := 'コミュニティレベル： ';     // xxxx ()
  CommunityMemberLabel.Caption := 'コミュニティ人数： ';       // 00000000
  CommunityIDLabel.Caption := SetCommunityIdURL('');
  CommunityOpenDayLabel.Caption  := '開設日： ';               // YYYY/MM/DD
  CommunityAudienceLabel.Caption := '累計来場者数： ';         // 0000000000000000
  CommunityOwnerNameLabel.Caption := 'オーナー名： ';
  IsCommunityMemberLabel.Caption := 'コミュニティ加入： '; // 参加中 or 未参加
  CommunityTagsLE.Text := '';
  CommunityMemo.Clear;
  if CommunityStatusLabel.Enabled = False then
  begin
    CommunityStatusLabel.Enabled := True;
    CommunityLevelLabel.Enabled  := True;
    CommunityMemberLabel.Enabled := True;
    CommunityOpenDayLabel.Enabled  := True;
    CommunityAudienceLabel.Enabled := True;
    CommunityOwnerNameLabel.Enabled:= True;
    IsCommunityMemberLabel.Enabled := True;
    CommunityGBox.Caption := 'コミュニティプロフィール';

    UserTabSheet.TabVisible := True;
  end;


  // 放送主タブ リセット
  UserNameLabel.Caption  := '放送主名： ';                     //　名前 or 非公開
  UserIDLabel.Caption    := 'ID番号： ';                       // 数字 or 非公開
  UserLocationLabel.Caption := 'お住まいの地域： ';            // 基本的に「お住まいの地域： 非公開」
  UserSexLabel.Caption   := '性別： ';                         // 性別： 非公開
  UserBirthdayLabel.Caption := '生年月日： ';                  // 生年月日： YYYY/MM/DD
  UserFavLabel.Caption   := 'お気に入り登録された数： ';
  UserStampLabel.Caption := 'スタンプ経験値： ';
  UserNicorareLabel.Caption := 'ニコられた数： ';
  UserIsDeadLabel.Visible := False;                            // 削除もしくは非公開ユーザー
  UserMemo.Clear;

end;

function TProgramInfoDlg.SetCommunityIdURL(coNum: string): string;
var
  temp:string;
begin
  // コミュニティ用
  if (TRegEx.IsMatch(coNum, 'co\d+')) then
  begin
    temp := 'href="http://com.nicovideo.jp/community/' + coNum + '"';
    Result := 'コミュニティID： <a ' + temp + ' title="視聴中のコミュニティをブラウザで開く">'+ coNum +'</a>';
    Exit;
  end;

  // チャンネル用
  if (TRegEx.IsMatch(coNum, 'ch\d+')) then
  begin
    SettingChannelTab(Self);
    temp := 'href="http://ch.nicovideo.jp/channel/' + coNum + '"';
    Result := 'チャンネルID： <a ' + temp + ' title="視聴中のチャンネルをブラウザで開く">'+ coNum +'</a>';
    Exit;
  end;

  // リセット用の処理
  if coNum = '' then
    begin
      Result := 'コミュニティID： <a href="http://com.nicovideo.jp/" title="ニコニコミュニティのトップページを開く" target="_blank">ニコニコミュニティのトップを開く</a>'
    end
  else
    begin // co/ch番号以外の処理
      Result := 'コミュニティID： <a href="http://com.nicovideo.jp/" title="ニコニコミュニティのトップページを開く" target="_blank">ニコニコミュニティのトップを開く</a>'
    end;

end;


procedure TProgramInfoDlg.SetLiveURL(URL: string);
var
  temp:string;
begin
  if  TRegEx.IsMatch(URL, 'lv\d+|co\d+') then  // 加減演算(or)を使わずにIsMatch 1回だけに出来た。
    begin
        temp := 'href="http://live.nicovideo.jp/watch/' + URL + '"';
        LiveURLLabel.Caption := '放送アドレス： <a ' + temp + ' title="視聴中の放送をブラウザで開く">'+ URL +'</a>'
    end
  else
    begin  // リセット用の処理
      LiveURLLabel.Caption := '放送アドレス： <a href="http://live.nicovideo.jp/" title="ニコニコ生放送のトップページを開く">ニコニコ生放送のトップページを開く</a>'
    end;
end;

procedure TProgramInfoDlg.SettingChannelTab(Sender: TObject); // チャンネル タブ セット
begin
  CommunityTabSheet.Caption    := 'チャンネル';
  CommunityNameLabel.Caption   := 'チャンネル名： ';
  CommunityStatusLabel.Enabled := False;
  CommunityLevelLabel.Enabled  := False;     // xxxx ()
  CommunityMemberLabel.Enabled := False;       // 00000000
  CommunityOpenDayLabel.Enabled := False;               // YYYY/MM/DD
  CommunityAudienceLabel.Enabled := False;         // 0000000000000000
  CommunityOwnerNameLabel.Enabled := False;
  IsCommunityMemberLabel.Enabled := False;   // 参加中 or 未参加
  CommunityGBox.Caption := 'チャンネルプロフィール';
  CommunityTagsLE.Text := '';
  CommunityMemo.Clear;

  UserTabSheet.TabVisible := False;
end;

procedure TProgramInfoDlg.LiveURLLabelLinkClick(Sender: TObject;
  const Link: string; LinkType: TSysLinkType);
begin
  ShellExecute(Self.Handle,PChar('Open'),PChar(Link),nil,nil,SW_SHOWNORMAL);
end;

end.